' $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