25 lines
538 B
Text
Executable file
25 lines
538 B
Text
Executable file
name: "Magma Flow II"
|
|
mode: lines
|
|
blend: additive
|
|
persist: 0.9
|
|
linewidth: 1.6
|
|
|
|
[init]
|
|
n = 1100
|
|
|
|
[frame]
|
|
t = t + dt * (0.3 + bass_att * 1.8)
|
|
hue = hue + dt * 0.08 + beat * 0.01
|
|
|
|
[point]
|
|
arm = floor(i * 5)
|
|
fa = frac(i * 5)
|
|
d = fa
|
|
ang = arm * 1.2566 + d * (1.4 + mid * 3) * 3.14159 + t
|
|
rad = (0.05 + d * d * 1.15) * (0.7 + bass * 0.5)
|
|
x = sin(ang) * rad / aspect
|
|
y = cos(ang) * rad
|
|
red = (0.3 + 0.7 * d) * (0.3 + bass)
|
|
green = (0.3 + 0.7 * d) * (0.25 + mid)
|
|
blue = (0.3 + 0.7 * d) * (0.2 + treb + hue * 0.2)
|
|
skip = if(below(fa, 0.04), 1, 0)
|