adding the mattgonlol
This commit is contained in:
parent
b68fcfc77c
commit
5bef96236f
21
mattgonlol.ld
Normal file
21
mattgonlol.ld
Normal file
|
@ -0,0 +1,21 @@
|
||||||
|
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)
|
||||||
|
}
|
Loading…
Reference in New Issue
Block a user