Import sidesign.minib3d
Graphics3D 800,600,32,1
camera=CreateCamera()
light=CreateLight()
RotateEntity light,90,0,0
sphere=CreateSphere(32)
PositionEntity sphere,0,0,5
Repeat
If KeyDown(205) Then MoveEntity sphere,1,0,0
If KeyDown(203) Then MoveEntity sphere,-1,0,0
If KeyDown(200) Then MoveEntity sphere,0,0,-1
If KeyDown(208) Then MoveEntity sphere,0,0,1
UpdateWorld
RenderWorld
Flip
Until KeyDown(1)
The code will not let me move the sphere and it says the exe has stopped responding. I have MinGW installed and I have the latest version of BlitzMax for Windows and it doesn't work right. Can someone please help me figure out what im doing wrong with this? Im sure im missing something just not sure what that is.
Thank you!
Last edited 2012
|