%!PS-Adobe-3.0 EPSF-3.0 SF590-7N.EPS
%%BoundingBox: 70 83 715 502

%START PDFDE011.EPS
/pdfmark07 where {pop} {userdict /pdfmark07 /cleartomark load put} ifelse
/languagelevel where {pop languagelevel} {1} ifelse
2 lt { userdict (<<) cvn ([) cvn load put
       userdict (>>) cvn (]) cvn load put} if
[ /Title (PostScript pictures: http://130.149.60.45/~farbmetrik/SF59/)
  /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1)
  /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik)
  /Keywords (image reproduction, colour devices, colour vision)
  /Creator (klaus.richter@mac.com)
  /CreationDate (D:2013090112000)
  /ModDate (D:2013090112000)
/DOCINFO pdfmark07
[ /View [ /FitB ]
/DOCVIEW pdfmark07
%END  PDFDE011

%SETCMYK_OLV.PS
/setcmyk_olvcolor %transfer cmyk to olv
{/ncolor exch def /ycolor exch def
 /mcolor exch def /ccolor exch def
 ncolor 0 eq {1 ccolor sub
              1 mcolor sub
              1 ycolor sub setrgbcolor
             }
             {ccolor 0 eq 
              mcolor 0 eq and
              ycolor 0 eq and {%only black n
                               1 ncolor sub 
                               dup
                               dup
                               setrgbcolor
                              }
                              {%cmy and black n
                               1 ccolor sub 1 ncolor sub mul
                               1 mcolor sub 1 ncolor sub mul
                               1 ycolor sub 1 ncolor sub mul
                               setrgbcolor
                              } ifelse
             } ifelse
} bind def
 
%Early binding
/sggray where      {pop /slgray {sggray} bind def}
                       {/slgray {setgray} bind def} ifelse
/sgcmykcolor where {pop /slcmykcolor {sgcmykcolor} bind def}
                       {/slcmykcolor {setcmykcolor} bind def} ifelse
/sgrgbcolor where  {pop /slrgbcolor {sgrgbcolor} bind def}
                       {/slrgbcolor {setrgbcolor} bind def} ifelse
/halfg where {pop /half halfg def} {/half 0 def} ifelse
/VisTol*ioL 1.00 def
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def /str {8 string} bind def

/languagelevel where {pop languagelevel} {1} ifelse
                     /PSL12 exch def
/dictende {counttomark 2 idiv dup dict begin {def}
           repeat pop currentdict end} bind def

/Times-Roman findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict end

/Times-ISOL1 exch definefont pop

/Times-Italic findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict end

/TimesI-ISOL1 exch definefont pop

/Times-Bold findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict end

/TimesB-ISOL1 exch definefont pop

/Times-BoldItalic findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding ISOLatin1Encoding def
currentdict end

/TimesBI-ISOL1 exch definefont pop

/Courier-Bold findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end

/CourierB-ISOL1 exch definefont pop

/TK {250 /Times-ISOL1 FS} bind def
/TM {300 /Times-ISOL1 FS} bind def
/TG {350 /Times-ISOL1 FS} bind def

/TIK {250 /TimesI-ISOL1 FS} bind def
/TIM {300 /TimesI-ISOL1 FS} bind def
/TIG {350 /TimesI-ISOL1 FS} bind def

/TBK {250 /TimesB-ISOL1 FS} bind def
/TBM {300 /TimesB-ISOL1 FS} bind def
/TBG {350 /TimesB-ISOL1 FS} bind def
/TBGG {500 /TimesBI-ISOL1 FS} bind def

/TBIK {250 /TimesBI-ISOL1 FS} bind def
/TBIM {300 /TimesBI-ISOL1 FS} bind def
/TBIG {350 /TimesBI-ISOL1 FS} bind def

/CBKK {200 /CourierB-ISOL1 FS} bind def
/CBK {250 /CourierB-ISOL1 FS} bind def
/CBM {300 /CourierB-ISOL1 FS} bind def
/CBG {350 /CourierB-ISOL1 FS} bind def

/ibshownG {TBM -50 -50 rmoveto show 0 50 rmoveto TBG} bind def
/ibshow0G {TBM -00 -50 rmoveto show 0 50 rmoveto TBG} bind def
/ishownG  {TM  -50 -50 rmoveto show 0 50 rmoveto TG } bind def
/ishow0G  {TM  -00 -50 rmoveto show 0 50 rmoveto TG } bind def

/ibshownM {TBK -50 -50 rmoveto show 0 50 rmoveto TBM} bind def
/ibshow0M {TBK -00 -50 rmoveto show 0 50 rmoveto TBM} bind def
/ishownM  {TK  -50 -50 rmoveto show 0 50 rmoveto TM } bind def
/ishow0M  {TK  -00 -50 rmoveto show 0 50 rmoveto TM } bind def

/rec %x, y width heigth
  {/heigth exch def /width exch def
   moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto
   closepath } bind def

/rem %x0, y0 width heigth
  {/heigth exch def /width exch def /y0 exch def /x0 exch def
   x0 width 0.5 mul add y0 heigth 0.5 mul add moveto
   width 0 rlineto 0 heigth rlineto width neg 0 rlineto
   closepath } bind def

%*******************************************************************

%%EndProlog
gsave

/lanind 0 def
/lantex [(G) (E) (S) (N) (I) (J) (M)] def
/showde {0 lanind eq {show} {pop} ifelse} bind def
/showen {1 lanind eq {show} {pop} ifelse} bind def
/showes {2 lanind eq {show} {pop} ifelse} bind def
/showfr {3 lanind eq {show} {pop} ifelse} bind def
/showit {4 lanind eq {show} {pop} ifelse} bind def
/showjp {5 lanind eq {show} {pop} ifelse} bind def
/showea {1 lanind le {show} {pop} ifelse} bind def
 
/lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def
                    /lanindd laninddf def}
               {/lanind1 3 def /lanind2 3 def} ifelse
