summaryrefslogtreecommitdiff
path: root/glflag/test.bmx
diff options
context:
space:
mode:
Diffstat (limited to 'glflag/test.bmx')
-rw-r--r--glflag/test.bmx51
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