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;