/colormf where {pop /colorm1 colormf def /colorm2 colormf def
                    /colormd colormdf def}
               {/colorm1 0 def} ifelse
/deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def
                    /deintpd deintpdf def}
               {/deintp1 0 def} ifelse
/xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def
                    /xcolord xcolordf def}
               {/xcolor1 0 def} ifelse
/xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def
                    /xchartd xchartdf def
                    /xchartm xchart2f xchart1f sub 1 add def}
               {/xchart1 0 def /xchartm 1 def} ifelse
/xchart3f where {pop /xchart3 xchart3f def}
                {/xchart3 57 def} ifelse
/xchart4f where {pop /xchart4 xchart4f def}
                {/xchart4 0 def} ifelse
/pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def
                    /pchartd pchartdf def}
               {/pchart1 3 def} ifelse
/colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def
                    /colsepd colsepdf def}
               {/colsep1 0 def} ifelse
/pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def
                    /pmetamd pmetamdf def}
               {/pmetam1 0 def} ifelse

%either defaul values for xchart=0 or values for xchart=1
/lanind lanind1 def %
/colorm colorm1 def %
/deintp deintp1 def %
/xcolor xcolor1 def %
/xchart xchart1 def %
/pchart pchart1 def %
/colsep colsep1 def %
/pmetam pmetam1 def %

colorm 0 eq deintp 0 eq and {/Txx (d) def} if %colorm=0, deintp=0
colorm 0 eq deintp 1 eq and {/Txx (e) def} if %colorm=0, deintp=1
colorm 1 eq deintp 0 eq and {/Txx (dd) def} if %colorm=1, deintp=0
colorm 1 eq deintp 1 eq and {/Txx (de) def} if %colorm=1, deintp=1
xchart xchart3 lt {/Txx (-) def} if %always independent of intended output

gsave
%LANINDL2 END

/GSS$ where {pop /LSS$ GSS$ def}
            {/LSS$ (1) def} ifelse
/GSC$ where {pop /LSC$ GSC$ def}
            {/LSC$ (N) def} ifelse
/GSX$ where {pop /LSX$ GSX$ def}
            {/LSX$ (0) def} ifelse
/GSY$ where {pop /LSY$ GSY$ def}
            {/LSY$ (0) def} ifelse
/GEX$ where {pop /LEX$ GEX$ def}
            {/LEX$ (P.PS./PDF) def} ifelse
/GEY$ where {pop /LEY$ GEY$ def}
            {/LEY$ (P.DAT) def} ifelse
/IMES where {pop %/IMES IMES def
            }
            {/IMES 0 def} ifelse

/cvishow {cvi 6 string cvs show} def
/cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def
/cvsshow2 {100 mul cvi 0.01 mul 7 string cvs show} def
/cvsshow3 {1000 mul cvi 0.001 mul 7 string cvs show} def

/nr1 57 array def
/tx1 57 array def

/nr1 [(01) (02) (03) (04) (05) (06) (07) (08) %R00Y-R88Y
      (09) (10) (11) (12) (13) (14) (15) (16) %Y00G-Y87G
      (17) (18) (19) (20) (21) (22) (23) (24) %G00C-G87C
      (25) (26) (27) (28) (29) (30) (31) (32) %C00B-C87B
      (33) (34) (35) (36) (37) (38) (39) (40) %B00M-B87M
      (41) (42) (43) (44) (45) (46) (47) (48) %M00R-M87R
      (49) (50) (51) (52) (53) (54) (55) (56) %N00W-N88W
      (57) %N99W
     ] def
