Sorry your browser is not supported!

You are using an outdated browser that does not support modern web technologies, in order to use this site please update to a new browser.

Browsers supported include Chrome, FireFox, Safari, Opera, Internet Explorer 10+ or Microsoft Edge.

developer forums

Code Snippets / [DBP] Randome line generator

Author

Message

Madscientist

Years of Service

User Offline

Joined: 23rd Aug 2009

Location: Between a rock and a hard place

Posted: 26th Aug 2009 02:54

Link

Draws randomly colored lines all over the screen. The lines get drawn faster and faster until they just disapear.

+ Code Snippet

oldX=rnd(640)
oldY=rnd(480)
Acc=250
linetime=1000


Do

R=rnd(255)
G=rnd(255)
B=rnd(255)
ink rgb(R,G,B),rgb(0,0,0)

NewX=rnd(640)
NewY=rnd(480)
line oldX,oldY,NewX,NewY
OldX=NewX
OldY=NewY

dec linetime

if linetime<1
cls
acc=250
linetime=1000
endif

acc=acc-2

sleep acc

loop

If it hasn't exploded yet, I haven't touched it.

Profile PM

Server time is: 2024-05-04 22:01:10
Your offset time is: 2024-05-04 22:01:10