File: Telek - Directive Swagger (Spectral Inferno) (fix...) maybe.milk

package info (click to toggle)
projectm 2.1.0+dfsg-4
  • links: PTS, VCS
  • area: main
  • in suites: buster, stretch
  • size: 32,348 kB
  • ctags: 13,907
  • sloc: cpp: 31,087; ansic: 26,914; sh: 816; makefile: 17
file content (157 lines) | stat: -rwxr-xr-x 5,007 bytes parent folder | download | duplicates (8)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
[preset00]
fRating=3.000000
fGammaAdj=1.210000
fDecay=1.000000
fVideoEchoZoom=1.006596
fVideoEchoAlpha=0.000000
nVideoEchoOrientation=3
nWaveMode=3
bAdditiveWaves=0
bWaveDots=1
bWaveThick=1
bModWaveAlphaByVolume=0
bMaximizeWaveColor=0
bTexWrap=0
bDarkenCenter=0
bRedBlueStereo=0
bBrighten=0
bDarken=1
bSolarize=0
bInvert=0
fWaveAlpha=9.088520
fWaveScale=0.499500
fWaveSmoothing=0.000000
fWaveParam=1.000000
fModWaveAlphaStart=0.710000
fModWaveAlphaEnd=1.300000
fWarpAnimSpeed=1.000000
fWarpScale=1.331000
fZoomExponent=1.000000
fShader=0.000000
zoom=0.999514
rot=0.000000
cx=0.500000
cy=0.500000
dx=0.000000
dy=0.000000
warp=0.010000
sx=1.000000
sy=1.000000
wave_r=0.990000
wave_g=0.000000
wave_b=0.000000
wave_x=0.500000
wave_y=0.500000
ob_size=0.005000
ob_r=0.300000
ob_g=0.000000
ob_b=0.500000
ob_a=0.000000
ib_size=0.260000
ib_r=0.250000
ib_g=0.250000
ib_b=0.250000
ib_a=0.000000
nMotionVectorsX=64.000000
nMotionVectorsY=2.759997
mv_dx=0.000000
mv_dy=-0.620000
mv_l=5.000000
mv_r=0.000000
mv_g=1.000000
mv_b=1.000000
mv_a=0.400000
per_frame_1=// Hello,
per_frame_2=
per_frame_3=// My beat detection algorithm had the aim of being able to detect and pickup a reliable beat throughout a song.  This has creative possibilities of being able to PREDICT coming beats, and to have things lasting for (say) half a beat, etc.  It still requires work, but I think I have made progress.
per_frame_4=// I emplore you to have a look over it and try to underdstand it. Help me out here - I think it could be reallly good.
per_frame_5=
per_frame_6=//Telek Sterling =:-)
per_frame_7=//Dilettante Extrodinaire
per_frame_8=
per_frame_9=
per_frame_10=//rt = realtime (for use with beat count)
per_frame_11=rt=time-start;
per_frame_12=
per_frame_13=//color cycling, yellow dynamic treble
per_frame_14=wave_g = max(0,min(1,.25*sin(time*10)+treb/2));
per_frame_15=wave_x = cos(time*2.12)*.33+.5;
per_frame_16=wave_y = sin(time*1.5)*.13+.3;
per_frame_17=
per_frame_18=//initialisation bug patch
per_frame_19=beatrate = if(below(beatcount,2),.1,beatrate);
per_frame_20=
per_frame_21=//beat = if(longer that 10 sec,1,above(bass, decaying threshold)*(can't be less that .4 of last beat length)
per_frame_22=beat =if(above(rt-lastbeat,10),1, above(bass,1.6+.2*(lastbeat-rt)/beatrate)* above((rt-lastbeat)/beatrate,max(.4,.95-abs(accuracy*2))));
per_frame_23=
per_frame_24=//Testing auto-beat trigger... exciting stuff..
per_frame_25=beat = if(beat,1, if(below(abs(accuracy),0.1)*below((lastbeat-rt)/beatrate,-1),1,0));
per_frame_26=
per_frame_27=//Comparison of last beat duration to current. Best value is 0. -1 and 5 are pretty bad.
per_frame_28=accuracy =if(beat,(rt-nextbeat)/beatrate,accuracy);
per_frame_29=
per_frame_30=beatcount = beatcount + beat;
per_frame_31=
per_frame_32=w_a = if(beat,1,w_a*0);
per_frame_33=wave_a = w_a;            // I can't actually change this, can I..... Oh well, it's here now.
per_frame_34=
per_frame_35=//Preserve beat rate
per_frame_36=l_beatrate=if(beat,beatrate, l_beatrate);
per_frame_37=//Record new beatrate
per_frame_38=beatrate = if(beat,rt-lastbeat,beatrate);
per_frame_39=
per_frame_40=//Record most recent beat
per_frame_41=lastbeat=if(beat,rt,lastbeat);
per_frame_42=//Predict time of next beat
per_frame_43=nextbeat=if(beat,rt+beatrate,nextbeat);
per_frame_44=
per_frame_45=
per_frame_46=
per_frame_47=
per_frame_48=//Actual Display code:
per_frame_49=
per_frame_50=//Current direction of travel
per_frame_51=state = beat * (state+1)%4+(1-beat)*state;
per_frame_52=
per_frame_53=//acceleration of horizon point
per_frame_54=dddy = state%2-.5;
per_frame_55=dddx = above(state,1.5)-.5;
per_frame_56=
per_frame_57=//adjustment factors to play with
per_frame_58=ddx = dddx*.5;
per_frame_59=ddy = dddy*.5;
per_frame_60=
per_frame_61=
per_frame_62=q1 = (qq1*19+ddx)*.041;
per_frame_63=//preserve q variables
per_frame_64=qq1 = q1;
per_frame_65=
per_frame_66=q2 = (qq2*19+ddy)*.035;
per_frame_67=qq2 = q2;
per_frame_68=
per_frame_69=//Decay to Blue!!
per_frame_70=ob_a = 0.1*above(frame%10,6);
per_frame_71=
per_frame_72=
per_frame_73=
per_frame_74=
per_frame_75=//Well, what do we want to monitor??
per_frame_76=
per_frame_77=//monitor = q1;
per_frame_78=//monitor = beat;
per_frame_79=//monitor = 1.6+.2*(lastbeat-rt)/beatrate;
per_frame_80=monitor = (rt-lastbeat)/beatrate;
per_frame_81=//monitor = accuracy;
per_frame_82=//monitor = max(.4,.95-abs(accuracy*2));
per_frame_83=//monitor = wave_a;
per_frame_84=//monitor = wave_g;
per_frame_85=//qwer =   accuracy + if(below(abs(accuracy),0.1)*above((lastbeat-rt)/beatrate,1),1,0)*1000;
per_frame_86=//monitor = qwer;
per_frame_87=//monitor  = (lastbeat-rt)/beatrate;
per_pixel_1=dx = sin(.5-x)*.1+q1;
per_pixel_2=dy = sin(.5-y)*.1+q2;
per_frame_init_1=ddx = 0;
per_frame_init_2=ddy = 0;
per_frame_init_3=start = time;
per_frame_init_4=rt = 0;
per_frame_init_5=beatcount = 0;