File: Telek - Directive Swagger (Spectral Inferno) (fix...) maybe.. YES.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: -rw-r--r-- 4,749 bytes parent folder | download | duplicates (3)
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=2
fGammaAdj=1.21
fDecay=1
fVideoEchoZoom=1.006596
fVideoEchoAlpha=0
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.08852
fWaveScale=0.4995
fWaveSmoothing=0
fWaveParam=1
fModWaveAlphaStart=0.71
fModWaveAlphaEnd=1.3
fWarpAnimSpeed=1
fWarpScale=1.331
fZoomExponent=1
fShader=0
zoom=0.999514
rot=0
cx=0.5
cy=0.5
dx=0
dy=0
warp=0.01
sx=1
sy=1
wave_r=0.99
wave_g=0
wave_b=0
wave_x=0.5
wave_y=0.5
ob_size=0.005
ob_r=0.3
ob_g=0
ob_b=0.5
ob_a=0
ib_size=0.26
ib_r=0.25
ib_g=0.25
ib_b=0.25
ib_a=0
nMotionVectorsX=64
nMotionVectorsY=2.759997
mv_dx=0
mv_dy=-0.62
mv_l=5
mv_r=0
mv_g=1
mv_b=1
mv_a=0.4
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;