diff options
Diffstat (limited to 'algorithm/test.bmx')
| -rw-r--r-- | algorithm/test.bmx | 11 |
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 |