diff options
| author | Ian C <ianc@noddybox.co.uk> | 2005-09-21 00:48:31 +0000 |
|---|---|---|
| committer | Ian C <ianc@noddybox.co.uk> | 2005-09-21 00:48:31 +0000 |
| commit | b862dc950a4b19216e169c6d56a47b830b4ba769 (patch) | |
| tree | 280408e8bf3a575c0884e35b1c8302cda19684ea /algorithm | |
| parent | d2d6b14d7a69baffb448f9c06b392011eda37410 (diff) | |
*** empty log message ***
Diffstat (limited to 'algorithm')
| -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 |