; dxCreatePlane Example
; -------------------

dxGraphics3D 640,480
dxSetBuffer dxBackBuffer()

camera=dxCreateCamera()
dxPositionEntity camera,0,1,0

light=dxCreateLight()
dxRotateEntity light,90,0,0

; Create plane
plane=dxCreatePlane()

grass_tex=dxLoadTexture( "media/mossyground.bmp" )

dxEntityTexture plane,grass_tex

While Not dxKeyDown( 1 )

If dxKeyDown( 205 )=True Then dxTurnEntity camera,0,-1,0
If dxKeyDown( 203 )=True Then dxTurnEntity camera,0,1,0
If dxKeyDown( 208 )=True Then dxMoveEntity camera,0,0,-0.05
If dxKeyDown( 200 )=True Then dxMoveEntity camera,0,0,0.05

dxRenderWorld

dxText 0,0,"Use cursor keys to move about the infinite plane"

dxFlip

Wend

End