27 lines
801 B
Text
Executable file
27 lines
801 B
Text
Executable file
name: "Retrowall (Yathosho's Supermicrocosm)"
|
|
mode: dots
|
|
blend: additive
|
|
persist: 0.843
|
|
linewidth: 2.178
|
|
|
|
[init]
|
|
rings = 7
|
|
n = rings * 103
|
|
|
|
[frame]
|
|
t = t + dt * (0.344 + bass_att * 0.6)
|
|
hue = hue + dt * 0.112
|
|
squash = 0.315 + 0.25 * sin(t * 0.205)
|
|
|
|
[point]
|
|
ring = floor(i * rings)
|
|
ri3 = frac(i * rings)
|
|
r0 = 0.16 + ring * 0.142
|
|
a = ri3 * 6.28318 + t * (1.2 - ring * 0.18) + ring * 2.4
|
|
x = sin(a) * r0 * (1 + bass * 0.18) / aspect
|
|
y = cos(a) * r0 * squash
|
|
sat = frac(ri3 * 5)
|
|
size = if(below(sat, 0.14), 3 + bass * 3, 1)
|
|
red = 0.25 + bass * 0.5 + ring * 0.07 * (0.45 + 0.55 * sin(hue * 6.28318 + ring * 1.3))
|
|
green = 0.25 + bass * 0.5 + ring * 0.07 * (0.45 + 0.55 * sin(hue * 6.28318 + ring * 1.3 + 2.09))
|
|
blue = 0.25 + bass * 0.5 + ring * 0.07 * (0.45 + 0.55 * sin(hue * 6.28318 + ring * 1.3 + 4.19))
|