/tx1 [(R00Y) (R13Y) (R25Y) (R38Y) (R50Y) (R063Y) (R75Y) (R88Y) %R00Y-R88Y
      (Y00G) (Y13G) (Y25G) (Y38G) (Y50G) (Y063G) (Y75G) (Y88G) %Y00G-Y88G
      (G00C) (G13C) (G25C) (G38C) (G50C) (G063C) (G75C) (G88C) %G00C-G88C
      (C00B) (C13B) (C25B) (C38B) (C50B) (C063B) (C75B) (C88B) %C00B-C88B
      (B00M) (B13M) (B25M) (B38M) (B50M) (B063M) (B75M) (B88M) %B00M-B88M
      (M00R) (M13R) (M25R) (M38R) (M50R) (M063R) (M75R) (M88R) %M00R-M88R
      (N00W) (N13W) (N25W) (N38W) (N50W) (N063W) (N75W) (N88W) %N00W-N88W
      (N99W) %N99W
] def

/rx 57 array def
/gx 57 array def
/bx 57 array def

0 1 56 {/i exch def %i=0,57
        rx i 0 put
        gx i 0 put
        bx i 0 put
       } for %i=0,57

 0 1 07 {/i exch def %i=0,7 %o00y-o88y
         rx i 1 put
         gx i i 0 sub 0.125 mul put
        } for %i=0,7

08 1 15 {/i exch def %i=8,15 %y00l-y88l
         rx i 1 i 8 sub 0.125 mul sub put
         gx i 1 put
        } for %i=8,15

16 1 23 {/i exch def %i=16,23 %l00c-l88c
         gx i 1 put
         bx i i 16 sub 0.125 mul put
        } for %i=16,23

24 1 31 {/i exch def %i=24,31 %c00v-c88v
         gx i 1 i 24 sub 0.125 mul sub put
         bx i 1 put
        } for %i=24,31

32 1 39 {/i exch def %i=32,39 %v00m-v88m
         bx i 1 put
         rx i i 32 sub 0.125 mul put
        } for %i=32,39

40 1 47 {/i exch def %i=40,47 %m00o-m88o
         bx i 1 i 40 sub 0.125 mul sub put
         rx i 1 put
        } for %i=40,47

48 1 55 {/i exch def %i=48,55 %n00w-n88w
         rx i i 48 sub 0.125 mul put
         gx i i 48 sub 0.125 mul put
         bx i i 48 sub 0.125 mul put
        } for %i=48,55

56 1 56 {/i exch def %i=56 %w
         rx i 1 put
         gx i 1 put
         bx i 1 put
        } for %i=56


72 90 translate

/xchartl xchart def

%00 1 56 {/xchartl exch def %xchartl=0,56

gsave

8 /Times-ISOL1 FS
12 0 moveto
(SF59/SF590-7) show
colorm 0 eq {(N, ) show} {(F, ) show} ifelse
(Test chart with 57 colours) showea
(Pr\374fvorlage mit 57 Farben) showde
(; digital equidistant 9 step hue and achromatic scales;) showea
(; digital gleichabst\344ndige 9stufige Button- und unbunte Reihen;) showde
(, Page ) showea
(, Seite ) showde
xchartl 1 add cvishow (/57) show

0.01 MM 1.00 mul dup scale

0 200 translate

%Start-transformation
0.0 dup dup setrgbcolor
0 0 moveto 24500     0 rlineto 0 17000 rlineto
           24500 neg 0 rlineto closepath fill

0.0 dup dup setrgbcolor
0 0 moveto 24500     0 rlineto 0 17000 rlineto
           24500 neg 0 rlineto closepath stroke

20 setlinewidth

TBG
1 setgray
1 setgray
 500 0900 moveto
(no.) showea (Nr.) showde
TBIG
2200 0900 moveto
(r*) show (d) ibshownG
3200 0900 moveto
(g*) show (d) ibshownG
4200 0900 moveto
(b*) show (d) ibshownG

 500 0500 moveto
xchartl 1 add cvishow (  ) show tx1 xchartl get show
2200 0500 moveto
rx xchartl get cvsshow3
3200 0500 moveto
gx xchartl get cvsshow3
4200 0500 moveto
bx xchartl get cvsshow3

rx xchartl get
gx xchartl get
bx xchartl get setrgbcolor

7000 3500 moveto 10000     0 rlineto 0 10000 rlineto
                 10000 neg 0 rlineto closepath fill

/xd 10000 8 div def
48 1 56 {/i exch def %i=48,56 %grey series
         rx i get gx i get bx i get setrgbcolor
         7000 i 48.5 sub xd mul add 1000 moveto
         xd     0 rlineto 0 xd rlineto
         xd neg 0 rlineto closepath fill
        } for %i=48,56

48 1 48 {/i exch def %i=48,48 white frame
         1 1 1 setrgbcolor
         7000 0.5 xd mul sub 1000 moveto
         xd     0 rlineto 0 xd rlineto
         xd neg 0 rlineto closepath stroke
        } for %i=48,48

0 200 neg translate

showpage
grestore

%} for %xchartl=0,56

%%Trailer