Graphics3D 1024,768,32,0
SetBuffer BackBuffer ()
camera=CreateCamera()
PositionEntity camera,0,50,-50
RotateEntity camera,50,0,0
pivot=CreatePivot()
sphere1=CreateSphere(8,pivot)
ScaleEntity sphere1,3,3,3
PositionEntity sphere1,30,0,0
EntityColor sphere1,255,120,0
pivot2=CreatePivot(sphere1)
sphere2=CreateSphere(8,pivot2)
PositionEntity sphere2,4,0,0
While Not KeyHit(1)
TurnEntity pivot,0,1,0
If KeyDown(17) TurnEntity pivot2,0,4,4
If KeyDown(31) TurnEntity pivot2,0,-4,-4
RenderWorld()
UpdateWorld()
Flip
Wend
End
Управление W и S .