31 lines
723 B
Text
Executable file
31 lines
723 B
Text
Executable file
name: "Urantia"
|
|
mode: lines
|
|
blend: additive
|
|
persist: 0.86
|
|
linewidth: 1.8
|
|
|
|
[init]
|
|
n = 560
|
|
segs = 8
|
|
|
|
[frame]
|
|
rot = rot + dt * (0.08 + mid_att * 0.5)
|
|
hue = hue + dt * (0.07 + treb * 0.08)
|
|
|
|
[beat]
|
|
flash = 1
|
|
|
|
[point]
|
|
seg = floor(i * segs)
|
|
si = frac(i * segs)
|
|
a0 = si * 6.28318 / segs + rot
|
|
amp = 0.12 + sv * 0.55 + bass * 0.25 + flash * 0.05
|
|
rad = 0.15 + amp * (0.4 + 0.6 * sin(a0 * 6 + time * 2))
|
|
a = seg * 6.28318 / segs + a0 * if(below(seg % 2, 1), 1, -1)
|
|
x = sin(a) * rad / aspect
|
|
y = cos(a) * rad
|
|
lum = 0.35 + amp * 1.2
|
|
red = lum * (0.6 + 0.4 * sin(hue * 6.28318 + seg))
|
|
green = lum * (0.6 + 0.4 * sin(hue * 6.28318 + seg + 2.09))
|
|
blue = lum * (0.6 + 0.4 * sin(hue * 6.28318 + seg + 4.19))
|
|
skip = if(above(si, 0.96), 1, 0)
|