From b862dc950a4b19216e169c6d56a47b830b4ba769 Mon Sep 17 00:00:00 2001
From: Ian C <ianc@noddybox.co.uk>
Date: Wed, 21 Sep 2005 00:48:31 +0000
Subject: *** empty log message ***

---
 algorithm/.cvsignore |  2 ++
 algorithm/test.bmx   | 26 ++++++++++++++++++++++++++
 2 files changed, 28 insertions(+)
 create mode 100644 algorithm/.cvsignore
 create mode 100644 algorithm/test.bmx

(limited to 'algorithm')

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
-- 
cgit v1.2.3