GFX GrayScale Turbo Pascal

aus Paswiki Turbo Pascal, der freien Wissensdatenbank

Beschreibung

Wandelt die Farben im Rechteck mit der linken, oberen Ecke X1,Y1 und der rechten, unteren Ecke X2,Y2 in Graustufen um.

Deklaration

PROCEDURE GrayScale(X1, Y1, X2, Y2 : Integer);

Beispiel

PROGRAM Test;
USES GFX, Crt;
VAR i : LongInt;
BEGIN
  InitGraph(Mode800x600x24);    { 24bit-Farbtiefe bei 800x600 Bildpunkten }
  FOR i := 0 TO 100000 DO       { zuerst brauchen wir es mal BUNT - ein paar Zufallspunkte }
    PutPixel(Random(GetMaxX+1), Random(GetMaxY+1), 
             RGBToLong(Random(256), Random(256), Random(256)));
  GrayScale(200, 200, GetMaxX-200, GetMaxY-200); { dieser Bereich wird in Graustufen umgewandelt }
  ReadKey;
END.

---