GFX Bezier Turbo Pascal

aus Paswiki Turbo Pascal, der freien Wissensdatenbank

Beschreibung

Zeichnet eine Bezierlinie in der aktuell gesetzten Zeichenfarbe. X1,Y1 ist der Startpunkt, X4,Y4 ist der Endpunkt der Linie. X2,Y2 und X3,Y3 sind die beiden Stützpunkte.

vgl. - SetColor - B_Spline - Line - LineTo

Deklaration

PROCEDURE Bezier(X1, Y1, X2, Y2, X3, Y3, X4, Y4 : Integer);

Beispiel

PROGRAM Test;
USES GFX, Crt;
VAR Col : LongInt;
BEGIN
  InitGraph(Mode800x600x24);    { 24bit-Farbtiefe bei 800x600 Bildpunkten }
  SetColor($000060);            { setze Zeichenfarbe auf ein dunkles Blau }
  MoveTo(100, 100);             { zur Verdeutlichung der Stützpunkte der Bezierkurve } 
  LineTo(300, 100);             { ein paar Linien }
  LineTo(200, 200);
  LineTo(100, 400);
  SetColor($12FCD3);            { setze Zeichenfarbe auf mintgrün }
  Bezier(100, 100, 300, 100, 200, 200, 100, 400); { und nun die Bezierkurve }
  ReadKey;
END.

---