[impersonalis]

[highlight=blitzbasic]
R#=30
x#=0
y#=0
z#=0
;=========
Graphics3D 800,600
SetBuffer BackBuffer()

camera=CreateCamera()
PositionEntity camera,x,y,z

sphere=CreateSphere()
FlipMesh sphere
EntityAlpha sphere,0.6
ScaleEntity sphere,R#,R#,R#
PositionEntity sphere,x,y,z
u#=80
;============
Local pivot=CreatePivot()
Local pivot2=CreatePivot()
PositionEntity pivot,EntityX(sphere,1),EntityY(sphere,1),EntityZ( sphere,1)
EntityParent pivot2,pivot
PositionEntity pivot2,0,0,R
For II=1 To 500
Local sp=CreateSprite()
EntityColor sp,255,0,0
TurnEntity pivot,Rnd(0,360),Rnd(0,360),0
PositionEntity sp,EntityX(pivot2,1),EntityY(pivot2,1),EntityZ(piv ot2,1)
Next
;============
While Not KeyHit(1)
TurnEntity camera,MouseYSpeed(),-MouseXSpeed(),0
MoveMouse GraphicsWidth()*0.5,GraphicsHeight()*0.5
If Abs(EntityPitch#(camera))>u# RotateEntity camera,u#*Sgn(EntityPitch#(camera)),0,0

RenderWorld()
Flip
Wend
End
[/highlight]