diff options
| -rw-r--r-- | algorithm/.cvsignore | 2 | ||||
| -rw-r--r-- | algorithm/test.bmx | 26 |
2 files changed, 28 insertions, 0 deletions
diff --git a/algorithm/.cvsignore b/algorithm/.cvsignore new file mode 100644 index 0000000..8f686ea --- /dev/null +++ b/algorithm/.cvsignore @@ -0,0 +1,2 @@ +test.debug.exe
+.bmx
\ No newline at end of file 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 |