1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
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
|
