Firemonkey: Wie erstellt man ein 3D Polygon?

[Maiky]

Hallo.

Ich habe mir das Rad Studio XE Demo installiert, weil ich das Firemonkey 3D unbedingt endlich mal ausprobieren möchte. Ich habe ein älteres Programm, wo ich Schnitte aus Polygonen darstelle (Punkteliste x und y), als ein Rahmen oder als ausgefüllte Fläche. Ich würde diese Ansicht gern in 3D darstellen und rotieren und zoomen wollen. Ist dies mit wenigen möglich Änderungen möglich? Kennt hier jemand ein Tutorial oder hat eventuell ein kleines Beispiel genau für diesen Fall?

Soweit ich mich eingelesen habe, besteht ja ein 3D Objekt aus vielen Dreiecken. Ich habe aber nur eine Punkteliste die in Uhrzeigersinn dann miteinander verbunden werden.


Man könnte tricksen und anstatt eines Polygons einfach viele einzelne Striche zeichnen, aber weder kann ich so die Fläche befüllen, noch die "Striche" eine Dicke geben, damit man diese besser erkennt.

Wäre über jede Hilfe sehr Dankbar. ;)

[himitsu]

Du könntest zwei Punkte des Dreicks aus einen Punkt legen und schon hast du eine Linie. :angle:

Wenn man die Rahmen (Border) und Flächen getrennt definieren kann und dort sowas wie Rahmenbreite hat, dann hättest du damit auch die Liniendicke.

[Harry Stahl]

Die Aufgabe sollte mit FMX lösbar sein. Dein Polygon bzw. einen Schnitt daraus solltest Du mit einer TPath (oder TPath3D) Komponente darstellen können. Du verbindest da einfach die einzelnen Koordinaten miteinander.

Anliegend mal ein kleines Beispiel, wo Du ein Polygon per gedrückter Maus nach links, rechts, oben unten drehen kannst. Mit der Trackbar kannst Du rein oder rauszoomen. Soll die Polygon-Fläche keine Tiefe haben, stellst Du "Depth" einfach auf Null.

[Maiky]

@Harry Stahl
Wow! Vielen lieben Dank! Das ja mal Service pur. :-D
Ich werde mir es morgen mal genauer anschauen, ob so klappt wie ich es benötige. Eine Frage zu TPath3D bezüglich der "Path"-Eigenschaft hätte ich noch. Wurden die Punkte manuell eingetragen? Die Werte sind so groß :)

Code:

M-594.285705566406,-4.78067541122437 L-370.264343261719,-427.405303955078 L100.902008056641,-344.946502685547 L168.077438354492,128.640472412109 L-261.572204589844,338.87451171875 Z

Gibt es irgendwo eine Syntaxbeschreibung zu dem String für die "Path"-Eigenschaft? In der beliegenden Doku(F1) fand ich bisher dazu leider noch nichts.
http://docwiki.embarcadero.com/Libra...D.TPath3D.Path

[himitsu]

Also von Emba gibt es da scheinbar keine Hilfe.

Hatte auch damals danach gesucht.

[Harry Stahl]

Nein, das Polygon habe ich mit Inkscape erstellt und dann die Daten nach Delphi kopiert.

Synthax-Beschreibung habe ich bei Emba nirgendwo gefunden, habe bislang nur ein paar Paramenter selber rausgefunden (M = Move, L= LineTo, Z= ClosePath). Hier in der Path-Componente funktioniert anscheinend nur ein Teilausschnitt der SVG-Kommandos, da "forsche" ich gerade noch.

Allerdings kommt man i.d.R. mit den o.g. Kommandos ganz gut zurecht.

[Maiky]

Es handelt sich vermutlich um dies: http://www.w3schools.com/svg/svg_path.asp

Zitat:

The following commands are available for path data:

M = moveto
L = lineto
H = horizontal lineto
V = vertical lineto
C = curveto
S = smooth curveto
Q = quadratic Bézier curve
T = smooth quadratic Bézier curveto
A = elliptical Arc
Z = closepath

