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)
@scene = Scene.Create()
Scene.Viewport.Set(@scene, @viewport)
Scene.Camera.Assign(@scene, @camera)
Mesh.Rotation.Stack(-30, 30, 0)
@cube = Mesh.Cube.Create(40)
Scene.Mesh.Assign(@scene, @cube)
Scene.Display(@scene)
Viewport.Display(@viewport)
Screen.Set(FRONT)
Text.Display("The current number of lights assigned to the scene is : " + STR(Scene.Light.Number.Get(@scene)), CENTER, 10)
Text.Display("Press a key to exit.", CENTER, 350)
Keyboard.Wait()
Screen.End()
Mesh.Kill(@cube)
Scene.Kill(@scene)
Viewport.Kill(@viewport)
Camera.Kill(@camera)
Script.Stop()