BGRABitmap tutorial 15/de: what changed

Revision 1 to 2. Removed lines have a minus sign; added lines have a plus sign.

Old	New		Line
1	1		Dieses Tutorial zeigt Ihnen, wie Sie 3D-Objekte mittels des TBGRAScene3D-Objekts darstellen.
2	2
3	3		## Das Szenenobjekt
4	4
5	5		Das Szenenobjekt ist in der Unit "BGRAScene3D" enthalten. Hier ist ein einfaches Beispiel:
6	6
7	7		``` pascal
8	8		uses BGRAScene3D, BGRABitmap, BGRABitmapTypes;
9	9
10	10		procedure TForm1.FormPaint(Sender: TObject);
11	11		var
12	12		scene: TBGRAScene3D;
13	13		bmp: TBGRABitmap;
14	14		base: array of IBGRAVertex3D;
15	15		topV: IBGRAVertex3D;
16	16		begin
17	17		bmp := TBGRABitmap.Create(ClientWidth,ClientHeight,BGRABlack);
18	18
19	19		scene := TBGRAScene3D.Create(bmp);
20	20		//erzeugt eine Pyramide
21	21		with scene.CreateObject(BGRA(255,240,128)) do
22	22		begin
23	23		//erzeugt die Kanten
24	24		topV := MainPart.Add(0,-15,0);
25	25		//die Basis der Pyramide ist im Uhrzeigersinn angeordnet, wenn wir von unten auf die Pyramide sehen
26	26		base := MainPart.Add([-20,15,-20, 20,15,-20, 20,15,20, -20,15,20]);
27	27
28	28		AddFace(base);
29	29		//fügt vier Flächen hinzu, die drei Kanten sind im Uhrzeigersinn angeordnet
30	30		AddFace([base[0],topV,base[1]]);
31	31		AddFace([base[1],topV,base[2]]);
32	32		AddFace([base[2],topV,base[3]]);
33	33		AddFace([base[3],topV,base[0]]);
34	34		topV := nil;
35	35		base := nil;
36	36		end;
37	37		scene.Render;
38	38		scene.Free;
39	39
40	40		bmp.Draw(Canvas,0,0);
41	41		bmp.Free;
42	42		end;
43	43		```
44	44
45	45		Das Szenenobjekt zeichnet sich selbst auf ein TBGRABitmap-Objekt. Sie können die Bitmap entweder als Parameter beim Erzeugen des Objekts übergeben, so wie hier, oder nachträglich der Eigenschaft "Surface" zuweisen. Die Szene wird automatisch in der Bitmap zentriert.
46	46
47	47		Das Szenenobjekt bietet die Funktion "CreateObject", welche eine Schnittstelle auf das erzeugte Objekt zurückgibt. Objekte innerhalb einer Szene werden automatisch freigegeben, wenn Sie die Szene freigeben.
48	48
49	49		Ein Objekt hat eine Eigenschaft "MainPart", die es erlaubt, Kanten zu erzeugen und auf diese zuzugreifen. Die Koordinaten können als drei einzelne Werte angegeben werden, als TPoint3D-Records, oder als Array von einzelnen Werten, dessen Länge ein Vielfaches von 3 ist. Wenn Sie eine Kante erzeugen, erhalten Sie eine IBGRAVertex3D-Schnittstelle, die Sie zum Erzeugen von Flächen verwenden können.
50	50
51	51		Die X-Achse zeigt nach rechts, die Y-Achse zeigt nach unten, und die Z-Achse zeigt vorwärts (hinter den Bildschirm). Das bedeutet, dass XY gleich liegt wie in einer Bitmap, und dass es einen Wert für die Tiefe gibt. Die Flächen müssen im Uhrzeigersinn geordnet sein, um sichtbar zu sein.
52	52
53	53		Hier wird die Farbe für das gesamte Objekt beim Erzeugen festgelegt, aber Sie können sie auch individuell für jede Fläche setzen, oder für jede Kante.
54	54
55		-	~~<figure>~~
56		-	~~<img src="BGRATutorial15a.png" title="BGRATutorial15a.png" />~~
57		-	~~<figcaption>BGRATutorial15a.png</figcaption>~~
58		-	~~</figure>~~
	55	+	![](/wiki-images/a/af/BGRATutorial15a.png)
