home *** CD-ROM | disk | FTP | other *** search
/ Super Sampler 1 / SAMPLER1.iso / sdemos / grw2demo / psq / farben.psq < prev    next >
Encoding:
Text File  |  1993-10-12  |  2.0 KB  |  30 lines

  1. % *******************************************************
  2. % **** Eingabe von fein nunancierten Farbwerten ****
  3. % ****           Version 1,0 vom 29.03.1992              ****
  4. % ****                von Carsten Peters                       ****
  5. % *******************************************************
  6.  
  7. /auswahl (Welches Farbsystem|soll verwendet werden?) (RGB|CMY|HLS) dialog def
  8.  
  9. auswahl 1 eq if                                                                           % RGB Farbsystem
  10. /rot (Bitte geben Sie den Rotanteil ein! "0-100" ) input def                   % Rotanteil in Prozent
  11. /gelb (Bitte geben Sie den Gelbanteil ein! "0-100" ) input def              % Gelbanteil in Prozent
  12. /grⁿn (Bitte geben Sie den Grⁿnanteil ein! "0-100" ) input def              % Grⁿnanteil in Prozent
  13. rot gelb grⁿn rgbcolor                                                                            % Farbe einstellen
  14. endif
  15.  
  16. auswahl 2 eq if                                                                                            % CMY Farbsystem
  17. /cyan (Bitte geben Sie den Cyan-Anteil ein! "0-100" ) input def                  % Blaugrⁿn-Anteil eingeben
  18. /magenta (Bitte geben Sie den Purpur-Anteil ein! "0-100" ) input def         % Purpur-Anteil eingeben
  19. /yellow (Bitte geben Sie den Gelb-Anteil ein! "0-100" ) input def                % Gelbanteil-eingeben
  20. cyan magenta yellow cmycolor                                                                   % Farbe einstellen
  21. endif
  22.  
  23. auswahl 3 eq if                                                                                                 % HLS Farbsystem
  24. /hue (Bitte geben Sie den Farbton ein! "0-360" ) input def                               % Farbton eingeben
  25. /lightness (Bitte geben Sie den Helligkeitsgrad ein! "0-100" ) input def          % Helligkeitswert eingeben
  26. /saturation (Bitte geben Sie die FarbsΣttigung ein! "0-100" ) input def            % FarbsΣttigung eingeben
  27. hue lightness saturation hlscolor                                                                     % Farbe einstellen
  28. endif
  29.  
  30.