GFX RGBtoLong Turbo Pascal

aus Paswiki Turbo Pascal, der freien Wissensdatenbank

Beschreibung

Wandelt die drei Farbwerte R, G und B (für die Rot-, Grün-, und Blaukomponenten einer Farbe) in einen LongInt um. R, G und B dürfen Werte von 0..255 annehmen.

vgl. - PutPixel

Deklaration

FUNCTION RGBtoLong(R, G, B : Byte) : LongInt;

Beispiel

PROGRAM Test;
USES GFX, Crt;
BEGIN
  InitGraph(Mode800x600x24);    { 24bit-Farbtiefe bei 800x600 Bildpunkten }
  PutPixel(GetMaxX DIV 2, GetMaxY DIV 2, RGBToLong(18, 252, 211)); { mintgrünen Punkt in die Bildschirmmitte malen }
  ReadKey;
END.

---