6b8
%!
% Essai imprimante couleur : palette.ps

% (english translation of french text)
% The PostScript color palette
%
% Prints 11 pages giving 1331 color samples.
% Each page, A4 size, has a same blue level
% Each line of each page has a same green level
%==============================================
%
% La palette Postscript  G. Huet Mars 1990

% Imprime 11 pages formant 1331 echantillons de couleurs
% Chaque page, de format A4, a un niveau de bleu constant
% Dans chaque page, chaque ligne a un niveau de vert constant

% Scaling

3.937          % 10 cm in inches
0.72           % 72 units in 1 inch
mul            % 1 mm in units
dup scale      % new unit=1mm

/Helvetica findfont 1.5 scalefont setfont

/str 10 string def           % dummy string
/printnum {str cvs show} def % print a number

/box {newpath 0 0 moveto
              0 10 lineto
              10 10 lineto
              10 0 lineto
              closepath} def % square box path

/label {0 0 0 setrgbcolor 
        0 -3 moveto 
        red printnum
        4 -3 moveto
        green printnum
        8 -3 moveto
        blue printnum} def   % caption of color as rgb triple

/line {/red 0 def
       11 {red green blue setrgbcolor 
           box fill label
           /red red 0.1 add def
           18 0 translate} repeat} def 

/page {10 20 translate
       /green 0 def
       11 {line -198 25 translate
           /green green 0.1 add def} repeat showpage} def

/palette {/blue 0 def 
          11 {gsave page grestore
             /blue blue 0.1 add def
             } repeat} def

% /blue 0.4 def page  % une page de palette a bleu constant
palette % toute la palette couleur
.

0