Blitz Basement

CODE LIBRARY >> GRASIN

This program code demonstrates an effect. Thanks to Burcak Duruoz for allowing use of this function on Blitz Basement. Here is the code:

; ***************************
; * GraSin *
; * writen by Burcak Duruoz *
; * 2 0 0 2 *
; ***************************
Graphics 640,480;,16,1
SetBuffer BackBuffer()
ClsColor 0,20,40
Cls
starno=2000
Star=1
yt#=1
xt#=1
yr#=1
xr#=1
While Not KeyDown(1)
yt#=yt+0.00001
xt#=xt+0.00003
yr#=yr+0.00002
xr#=xr+0.00006
Cls
star=star+2
If star>starno Then star=starno
;Locate 0,0:Print "Star#=" + star 
For s=0 To star
f#=f+.001
th1=(Sin(s*yt)*200)
th2=(Cos(s*xt)*200)
xxt=Cos(s*yr+f)*th1
yyt=Cos(s*xr+f)*th2
xx=Sin(yyt*yt)*th2
yy=Cos(xxt*xt)*th1
Plot xx+320,yy+240
Next
Flip
Wend