27 lines
675 B
Text
Executable file
27 lines
675 B
Text
Executable file
name: "Solar Flaire"
|
|
mode: lines
|
|
blend: additive
|
|
persist: 0.866
|
|
linewidth: 1.678
|
|
|
|
[init]
|
|
bars = 59
|
|
n = bars * 11
|
|
|
|
[frame]
|
|
rot = rot + dt * (0.076 + mid * 0.3)
|
|
hue = hue + dt * 0.107
|
|
|
|
[point]
|
|
bar = floor(i * bars)
|
|
bi = frac(i * bars)
|
|
lvl = getspec(bar / bars, 0, 0)
|
|
h = lvl * 0.607
|
|
a = bar * 6.28318 / bars + rot
|
|
rad = 0.241 + bi * h
|
|
x = sin(a) * rad / aspect
|
|
y = cos(a) * rad
|
|
red = 0.25 + bi * 0.75 * (0.45 + 0.55 * sin(hue * 6.28318 + bar * 6.28318 / bars))
|
|
green = 0.25 + bi * 0.75 * (0.45 + 0.55 * sin(hue * 6.28318 + bar * 6.28318 / bars + 2.09))
|
|
blue = 0.25 + bi * 0.75 * (0.45 + 0.55 * sin(hue * 6.28318 + bar * 6.28318 / bars + 4.19))
|
|
skip = if(above(bi, 0.97), 1, 0)
|