Hallo Mimi,
habe das in
xorDX8 mitgelieferte Bowling-Beispiel verändert. Ich hoffe, es hilft Dir.
Im wesentlichen sieht der Source so aus:
Delphi-Quellcode:
//repeated drawing routine
procedure TForm1.Draw(Sender: TObject);
const
MoveZ: Single = 0.01;
begin
Scene.Clear;
GetKeyboard(MoveZ);
//Move Ball and Camera forward/backward
Ball.Move(0, 0, MoveZ);
Camera.MoveForward(MoveZ, xorDXCamHuman);
Camera.Activate;
Grid.Insert;
Grid.Draw;
DrawMultiMaps;
Ball.Insert;
Ball.Draw;
end;
Viele Grüße
xor alias Schmorbraten