25 lines
599 B
Text
Executable file
25 lines
599 B
Text
Executable file
name: "Upward Current"
|
|
mode: lines
|
|
blend: additive
|
|
persist: 0.9
|
|
linewidth: 1.6
|
|
|
|
[init]
|
|
n = 900
|
|
|
|
[frame]
|
|
t = t + dt * (0.25 + bass_att * 1.5)
|
|
hue = hue + dt * 0.1
|
|
|
|
[point]
|
|
ring = floor(i * 24)
|
|
ri = frac(i * 24)
|
|
z = frac(ring / 24 + t)
|
|
rad = 0.06 + z * 0.9
|
|
a = ri * 6.28318 + ring * 0.35 + sin(t * 0.7) * 2
|
|
x = sin(a) * rad * (0.55 + sv * 0.9) / aspect
|
|
y = cos(a) * rad * (0.55 + sv * 0.9)
|
|
f = (1 - z) * (0.35 + bass * 0.65)
|
|
red = f * (0.45 + 0.55 * sin(hue * 6.28318 + z * 4))
|
|
green = f * (0.45 + 0.55 * sin(hue * 6.28318 + z * 4 + 2.09))
|
|
blue = f * (0.45 + 0.55 * sin(hue * 6.28318 + z * 4 + 4.19))
|