home *** CD-ROM | disk | FTP | other *** search
- % *******************************************************
- % **** Eingabe von fein nunancierten Farbwerten ****
- % **** Version 1,0 vom 29.03.1992 ****
- % **** von Carsten Peters ****
- % *******************************************************
-
- /auswahl (Welches Farbsystem|soll verwendet werden?) (RGB|CMY|HLS) dialog def
-
- auswahl 1 eq if % RGB Farbsystem
- /rot (Bitte geben Sie den Rotanteil ein! "0-100" ) input def % Rotanteil in Prozent
- /gelb (Bitte geben Sie den Gelbanteil ein! "0-100" ) input def % Gelbanteil in Prozent
- /grⁿn (Bitte geben Sie den Grⁿnanteil ein! "0-100" ) input def % Grⁿnanteil in Prozent
- rot gelb grⁿn rgbcolor % Farbe einstellen
- endif
-
- auswahl 2 eq if % CMY Farbsystem
- /cyan (Bitte geben Sie den Cyan-Anteil ein! "0-100" ) input def % Blaugrⁿn-Anteil eingeben
- /magenta (Bitte geben Sie den Purpur-Anteil ein! "0-100" ) input def % Purpur-Anteil eingeben
- /yellow (Bitte geben Sie den Gelb-Anteil ein! "0-100" ) input def % Gelbanteil-eingeben
- cyan magenta yellow cmycolor % Farbe einstellen
- endif
-
- auswahl 3 eq if % HLS Farbsystem
- /hue (Bitte geben Sie den Farbton ein! "0-360" ) input def % Farbton eingeben
- /lightness (Bitte geben Sie den Helligkeitsgrad ein! "0-100" ) input def % Helligkeitswert eingeben
- /saturation (Bitte geben Sie die FarbsΣttigung ein! "0-100" ) input def % FarbsΣttigung eingeben
- hue lightness saturation hlscolor % Farbe einstellen
- endif
-
-