' $Id$

Import noddybox.algorithm

Const SCRW=800
Const SCRH=600

SetGraphicsDriver GLMax2DDriver()
Graphics SCRW,SCRH,32,60' Or HARDSYNC

While Not KeyHit(KEY_ESCAPE)
	'Cls
	
	Local l:TList=DoLine(Rand(0,SCRW),Rand(0,SCRH),Rand(0,SCRW),Rand(0,SCRH))
	
	For Local p:TAlgoPoint=EachIn l
		SetColor(Rand(100,255),Rand(100,255),Rand(100,255))
		Plot(p.x,p.y)
	Next
	
	Flip
	FlushMem
Wend

EndGraphics
End