From f460a00c347b44b7633366275e56a1f2b34b7fa7 Mon Sep 17 00:00:00 2001
From: Ian C <ianc@noddybox.co.uk>
Date: Thu, 15 Sep 2005 01:02:13 +0000
Subject: *** empty log message ***

---
 glflag/test.bmx | 38 +++++++++++++++++++++++---------------
 1 file changed, 23 insertions(+), 15 deletions(-)

(limited to 'glflag')

diff --git a/glflag/test.bmx b/glflag/test.bmx
index 24aa3ba..7fadef6 100644
--- a/glflag/test.bmx
+++ b/glflag/test.bmx
@@ -27,25 +27,33 @@ glDisable(GL_LIGHTING)
 
 glMatrixMode(GL_MODELVIEW)
 
-cells=50
-size=1
-
-'f:GLFlag=GLFlag.Create(tid1,cells,cells,size,False,-200)
-f:GLFlag=GLFlag.Create(tid2,cells,cells,size,True,-200)
-
-c=0
+cells=100
+size=10
+
+f1:TGLFlag=TGLFlag.Create(tid1,cells,cells,size,False,-400)
+f2:TGLFlag=TGLFlag.Create(tid2,cells,cells,size,True,-400)
+
+f1.SetMove(300)
+f2.SetMove(300)
+'f.xrot=-60
+
+For x=0 Until cells
+	For y=0 Until cells
+		dx=cells/2-x
+		dy=cells/2-y
+		
+		f1.Nudge(x,y,((dx*dx)+(dy*dy))*10,50)
+		f2.Nudge(x,y,((dx*dx)+(dy*dy))*10+1800,50)
+		c:+100
+	Next
+Next
 
 While Not KeyDown(KEY_ESCAPE)
-	c:+1
-	
-	If (c=100)
-		f.Nudge(Rand(0,cells-1),Rand(0,cells-1),Rnd(),Rnd(),Rnd())
-		c=0
-	EndIf
-	
 	glClear(GL_COLOR_BUFFER_BIT|GL_DEPTH_BUFFER_BIT)
 	glLoadIdentity()
-	f.Render(0.9,0.95)
+	f1.Render()
+	f2.Render()
+	'f.yrot:+0.1
 	bglSwapBuffers
 	FlushMem
 Wend 
-- 
cgit v1.2.3