27 lines
673 B
Text
Executable file
27 lines
673 B
Text
Executable file
name: "Urantia"
|
|
mode: dots
|
|
blend: additive
|
|
persist: 0.862
|
|
linewidth: 2.9
|
|
|
|
[init]
|
|
rings = 4
|
|
n = rings * 101
|
|
|
|
[frame]
|
|
t = t + dt * (0.393 + bass_att * 0.6)
|
|
hue = hue + dt * 0.094
|
|
squash = 0.387 + 0.25 * sin(t * 0.454)
|
|
|
|
[point]
|
|
ring = floor(i * rings)
|
|
ri3 = frac(i * rings)
|
|
r0 = 0.16 + ring * 0.141
|
|
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 * 2)
|
|
size = if(below(sat, 0.14), 3 + bass * 3, 1)
|
|
red = 0.25 + bass * 0.5 + ring * 0.07 * (0.25 + bass * 0.95)
|
|
green = 0.25 + bass * 0.5 + ring * 0.07 * (0.25 + mid * 0.95)
|
|
blue = 0.25 + bass * 0.5 + ring * 0.07 * (0.25 + treb * 0.95)
|