Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   GR32_Lines 3D Linien zeichnen (https://www.delphipraxis.net/159201-gr32_lines-3d-linien-zeichnen.html)

surfer007 17. Mär 2011 22:51

GR32_Lines 3D Linien zeichnen
 
Liste der Anhänge anzeigen (Anzahl: 2)
Hallo,

ich möchte mit den GR32 Funktionen http://angusj.com/delphi/gr32_lines.php 3D Linien zeichnen. Horizontal habe ich es geschafft und die 3D Linie sieht sehr gut aus! Nun möchte ich aber auch diagonale 3D Linien, abgeknickte (z.B. V) und rechteckige Rahmen zeichnen. Da dies etwas komplizierter scheint als "Hello world" hoffe ich auf die Unterstützung der Delphi-PRAXIS Gemeinde. Anbei mein Testprogramm + Screenshot.

Grüsse,
Surfer

Medium 17. Mär 2011 22:58

AW: GR32_Lines 3D Linien zeichnen
 
Eine Linie mit 3D-Koordinaten ist, auf einem 2D-Bildschirm angezeigt wieder 2D. Vielleicht könntest du dein Vorhaben etwas anders umschreiben, ich vermute hier einfach unglückliche Wortwahl :)

BUG 17. Mär 2011 23:02

AW: GR32_Lines 3D Linien zeichnen
 
@Medium: Guck dir einfach den Anhang an: eine Linie mit 3d-Effekt.

Jens01 17. Mär 2011 23:26

AW: GR32_Lines 3D Linien zeichnen
 
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;

surfer007 18. Mär 2011 14:27

AW: GR32_Lines 3D Linien zeichnen
 
Liste der Anhänge anzeigen (Anzahl: 2)
Die Punkte definieren ist soweit ok. Die Linie in Schwarz oder einer anderen Farbe zu zeichnen ist auch kein Problem. Der Schatten funktioniert auch mit der SimpleShaddow Funktion. Wie schaffe ich es aber das die Linie einen 3D Effekt hat? Das klappt bis jetzt leider nur wenn die Linie gerade ist. Die Linie soll einen 3D Effekt haben auch wenn die Form z.B. ein V oder rechteckiger Ramen usw. ist (siehe Anhang). Sowas möchte ich zeichnen.

Jens01 18. Mär 2011 14:54

AW: GR32_Lines 3D Linien zeichnen
 
Also so bin ich auch nicht in der Materie.
Hast Du schon mal simple3D(..) probiert?

surfer007 14. Apr 2012 15:41

AW: GR32_Lines 3D Linien zeichnen
 
Hallo nochmal,

hat niemand eine Idee wie man solch eine "V" Linie mit 3D Look zeichnen kann?


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:03 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz