BGRABitmap tutorial 7/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, wie Sie Splines verwenden können.
2	2
3	3		### Erzeugen Sie ein neues Projekt
4	4
5	5		Erzeugen Sie ein neues Projekt und fügen Sie eine Referenz auf [[BGRABitmap/de\|BGRABitmap]] hinzu, genau so wie im [[BGRABitmap tutorial/de\|ersten Tutorial]].
6	6
7	7		### Zeichnen Sie ein offenes Spline
8	8
9	9		Im Objektinspektor fügen Sie einen OnPaint-Handler hinzu und schreiben Sie:
10	10
11	11		``` pascal
12	12		procedure TForm1.FormPaint(Sender: TObject);
13	13		var
14	14		image: TBGRABitmap;
15	15		pts: array of TPointF;
16	16		storedSpline: array of TPointF;
17	17		c: TBGRAPixel;
18	18
19	19		begin
20	20		image := TBGRABitmap.Create(ClientWidth,ClientHeight,ColorToBGRA(ColorToRGB(clBtnFace)));
21	21		c := ColorToBGRA(ColorToRGB(clWindowText));
22	22
23	23		//rechteckige Polylinie
24	24		setlength(pts,4);
25	25		pts[0] := PointF(50,50);
26	26		pts[1] := PointF(150,50);
27	27		pts[2] := PointF(150,150);
28	28		pts[3] := PointF(50,150);
29	29		image.DrawPolylineAntialias(pts,BGRA(255,0,0,150),1);
30	30
31	31		//berechnet die Splinepunkte und zeichnet sie als Polylinie
32	32		storedSpline := image.ComputeOpenedSpline(pts);
33	33		image.DrawPolylineAntialias(storedSpline,c,1);
34	34
35	35		image.Draw(Canvas,0,0,True);
36	36		image.free;
37	37		end;
38	38		```
39	39
40	40		Mit zwei Zeilen zeichnen Sie das Spline. Die erste Zeile berechnet die Splinepunkte und die zweite zeichnet sie. Beachte Sie, dass es eine besondere Funktion für offene Splines gibt.
41	41
42	42		### Zeichnen Sie ein geschlossenes Spline
43	43
44	44		Fügen Sie vor 'image.Draw' diese Zeilen ein:
45	45
46	46		``` pascal
47	47		for i := 0 to 3 do
48	48		pts[i].x += 200;
49	49		image.DrawPolylineAntialias(pts,BGRA(255,0,0,150),1);
50	50
51	51		storedSpline := image.ComputeClosedSpline(pts);
52	52		image.DrawPolygonAntialias(storedSpline,c,1);
53	53		```
54	54
55	55		Gehen Sie mit dem Textcursor auf den Bezeichner 'i' und drücken Sie Strg-Umsch-C, um die Variablendeklaration hinzuzufügen. Die Schleife durchläuft die Punkte der rechten Hälfte.
56	56
57	57		Zwei neue Zeilen zeichnen ein geschlossenes Spline. Beachten Sie die besondere Funktion zum Berechnen geschlossener Splines und den Aufruf von 'DrawPolygonAntialias'.
58	58
59	59		So vermeiden Sie, dass zum Speichern der Splinepunkte eine Variable benutzt wird:
60	60
61	61		``` pascal
62	62		image.DrawPolygonAntialias(image.ComputeClosedSpline(pts),c,1);
63	63		```
64	64
65	65		Allerdings können Sie dadurch die berechneten Punkte nicht mehrfach verwenden. Sie müssen bei jedem Einsatz neu berechnet werden.
66	66
67	67		### Starten Sie das Programm
68	68
69	69		Dies zeichnet zwei Splines, links ein offenes und rechts ein geschlossenes.
70	70
71		-	~~<figure>~~
72		-	~~<img src="BGRATutorial7.png" title="BGRATutorial7.png" />~~
73		-	~~<figcaption>BGRATutorial7.png</figcaption>~~
74		-	~~</figure>~~
	71	+	![](/wiki-images/8/84/BGRATutorial7.png)
75	72
76	73		Beachten Sie, dass das Spline durch jeden Punkt geht. Wenn Sie wollen, dass die Kurve innen bleibt oder wenn Sie Tangenten definieren, dann brauchen Sie Kontrollpunkte. Diese stehen Ihnen bei Bézierkurven zur Verfügung.
77	74
78	75		### Verwendung von Bézierkurven
79	76
80	77		Fügen Sie vor 'image.Draw' diese Zeilen ein:
81	78
82	79		``` pascal
83	80		storedSpline := image.ComputeBezierSpline([BezierCurve(PointF(50,50),PointF(150,50),PointF(150,100)),
84	81		BezierCurve(PointF(150,100),PointF(150,150),PointF(50,150))]);
85	82		image.DrawPolylineAntialias(storedSpline,c,2);
86	83		```
87	84
88	85		Die Funktion 'BezierCurve' definiert eine Kurve mit einem Anfangs- und einem Endpunkt und ein bis zwei Kontrollpunkten. Hier im Beispiel ist es nur ein Kontrollpunkt. Die Kontrollpunkte sind so definiert, dass die Kurve das vorher festgelegte Rechteck berührt.
89	86
90	87		Ein Bézierspline ist einfach eine Folge von Bézierkurven. Deshalb hängt die Funktion 'ComputeBezierSpline' ein Array von Bézierkurven aneinander. Hier konstruieren wir eine nette U-Form mittels zweier Kurven.
91	88
92	89		### Starten Sie das Programm
93	90
94	91		Sie sehen eine fette Bézierkurve innerhalb des linken Rechtecks.
95	92
96		-	~~<figure>~~
97		-	~~<img src="BGRATutorial7b.png" title="BGRATutorial7b.png" />~~
98		-	~~<figcaption>BGRATutorial7b.png</figcaption>~~
99		-	~~</figure>~~
	93	+	![](/wiki-images/a/aa/BGRATutorial7b.png)
100	94
101	95		[[BGRABitmap tutorial 6/de\|Voriges Tutorial (Linienarten)]] \\| [[BGRABitmap tutorial 8/de\|Nächstes Tutorial (Texturen)]]
102	96
103	97		---
104	98		From the Free Pascal wiki, page "BGRABitmap tutorial 7/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).

Back to history