' $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
	
	Local pa:TAlgoPoint[]=DoCircle(Rand(0,SCRW),Rand(0,SCRH),Rand(100,200))
	
	For Local f:Int=0 To 359
		Local nf:Int=(f+1) Mod 360
		
		SetColor(Rand(100,255),Rand(100,255),Rand(100,255))
		DrawLine(pa[f].x,pa[f].y,pa[nf].x,pa[nf].y)
	Next
	
	Flip
	FlushMem
Wend

EndGraphics
End