home *** CD-ROM | disk | FTP | other *** search
- ; demo05-02.bb - Creating four cones
- ; ------------------
-
- Graphics3D 640,480
- SetBuffer BackBuffer()
-
- Const ESC_KEY = 1
- ; Create camera
- camera = CreateCamera()
- ; Create a light
- light = CreateLight()
-
- ;Create and position four cones
- coneleft = CreateCone()
- PositionEntity coneleft,-3,2,5
- apple = CreateCone()
- PositionEntity apple,3,1,5
- cone = CreateCone()
- PositionEntity cone,-3,-2,5
- coneyisland = CreateCone()
- PositionEntity coneyisland,0,0,5
-
-
- ; This following code makes our program run
- While Not KeyDown(ESC_KEY)
- RenderWorld
- Flip
- Wend
- End