summaryrefslogtreecommitdiff
path: root/algorithm/test.bmx
diff options
context:
space:
mode:
Diffstat (limited to 'algorithm/test.bmx')
-rw-r--r--algorithm/test.bmx11
1 files changed, 10 insertions, 1 deletions
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