Leichter Zugriff auf DirectX durch Kapselung

[schmorbraten]

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