silly patterns

This code has been declared by its author to be Public Domain code.

silly patterns by ANIMAL (Posted 21 years ago)
silly patterns usin sin,cos
Open in online IDE ; auther animal ; silly patterns Graphics 800,600,16,2 SetBuffer BackBuffer() q=0 Gosub val While Not KeyDown(1) t=t+q x=ox+rSin(t) y=oy+rCos(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

silly patterns by ANIMAL

(Posted 21 years ago)

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

n8r2k

(Posted 21 years ago)

cool, looks kinda like the circle thing i did on Q-Basic. I wrote it for blitz and its down the list a ways

n8r2k

(Posted 21 years ago)

[Edit] what the crap? i pressed submit once. sorry double post

chwaga

(Posted 19 years ago)

cool

Code Archives Forum