https://twitter.com/GoshDarnGames/statu ... 8595888128
Here is the code:
Code: Select all
CF::MaxNatural = 10000000
CF::Time = [time 0 1]
startshape FRAME []
shape FRAME
{
SQUARE [s 22]
POLYGON ( 1000, 10, 30 ) [b 1]
}
sine(t,amp,freq,phase) = amp*sin( (freq*360*t) + phase )
path POLYGON ( natural n, number o, number speed )
{
MOVETO ( o/2, 0 )
loop i=n []
{
t = 1/n*(i+1)
d = o/2+o*sine ( t, 0.5, ftime()*speed, 0 )
LINETO ( d*cos (360*t), d*sin (360*t) )
}
CLOSEPOLY(CF::Align)
STROKE () []
}