summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorIan C <ianc@noddybox.co.uk>2005-09-21 00:48:31 +0000
committerIan C <ianc@noddybox.co.uk>2005-09-21 00:48:31 +0000
commitb862dc950a4b19216e169c6d56a47b830b4ba769 (patch)
tree280408e8bf3a575c0884e35b1c8302cda19684ea
parentd2d6b14d7a69baffb448f9c06b392011eda37410 (diff)
*** empty log message ***
-rw-r--r--algorithm/.cvsignore2
-rw-r--r--algorithm/test.bmx26
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