[Nahim]

Graphics3D 800,600,16,2
SetBuffer BackBuffer()
ca=CreateCamera()
light=CreateLight()

t1=CreatePivot ()
PositionEntity t1,0,0,9
k1=CreateCube(t1)
ScaleEntity k1,.5,.5,.5
EntityPickMode K1,2

t2=CreatePivot (t1)
PositionEntity t2,0,1,0
k2=CreateCube(t2)
ScaleEntity k2,.7,.7,.7
PositionEntity k2,0,.25,0
EntityPickMode k2,2

t3=CreatePivot (t2)
PositionEntity t3,0,1.25,0
k3_1=CreateCube(t3)
ScaleEntity k3_1,.4,.4,.4
PositionEntity k3_1,.6,.25,0
EntityPickMode k3_1,2
k3_2=CreateCube(t3)
ScaleEntity k3_2,.4,.4,.4
PositionEntity k3_2,-.6,.25,0
EntityPickMode k3_2,2

pitch#=0

While Not KeyDown(1)

If MouseHit(1)=1
CameraPick(ca,MouseX(),MouseY())
If entity<>0 EntityColor entity,255,255,255
entity=PickedEntity()
If entity<>0
EntityColor entity,255,0,0
pitch#=EntityRoll(GetParent(entity),1)
EndIf
EndIf

If entity<>0
If KeyDown( 205 )=True Then pitch#=pitch#-1
If KeyDown( 203 )=True Then pitch#=pitch#+1
RotateEntity GetParent(entity),0,0,pitch#,1
EndIf

RenderWorld

Text 0,20,"Roll: "+pitch#

Flip
Wend
End