29 lines
655 B
Text
Executable file
29 lines
655 B
Text
Executable file
name: "Mercury"
|
|
mode: lines
|
|
blend: additive
|
|
persist: 0.88
|
|
linewidth: 2
|
|
|
|
[init]
|
|
n = 720
|
|
|
|
[frame]
|
|
hue = hue + dt * (0.06 + mid * 0.2)
|
|
travel = travel + dt * (0.3 + bass_att * 1.4)
|
|
|
|
[beat]
|
|
flash = 1
|
|
|
|
[point]
|
|
g = floor(i * 9)
|
|
gi = frac(i * 9)
|
|
ph = frac(rand(g * 5.1 + 1) + travel * (0.6 + rand(g + 17) * 0.8))
|
|
a = gi * 6.28318
|
|
rad = ph * (0.25 + bass * 0.6 + flash * 0.08)
|
|
x = sin(a) * rad / aspect
|
|
y = cos(a) * rad
|
|
fade = sin(ph * 3.14159)
|
|
red = fade * (0.3 + 0.7 * sin(hue * 6.28318 + g * 0.7))
|
|
green = fade * (0.3 + 0.7 * sin(hue * 6.28318 + g * 0.7 + 2.09))
|
|
blue = fade * (0.3 + 0.7 * sin(hue * 6.28318 + g * 0.7 + 4.19))
|
|
skip = if(above(ph, 0.95), 1, 0)
|