diff options
Diffstat (limited to 'algorithm/test.bmx')
| -rw-r--r-- | algorithm/test.bmx | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/algorithm/test.bmx b/algorithm/test.bmx new file mode 100644 index 0000000..575c1d4 --- /dev/null +++ b/algorithm/test.bmx @@ -0,0 +1,26 @@ +' $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 |