Pitch Problems

graphics3d 800, 600, 32, 1

global cam = createcamera()
global light = createlight()

global ball = createsphere()

setbuffer backbuffer()

while not keyhit(1)
     PositionEntity Cam, entityx(Ball), entityy(Ball), entityz(ball)
     RotateEntity Cam, entitypitch(Ball), entityyaw(Ball), 0
     MoveEntity Cam, 0, 0, -10

     if keydown(200) then
          Turnentity Ball, 1, 0, 0
     elseif keydown(208) then
          Turnentity Ball, -1, 0, 0
     endif

     UpdateWorld: renderworld
     
     flip: cls
wend:End

Does any one else get problems with this code...
on my machine when the pitch gets greater then 90, or less then -90 it goes wierd.

put this code:

    PositionEntity Cam, entityx(Ball), entityy(Ball), entityz(ball)
     RotateEntity Cam, entitypitch(Ball), entityyaw(Ball), 0
     MoveEntity Cam, 0, 0, -10

outside of the main while..wend loop.

If you leave it inside the loop, then the ball rotation affects also the camera position and rotation. Which, I guess, is not exactly what you want..

Anyway, I've made a slight modification to your code, it may inspire you:

Graphics3D 800, 600, 32, 2

Global cam = CreateCamera()
Global ball = CreateSphere(32)
ScaleEntity ball,2,2,2

Global light = CreateLight(3) ;spot light
PositionEntity light,0,5,0
PointEntity light,ball

;let's just create a squared texture
batex = CreateTexture(32,32)
SetBuffer TextureBuffer(batex)
Color 200,25,0
Rect 2,2,30,30
SetBuffer BackBuffer()
EntityTexture ball,batex
ScaleTexture batex,0.1,0.1



SetBuffer BackBuffer()

PositionEntity Cam, EntityX(Ball), EntityY(Ball), EntityZ(ball)
RotateEntity Cam, EntityPitch(Ball), EntityYaw(Ball), 0
MoveEntity Cam, 0, 0, -10

While Not KeyHit(1)


     If KeyDown(200) Then
          TurnEntity Ball, 1, 0, 0

     ElseIf KeyDown(208) Then
          TurnEntity Ball, -1, 0, 0
     EndIf

     UpdateWorld: RenderWorld
     
     Flip: Cls
Wend:End

Sergio.

no that is what i want, i am trying to make a 3d flight combat game and i need it so that you can do loop'da'loops and things like that.

good luck then with your

Sergio.

I think for a 3D flight sim you shouldn't use rotateentity at all, instead use Turnentity and feed it directly with the forces of the flight controls: the average of both tail planes that are both above or both below the normal level will give you the pitch to TURN. The diffrence of both of them will also give you the roll to turn (well, if it's a jet fighter thing)

And for the camera, I'd suggest to calculate a point that is behind the camera and then rubber-band-move the camera to that point continously (smoothed). Or you coul d even parent the camera to the plane. Or you can parent a dummy pivot to the airplane and then rubber-nand-move the camera to that pivots position, and simply point the camera to the airplane.

Ok, I see now what you meant. I wrote a little Flight sim and everything works fine, I can do Loopings etc. withtout any problem, using the TurnEntity Command. But then I wanted some Filght Control Displays onscreen that shows the angles of the airplane. Now ENtityPitch gives me a range from -90 to 90. But unfortunately it doesn't represent a circe from 0 to 360 that would restart at 0 when it reaches 361, but goes up from 0 to 90, then sinks down to -90, just to raise again to 0. Additionally the EntityYaw also jumps from 0 to 180 at a certain point of the Pitch.

sorry, I currently have no better idea than to add a value to a variable simultanously with TurnEntity and from time to time correct the variable when Pitch passes the angle Zero.

somtimes it also effects the roll as well which can be very annoying :<

can u show me the code you used for the filght sim plz

Graphics3D 640,480,32,2
SetBuffer BackBuffer()

