This code has been declared by its author to be Public Domain code.
Download source code | silly patterns by ANIMAL | 2006 |
| |
|
silly patterns usin sin,cos |
; auther animal
; silly patterns
Graphics 800,600,16,2
SetBuffer BackBuffer()
q=0
Gosub val
While Not KeyDown(1)
t=t+q
x=ox+r*Sin(t)
y=oy+r*Cos(t)
Color Rnd(1000),Rnd(1000),Rnd(1000)
Line ox,oy,x,y
ox=x:oy=y
r=r+1
If x<0 Or x>800 Then Gosub val
Flip
Wend
x=0:y=0:ox=0:oy=0:End
.val
Cls
q=30+(300)*10
ox=400:oy=250
x=400:y=250
r=0
Return |
Comments |
cool, looks kinda like the circle thing i did on Q-Basic. I wrote it for blitz and its down the list a ways
|
|
[Edit] what the crap? i pressed submit once. sorry double post
|
Code Archives Forum