27 lines
645 B
Text
Executable file
27 lines
645 B
Text
Executable file
name: "tentaclism (cathode ray mix by onionring of doom)"
|
|
mode: lines
|
|
blend: additive
|
|
persist: 0.873
|
|
linewidth: 1.987
|
|
|
|
[init]
|
|
spokes = 26
|
|
n = spokes * 38
|
|
|
|
[frame]
|
|
rot = rot + dt * (0.076 + mid * 0.4)
|
|
t = t + dt * 1.652
|
|
hue = hue + dt * 0.062
|
|
|
|
[point]
|
|
sp = floor(i * spokes)
|
|
si = frac(i * spokes)
|
|
a = sp * 6.28318 / spokes + rot
|
|
wave = sin(si * 5 * 3.14159 - t) * (0.03 + bass * 0.28)
|
|
rad = 0.12 + si * 0.882 + wave
|
|
x = sin(a) * rad / aspect
|
|
y = cos(a) * rad
|
|
red = (1 - si) * 0.45 + 0.15 + sv * 0.55 * 0.3
|
|
green = (1 - si) * 0.45 + 0.15 + sv * 0.55 * 0.65
|
|
blue = min(1, (1 - si) * 0.45 + 0.15 + sv * 0.55 * 1.3)
|
|
skip = if(above(si, 0.985), 1, 0)
|