diff options
Diffstat (limited to 'glflag')
-rw-r--r-- | glflag/.cvsignore | 3 | ||||
-rw-r--r-- | glflag/earth.png | bin | 0 -> 324058 bytes | |||
-rw-r--r-- | glflag/test.bmx | 51 | ||||
-rw-r--r-- | glflag/tile.png | bin | 0 -> 287 bytes |
4 files changed, 54 insertions, 0 deletions
diff --git a/glflag/.cvsignore b/glflag/.cvsignore new file mode 100644 index 0000000..795866f --- /dev/null +++ b/glflag/.cvsignore @@ -0,0 +1,3 @@ +.bmx
+test.exe
+test.debug.exe
\ No newline at end of file diff --git a/glflag/earth.png b/glflag/earth.png Binary files differnew file mode 100644 index 0000000..6abc6fe --- /dev/null +++ b/glflag/earth.png 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 diff --git a/glflag/tile.png b/glflag/tile.png Binary files differnew file mode 100644 index 0000000..a68eec4 --- /dev/null +++ b/glflag/tile.png |