// Galileo, 02/2017
// Based in this javascript code: https://www.dwitter.net/d/379
open window 975, 768
window origin "cc"
backcolor 0,0,0
clear window
c=1 : i=1
for t=1 to 1000 step .02
color c,c,c
u(t)
c=c+i
if c>254 or c < 1 i=-i
next t
sub u(t)
local i,s,j
for i=2000 to 1 step -1
s=7/(sin(i/42)*sin(2.79*i+t-1.57)+2)
ox=460*sin(i/42)*sin(2.79*i+t)
oy=160*(cos(i/42)+tan(t/9+i/42))
fill rectangle ox,oy,ox+s,oy+s
next i
end sub
