Screen.Resolution.Set(512, 384)
Screen.Set(BACK)
Pattern.Display("avo\bubble.gif")
Screen.End()
@camera = Camera.Create(0.0, 0.0, -100.0, 0.0, 0.0, 0.0)
@viewport = Viewport.Create()
Viewport.Camera.Set(@viewport, @camera)
Mesh.Rotation.Stack(-30, 30, 0)
@cube = Mesh.Cube.Create(40)
Mesh.Display(@cube)
Viewport.Display(@viewport)
Screen.Set(FRONT)
Text.Display("The X component of the position of the camera is : " + STR(Camera.Position.X.Get(@camera), ".##"), CENTER, 10)
Text.Display("Press a key to exit.", CENTER, 350)
Keyboard.Wait()
Screen.End()
Mesh.Kill(@cube)
Viewport.Kill(@viewport)
Camera.Kill(@camera)
Script.Stop()