59	56
60	57		Wie Sie sehen, wird die Pyramide von der Seite gezeigt, wir können also nur eine Fläche sehen. Es gibt auch keine Beleuchtung.
61	58
62	59		Fügen Sie im 'with'-Block folgende Zeilen ein:
63	60
64	61		``` pascal
65	62		MainPart.Scale(1.3);
66	63		MainPart.RotateYDeg(30);
67	64		MainPart.RotateXDeg(20);
68	65		MainPart.Translate(0,-5,0);
69	66		```
70	67
71	68		Die erste Zeile macht das Objekt etwas größer. Zwei Drehungen werden angewendet. Die erste erfolgt um die Y-Achse und die zweite um die X-Achse. Um den Drehsinn festzulegen, schauen wir in Richtung einer Achse. Ein positiver Wert in Grad bedeutet eine Drehung im Uhrzeigersinn, ein positiver Wert in Radiant bedeutet eine Drehung im Gegenzeigersinn.
72	69
73	70		Zuletzt erfolgt eine vertikale Schiebung, um das Objekt zu zentrieren.
74	71
75		-	~~<figure>~~
76		-	~~<img src="BGRATutorial15b.png" title="BGRATutorial15b.png" />~~
77		-	~~<figcaption>BGRATutorial15b.png</figcaption>~~
78		-	~~</figure>~~
	72	+	![](/wiki-images/2/29/BGRATutorial15b.png)
79	73
80	74		Jetzt fügen wir etwas Licht hinzu:
81	75
82	76		``` pascal
83	77		//setzt die ambiente Helligkeit auf Dunkel (1 ist normale Helligkeit, 2 ist völliges Weiss)
84	78		scene.AmbiantLightness := 0.5;
85	79		//fügt eine direktionale Beleuchtung von links-oben hinzu, die maximale Helligkeit ist 0.5 + 1 = 1.5
86	80		scene.AddDirectionalLight(Point3D(1,1,1), 1);
87	81		```
88	82
89	83		Das Beispiel verwendet Helligkeitswerte. 0 ist schwarz, 1 bedeutet unveränderte Farbe, und 2 ist weiss. Die direktionale Beleuchtung braucht einen Point3D-Parameter, um die Richtung des Lichtstrahls anzuzeigen. Dieser muss nicht normalisiert werden.
90	84
91		-	~~<figure>~~
92		-	~~<img src="BGRATutorial15c.png" title="BGRATutorial15c.png" />~~
93		-	~~<figcaption>BGRATutorial15c.png</figcaption>~~
94		-	~~</figure>~~
	85	+	![](/wiki-images/5/5d/BGRATutorial15c.png)
