GR32_Lines 3D Linien zeichnen

[Jens01]

Mit 3D habe ich dort wenig gezeichnet. Ich habe Dir mal eine Procedure hier als Beispiel reingestellt. Du mußt die einzelnen Punkte definieren und dann mit Draw auf das Bitmap zeichnen. Es müßte aber auch ein gutes Beispiel bei TLine32 anbei liegen.

Delphi-Quellcode:

Bitmap: TBitmap32;

procedure TGrafik.DrawDreieck(X, Y: Integer);
var
  Breite, Hoehe: Integer;
  P: TArrayOfFixedPoint;
begin
  Breite := 30;
  Hoehe := 30;
  with Bitmap, TLine32.Create do
  begin
    SetLength(P, 4);
    P[0] := FixedPoint(X, Y);
    P[1] := FixedPoint(X - Breite div 2, Y + Hoehe); // unten links
    P[2] := FixedPoint(X + Breite div 2, Y + Hoehe); // unten rechts
    P[3] := FixedPoint(X, Y); // Spitze
    AddPoints(P);
    Draw(Bitmap, 3, clBlack32);
  end;
end;