3 lines
237 B
Lua
3 lines
237 B
Lua
p=0.45 a=0 c=cos s=sin function update()cls()for m=0,63 do
|
|
N=2*p*(m%8)M=p*flr(m/8)x,y,z=s(M)*c(N),s(M)*s(N),c(M)I,J=c(a),s(a)y,z=y*I-z*J,y*J+z*I
|
|
x,z=x*I-z*J,x*J+z*I x,y=x/(z+4),y/(z+4)print(chr(47-sgn(z)),20+x*70,15+y*55)end a=a+0.03 end |