Function EnableSimpleLighting()
glEnable GL_LIGHTING
glEnable GL_LIGHT0
bank=CreateBank(16)
PokeFloat bank,0,0.5
PokeFloat bank,4,0.5
PokeFloat bank,8,0.5
PokeFloat bank,12,1.0
glLightfv GL_LIGHT0,GL_DIFFUSE,bank
PokeFloat bank,0,WORLDSIZE*1.0
PokeFloat bank,4,WORLDSIZE*1.2
PokeFloat bank,8,-WORLDSIZE*1.4
PokeFloat bank,12,1.0
glLightfv GL_LIGHT0,GL_POSITION,bank
PokeFloat bank,0,0.0
PokeFloat bank,4,0.0
PokeFloat bank,8,0.0
PokeFloat bank,12,1.0
glLightfv GL_LIGHT0,GL_AMBIENT,bank
FreeBank bank
glEnable GL_LIGHT1
bank=CreateBank(16)
PokeFloat bank,0,0.25
PokeFloat bank,4,0.25
PokeFloat bank,8,0.25
PokeFloat bank,12,1.0
glLightfv GL_LIGHT1,GL_DIFFUSE,bank
PokeFloat bank,0,-WORLDSIZE*1.0
PokeFloat bank,4,-WORLDSIZE*1.2
PokeFloat bank,8,WORLDSIZE*1.4
PokeFloat bank,12,1.0
glLightfv GL_LIGHT1,GL_POSITION,bank
PokeFloat bank,0,0.0
PokeFloat bank,4,0.0
PokeFloat bank,8,0.0
PokeFloat bank,12,1.0
glLightfv GL_LIGHT1,GL_AMBIENT,bank
FreeBank bank
End Function