Sorry your browser is not supported!

Sync On : Sync Rate 0



`Just make a scene to fly around in.
For x = 1 To 100

   Make Object Cube x,(Rnd(30) + 20)

   xpos = Rnd(1000)
   ypos = Object Size(x)/2
   zpos = Rnd(1000)

   Position Object x,xpos,ypos,zpos

Next x



`Just set's the initial position of the camera
Position Camera 500,50,500
Point Camera 1000,50,500




Do


   _refresh_mirror(Screen Width()/2 - 150,20,Screen Width()/2 + 150,120)

   _basic_controls()


   Text 0,0,Str$(Screen FPS())


Sync
Loop






Function _refresh_mirror(left,top,right,bottom)


   `Puts in a simple box so you can tell the difference of the mirror with the actual background
   Line left - 1,top - 1,left - 1,bottom + 1
   Line left - 1,bottom + 1,right + 1,bottom + 1
   Line right + 1,bottom + 1,right + 1,top - 1
   Line right + 1,top - 1,left - 1,top - 1

   `Turns the camera around
   YRotate Camera WrapValue(Camera Angle Y() + 180)

   `Set's the camera's view port to only be on that area of the screen
   Set Camera View left,top,right,bottom

   `Makes the camera face its original direction
   YRotate Camera WrapValue(Camera Angle Y() - 180)

   `Reset's the camera's view port.
   Set Camera View 0,0,Screen Width(),Screen Height()


EndFunction




Function _basic_controls()


   If UpKey() = 1 Then Move Camera 5
   If DownKey() = 1 Then Move Camera -5

   If RightKey() = 1 Then YRotate Camera WrapValue(Camera Angle Y() + 1.5)
   If LeftKey() = 1 Then YRotate Camera WrapValue(Camera Angle Y() - 1.5)


EndFunction