From 57a46e7b6f61fa750b282ba6ac15b978eebb8335 Mon Sep 17 00:00:00 2001 From: Ian C Date: Mon, 26 Sep 2005 23:11:03 +0000 Subject: *** empty log message *** --- algorithm/test.bmx | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) (limited to 'algorithm') diff --git a/algorithm/test.bmx b/algorithm/test.bmx index 575c1d4..60ce813 100644 --- a/algorithm/test.bmx +++ b/algorithm/test.bmx @@ -9,7 +9,7 @@ SetGraphicsDriver GLMax2DDriver() Graphics SCRW,SCRH,32,60' Or HARDSYNC While Not KeyHit(KEY_ESCAPE) - 'Cls + Cls Local l:TList=DoLine(Rand(0,SCRW),Rand(0,SCRH),Rand(0,SCRW),Rand(0,SCRH)) @@ -18,6 +18,15 @@ While Not KeyHit(KEY_ESCAPE) 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 -- cgit v1.2.3