GFX B Spline Turbo Pascal

aus Paswiki Turbo Pascal, der freien Wissensdatenbank

Beschreibung

Zeichnet ein B-Spline in der aktuell gesetzten Zeichenfarbe. X1,Y1 ist der Startpunkt, X3,Y3 ist der Endpunkt der Linie. X2,Y2 ist der Stützpunkt.

vgl. - SetColor - Bezier - Line - LineTo

Deklaration

PROCEDURE B_Spline(X1, Y1, X2, Y2, X3, Y3 : 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 des Stützpunkts des B-Splines } 
  LineTo(300, 100);             { ein paar Linien }
  LineTo(200, 200);
  SetColor($12FCD3);            { setze Zeichenfarbe auf mintgrün }
  B_Spline(100, 100, 300, 100, 200, 200); { und nun das B-Spline }
  ReadKey;
END.

---