ludus-scripts/mattgonlol.ld

22 lines
402 B
Plaintext

fn ngon! (sides, size) -> repeat sides { fd!(size); lt!(inv(sides)) }
let cpal = [(100,255,100,100),(80,100,200,170)]
fn spingon! (sides, size, count) -> {
if eq? (count, 0) then {
"enough!"
} else {
rt!(inv(sides))
pencolor!(random(cpal))
ngon! (sides, size)
spingon! (sides, inc(size), dec(count))
}
}
& spingon!(8, 40, 50)
repeat 5 {
spingon!(8, 40, 50)
rt!(0.3)
}