blitz-research
22 lines
277 B
BlitzBasic
22 lines
277 B
BlitzBasic
; CreateSphere Example
|
|
; --------------------
|
|
|
|
Graphics3D 640,480
|
|
SetBuffer BackBuffer()
|
|
|
|
camera=CreateCamera()
|
|
|
|
light=CreateLight()
|
|
RotateEntity light,90,0,0
|
|
|
|
; Create sphere
|
|
sphere=CreateSphere()
|
|
|
|
PositionEntity sphere,0,0,5
|
|
|
|
While Not KeyDown( 1 )
|
|
RenderWorld
|
|
Flip
|
|
Wend
|
|
|
|
End |