' $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=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)
	glClear(GL_COLOR_BUFFER_BIT|GL_DEPTH_BUFFER_BIT)
	glLoadIdentity()
	f1.Render()
	f2.Render()
	'f.yrot:+0.1
	bglSwapBuffers
	FlushMem
Wend