Ein anderer sagt:
http://codeverge.com/embarcadero.del...e-code/1040868

Zitat:

I've traced the PathData property and checked what input can it read...
It seems that the developers define a propriatry structure that would be
used here is a short description of what command can the "PathData" property
can receive and read (CX is coordinate x value, CY is coordinate y value, CZ
is coordinate z value):

Z - Close path
M CX CY CZ - MoveTo/LineTo vector
m CX CY CZ - MoveTo/LineToRel vector (don't know what rel is)
L CX CY CZ - LineTo vector
l CX CY CZ - LineToRel vector (don't know what rel is)
C CX CY CZ - CurveTo vector
c CX CY CZ - CurveToRel vector (don't know what rel is)
S CX CY CZ - SmoothCurveTo vector (what does smooth mean in contras to only
Curve I do not know?)
s CX CY CZ - SmoothCurveToRel vector (what does smooth mean in contras to
only Curve I do not know?)
H ? - HLineTo
h ? - HLineToRel
V ? - VLineTo
v ? - VLineToRel

manage to do little with that,. so far...
where is Delphi XE2 FM Help ?

Ist es eigentlich ein Bug, wenn man Path3D in den Eigenschaften auf Visible:=false setzt und die (wie nennt man diese) Bewegungsdinger immernoch sichtbar sind im Designer?

Ich würde es dann einfach über diese Form eintragen:

Code:

Path3D1.Path.Clear;
Path3D1.Path.MoveTo(PointF(1.650, 0.000));
Path3D1.Path.LineTo(PointF(4.184, 0.000));
......
Path3D1.Path.ClosePath;

Eine Frage hätte ich dann noch zur Farbe. Kann man eigentlich irgendwo umschalten zwischen ausgefüllt und als Wireframe-Darstellung? So, dass man nur die Linien sieht?

[himitsu]

Bei CX CY CZ , bzw. CX CY kommt es bestimmt darauf an, ob 3D oder 2D.

Zitat:

H ? - HLineTo
h ? - HLineToRel
V ? - VLineTo
v ? - VLineToRel

Vermutlich nur 1 Parameter, da sich der Andere ja nicht verändert.
Und Relativ ist relativ zum Wert der vorherigen Position.

[Harry Stahl]

Zitat:

Zitat von Maiky (Beitrag 1302152)

Ist es eigentlich ein Bug, wenn man Path3D in den Eigenschaften auf Visible:=false setzt und die (wie nennt man diese) Bewegungsdinger immernoch sichtbar sind im Designer?

Ja, da scheint etwas buggy zu sein. Denn Visible bleibt nicht erhalten, wenn man auf eine andere Komponente klickt und dann wieder auf die Path-Komponente, dann ist die plötzlich wieder visible.

Zitat:

Zitat von Maiky (Beitrag 1302152)

Eine Frage hätte ich dann noch zur Farbe. Kann man eigentlich irgendwo umschalten zwischen ausgefüllt und als Wireframe-Darstellung? So, dass man nur die Linien sieht?

Ich hatte im Demo ja verschiedene ColorMaterialSources für die die entsprechenden Eigenschaften (Back, Shaft, Front) verwendet. Wenn Du die wieder auf NIL setzt, könntest Du alternativ testen, ob Du mit TextureMaterialsource so eine Art Gitternetz als Texture laden kannst und das Deinen Vorstellungen entspricht.

[Harry Stahl]

Die Pathdaten werden Inder Unit FMX.Graphics verarbeitet (SetPathString).

Die Arc-Function (Parameter "A") erwartet demnach folgende Parameter:

AddArcSvg(CP1, R, Angle, Large, Sweet, CP2);

CP1, R = TPointF,
Angle = Single
Large, Sweet = Boolean
CP2 = TPointF

Da offensichtlich der SVG-"circle" Befehl nicht verarbeitet wird, habe ich versucht, den Kreis mit dem ARC-Kommando zu zeichnen.

Leider blicke ich da nicht ganz durch, wie das richtig zu verwenden ist.

Hat Jemand eine Ahnung, wie man das hiermit lösen könnte?

[Harry Stahl]

Also mit dem ARC-Kommando würde ich zwei Halbkreise zeichnen können. Folgende Pathdaten ergeben z.B. ein Rechteck, darin ein Kreis:

Delphi-Quellcode:

M230,227 a1,1,0,0,1,140,140 M230,227 a1,1,0,0,0,140,140 // Der Kreis
M198,198 L399,198 L399,399 L198,399 L198,198 // Das Quadrat

Sie auch anliegenden Screenshot.

I.d.R. wäre es ja am einfachsten, man geht von den Daten des Quadrats aus und transformiert diese in die Daten, die man mit der ARC-Function verwenden muss.

Diese Transformation macht mir gerade Schwierigkeiten, ich finde einfach nicht raus, wie das zu machen wäre (die Beispiel-Daten habe ich nur per "trial and error" rausgefunden).

[Maiky]

Zitat:

Zitat von Harry Stahl (Beitrag 1302360)

Zitat:

Zitat von Maiky (Beitrag 1302152)

Eine Frage hätte ich dann noch zur Farbe. Kann man eigentlich irgendwo umschalten zwischen ausgefüllt und als Wireframe-Darstellung? So, dass man nur die Linien sieht?

Ich hatte im Demo ja verschiedene ColorMaterialSources für die die entsprechenden Eigenschaften (Back, Shaft, Front) verwendet. Wenn Du die wieder auf NIL setzt, könntest Du alternativ testen, ob Du mit TextureMaterialsource so eine Art Gitternetz als Texture laden kannst und das Deinen Vorstellungen entspricht.

Ich meinte es mehr so wie ein normales Polygon, welches eben nicht ausgefüllt ist. Also man sieht nur die Linien zwischen den Punkten. :)

[Harry Stahl]

Wenn man nur das Gitter anzeigen will, dann denke ich, dass man hier das TMesh nutzen muss, was dann aber schon deutlich komplizierter zu handeln ist. Bei einer TPath3D Komponente ist mir jedenfalls keine Möglichkeit bekannt, das so wie von Dir gewünscht hin zu bekommen.

[Maiky]

Ich hatte eigentlich nur gehofft dass es TPath3D auch ohne "ausfüllen" möglich ist. Ich benötige es ausgefüllt, aber auch als Linienversion. Dann muss ich wohl einfach es als Linien zeichnen. ;)

Ich möchte Scheiben/Schnitte hintereiannder packen und immer eines davon soll ausgefüllt sein und der Rest nur als "Rahmen" angezeigt.

[Harry Stahl]

Zitat:

Zitat von Maiky (Beitrag 1302152)

Es handelt sich vermutlich um dies: http://www.w3schools.com/svg/svg_path.asp
The following commands are available for path data:

M = moveto
L = lineto
H = horizontal lineto
V = vertical lineto
C = curveto
S = smooth curveto
Q = quadratic Bézier curve
T = smooth quadratic Bézier curveto
A = elliptical Arc
Z = closepath

Also, wenn man das alles manuell eingeben / berechnen muss, erscheint das ein wenig kompliziert. Habe daher mein PixPower Programm jetzt erweitert (Beta), so dass man Formen wie Linie, Dreieck, Rechteck, Kreis, Elipse einfach im Programm zeichnen kann und das Programm liefert dann die Path-Data-Werte zurück.

So könnte man z.B. sich selber auch Path-Icons zeichnen und die in Buttons oder anderen Grafik-Elementen verwenden. Also als Alternative zum Multires-Bitmap, wo man die verschiedenen Auflösungen bereit halten muss.

Habe dazu auch mal ein kleines Video auf YouTube hinterlegt:

http://youtu.be/bIYV8atNhqA