TFormFilter 0
Dim side(35) ; used for the display
side(0)=LoadImage("hud_side.bmp")
For i=1 To 35
 side(i)=CopyImage(side(0))
 MidHandle side(i)
 RotateImage(side(i)),i*10
Next
MidHandle side(0)

jet=CreatePivot()
PositionEntity jet,0,3,0
camera=CreateCamera(jet)
CameraRange camera,1,100000
CameraFogMode camera,1
CameraFogRange camera,100,100000
CameraFogColor camera,100,150,170
CameraClsColor camera,100,150,170


ground=CreatePlane()
tex=CreateTexture(1024,1024) ; create a random "landscape"
SetBuffer TextureBuffer(tex)
For i=0 To 5000
 Color Rand(128,255),Rand(128,255),Rand(50,100)
 Rect Rand(-100,1124),Rand(-100,1124),Rand(100),Rand(100),1
Next
SetBuffer BackBuffer()
ScaleTexture tex,10000,10000
EntityTexture ground,tex

speed#=0

EntityType ground,2
EntityType jet,1
Collisions 1,2,2,2



While KeyDown(1)=0

 If KeyDown(200) Then
  speed=speed+1
  If speed >50 Then speed=50
 EndIf
 If KeyDown(208) Then
  speed=speed-.1
  If speed <0 Then speed=0
 EndIf
 button=GetJoy()
 jxs$=JoyX()
 jys$=JoyY()
 jzs$=JoyZ()
 If Instr(jxs$,"e")<>0 Then jxs$="0" ; prevent joystick rounding errors trough exponentional notation...
 If Instr(jys$,"e")<>0 Then jys$="0"
 If Instr(jzs$,"e")<>0 Then jzs$="0"
 jx#=jxs$
 jy#=jys$
 jz#=jzs$

 MoveEntity jet,0,0,speed ; forward
 TranslateEntity jet,0,-1.0,0 ; down by gravity
 rudl#=jy+(-jx) ; check rudders
 rudr#=jy+jx

 
 turnpitch#=-(rudl+rudr)/2.0
 turnroll#=rudl-rudr
 
 TurnEntity jet,turnpitch,0,turnroll

 UpdateWorld()
 RenderWorld()

 ; just some disply stuff
 Color 255,255,255
 Text 0,64,"Atlitude: "+ EntityY(jet)+" m"
 Text 0,80,"Speed: "+speed
 Oval 0,0,50,50,0
 Line 25+Cos(EntityRoll(jet,1))*25,25+Sin(EntityRoll(jet,1))*25,50-(25+Cos(EntityRoll(jet,1))*25),50-(25+Sin(EntityRoll(jet,1))*25)
 Line 25+Cos(EntityRoll(jet,1))*25,25+Sin(EntityRoll(jet,1))*25,50-(25+Cos(EntityRoll(jet,1)+90)*5),50-(25+Sin(EntityRoll(jet,1)+90)*5)
 Line 50-(25+Cos(EntityRoll(jet,1))*25),50-(25+Sin(EntityRoll(jet,1))*25),50-(25+Cos(EntityRoll(jet,1)+90)*5),50-(25+Sin(EntityRoll(jet,1)+90)*5)

50-(25+Sin(EntityPitch(jet,1))*25)
 wside=(18+(((EntityPitch(jet,1)+90.0)*2.0)/10.0))Mod 35
 If wside>35 Then wside=36
 If wside<0 Then wside=0
 DrawImage side(wside),85,25
 Text 120,25,"Pitch: "+EntityPitch(jet,1)
 Flip
Wend

It uses a joystick. First press the Cursor Up key to accellerate. THen pull back the Joystick to lift off. It's using a 50*50 Pixel sideview image of a jetfighter, but as I described, the display stuff don't works as I wanted. The solution I explained in my lates post isn't implemented here.

But of course, like in any 3D game, you need to remain inside a range of -32000 to 32000 to prevent zbuffer inaccuracies (that would result in wobbling geometry)