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)
Mesh.Position.Stack(30, 0, 0)
@cube = Mesh.Cube.Create(40)
Scene.Mesh.Assign(@scene, @cube)
Mesh.Color.Stack(255, 0, 0)
Mesh.Rotation.Stack(45, 45, 45)
Mesh.Position.Stack(-30, 0, 0)
@cube2 = Mesh.Cube.Create(40)
Scene.Mesh.Assign(@scene, @cube2)
Scene.Display(@scene)
Viewport.Display(@viewport)
Screen.Set(FRONT)
Text.Display("Press a key to remove the red cube from the scene.", CENTER, 10)
Keyboard.Wait()
Scene.Mesh.Remove(@scene, @cube2)
Box.Fill.Select()
Box.Clear(0, 10, 512, 10)
Text.Display("Press a key to exit.", CENTER, 350)
Keyboard.Wait()
Screen.End()
Mesh.Kill(@cube2)
Mesh.Kill(@cube)
Scene.Kill(@scene)
Viewport.Kill(@viewport)
Camera.Kill(@camera)
Script.Stop()