ich wollte ein einfaches programm machen ein bahn die du von oben siehst und eine kugel drauf die sich begt, dabei ist mir folgendes aufgefallen(ersteinmal)
sobalt ich die z position veränder(also nach vorne oder nach hinten gehen möchte) wird auch auto. x und y veränedert
folgende qullcode habe ich dafür geschrieben:
Delphi-Quellcode:
//creation
Scene := TxorDXScene.Create(
Handle);
Camera := TxorDXCamera.Create(Scene);
Rect := TxorDXRect.Create(Scene, 100, 100, 100, 2);
//set standard coordinates and colors
Ball := TxorDXBall.Create(Scene, 60, 30, 0.4);
//set standard coordinates and colors
Ball.MonoChrom(clRed);
Ball.Move(33,-22.8,-52);
Rect.RotateX(180);
Rect.RotateY(0.9);
Rect.RotateZ(-0.6);
Scene.SetBackgroundColor(0,0,0,0);
Scene.AutoLightOnOff:=True;
Scene.CreateBuffers;
//start
// lingx/rechts; nähre dran weiter weg,
Camera.Move(32.5,-26,-50);
Camera.SetStandard;
Camera.Activate;
Scene.StartLooping(Draw);
//loop drawing routine
und dann möchte ich noch genre das sich die kugel nach hinten bewegt und die kamera soll folgen in einen konstanten abstandt naja ich habe daüfr folgenden code in der Draw procedure geschrieben:
Delphi-Quellcode:
Scene.Clear;
Rect.Insert;
Rect.Draw;
Ball.Insert;
Ball.Move(0,0,0.1);
Ball.Draw;
im anhang gibt die exe und ein bild