1 files changed, 51 insertions, 0 deletions
diff --git a/glflag/test.bmx b/glflag/test.bmx
new file mode 100644
index 0000000..24aa3ba
--- /dev/null
+++ b/glflag/test.bmx
@@ -0,0 +1,51 @@
+' $Id$
+
+Import noddybox.glflag
+
+Const SCRW=800
+Const SCRH=600
+
+bglCreateContext(SCRW,SCRH,32,0,BGL_BACKBUFFER|BGL_DEPTHBUFFER|BGL_FULLSCREEN)
+glewInit()
+
+tid1=bglTexFromPixmap(LoadPixmap("earth.png"))
+tid2=bglTexFromPixmap(LoadPixmap("tile.png"))
+
+If tid1=0 Or tid2=0
+	RuntimeError "Failed to open textures"
+EndIf
+
+glClearColor(0.0, 0.0, 0.0, 1.0)
+glMatrixMode(GL_PROJECTION)
+glLoadIdentity()
+gluPerspective(45.0, SCRW/SCRH, 10, 10000)
+
+glEnable(GL_DEPTH_TEST)
+glEnable(GL_TEXTURE_2D)
+glEnable(GL_CULL_FACE)
+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
+
+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)
+	bglSwapBuffers
+	FlushMem
+Wend