95	86
96	87		## Ableiten von TBGRAScene3D
97	88
98	89		Der Szenencode kann in ein Objekt eingebettet werden. Hier ist das vorige Beispiel in einer einzelnen Unit:
99	90
100	91		``` pascal
101	92		unit ex1;
102	93
103	94		{$mode objfpc}{$H+}
104	95
105	96		interface
106	97
107	98		uses
108	99		Classes, SysUtils, BGRAScene3D, BGRABitmapTypes;
109	100
110	101		type
111	102
112	103		{ TExample1 }
113	104
114	105		TExample1 = class(TBGRAScene3D)
115	106		SandColor: TBGRAPixel;
116	107		constructor Create;
117	108		procedure Render; override;
118	109		end;
119	110
120	111		implementation
121	112
122	113		{ TExample1 }
123	114
124	115		constructor TExample1.Create;
125	116		var
126	117		base: array of IBGRAVertex3D;
127	118		top: IBGRAVertex3D;
128	119		begin
129	120		inherited Create;
130	121
131	122		SandColor := BGRA(255,240,128);
132	123
133	124		//erzeugt eine Pyramide
134	125		with CreateObject(SandColor) do
135	126		begin
136	127		top := MainPart.Add(0,-15,0);
137	128		//die Basis der Pyramide ist im Uhrzeigersinn angeordnet, wenn wir von unten auf die Pyramide sehen
138	129		base := MainPart.Add([-20,15,-20, 20,15,-20, 20,15,20, -20,15,20]);
139	130		AddFace(base);
140	131		//fügt vier Flächen hinzu, die drei Kanten sind im Uhrzeigersinn angeordnet
141	132		AddFace([base[0],top,base[1]]);
142	133		AddFace([base[1],top,base[2]]);
143	134		AddFace([base[2],top,base[3]]);
144	135		AddFace([base[3],top,base[0]]);
145	136
146	137		MainPart.Scale(1.3);
147	138		MainPart.RotateYDeg(30);
148	139		MainPart.RotateXDeg(20);
149	140		MainPart.Translate(0,-5,0);
150	141		end;
151	142
152	143		//setzt die ambiente Helligkeit auf Dunkel (1 ist normale Helligkeit, 2 ist völliges Weiss)
153	144		AmbiantLightness := 0.5;
154	145		//fügt eine direktionale Beleuchtung von links-oben hinzu, die maximale Helligkeit ist 0.5 + 1 = 1.5
155	146		AddDirectionalLight(Point3D(1,1,1),1);
156	147
157	148		//wir können Antialiasing eisetzen, weil es eine einfache Szene ist
158	149		Antialiasing := True;
159	150		end;
160	151
161	152		procedure TExample1.Render;
162	153		begin
163	154		//füllt den Hintergrund
164	155		Surface.GradientFill(0,0,Surface.Width,Surface.Height,SandColor,MergeBGRA(SandColor,BGRABlack),gtRadial,PointF(0,0),PointF(Surface.Width,Surface.Height),dmSet);
165	156
166	157		inherited Render;
167	158		end;
168	159
169	160		end.
170	161		```
171	162
172	163		Um die Szene jetzt zu zeichnen, geben wir ein:
173	164
174	165		``` pascal
175	166		uses BGRABitmap, BGRABitmapTypes, BGRAScene3D, ex1;
176	167
177	168		procedure TForm1.FormPaint(Sender: TObject);
178	169		var
179	170		bmp: TBGRABitmap;
180	171		scene: TBGRAScene3D;
181	172		begin
182	173		bmp := TBGRABitmap.Create(ClientWidth,ClientHeight,BGRABlack);
183	174
184	175		scene := TExample1.Create;
185	176		scene.Surface := bmp;
186	177		scene.Render;
187	178		scene.Free;
188	179
189	180		bmp.Draw(Canvas,0,0);
190	181		bmp.Free;
191	182		end;
192	183		```
193	184
194	185		Nebenbei, es wurde Antialiasing und ein Hintergrund hinzugefügt. Beachten Sie, dass Antialiasing nur bei einfachen Szenen funktioniert. Komplexe Szenen mit Texturen und transparenten Farben werden nicht korrekt dargestellt.
195	186
196		-	~~<figure>~~
197		-	~~<img src="BGRATutorial15d.png" title="BGRATutorial15d.png" />~~
198		-	~~<figcaption>BGRATutorial15d.png</figcaption>~~
199		-	~~</figure>~~
	187	+	![](/wiki-images/9/95/BGRATutorial15d.png)
200	188
201	189		[[BGRABitmap tutorial 14/de\|Voriges Tutorial (Canvas 2D)]] \\| [[BGRABitmap tutorial 16/de\|Nächstes Tutorial (Texturen mit 3D-Objekten)]]
202	190
203	191		Seite übersetzt von: --billyraybones 00:05, 21 October 2011 (CEST)
204	192
205	193		---
206	194		From the Free Pascal wiki, page "BGRABitmap tutorial 15/de", as it stood on 2020-02-10 after a change by Trev, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).
207	195		Category: Graphics/de

Back to history