%!PS-Adobe-3.0 EPSF-3.0 IE300-7A.EPS
%%BoundingBox: 00 00 842 595

%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: Image Technology)
  /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1)
  /Subject (goto: http://www.ps.bam.de or http://130.149.60.445/~farbmetrik)
  /Keywords (image reproduction, colour devices)
  /Creator (klaus.richter@mac.com)
  /CreationDate (D:2009090112000)
  /ModDate (D:2009090112000)
/DOCINFO pdfmark07
[ /View [ /FitB ]
/DOCVIEW pdfmark07
%END  PDFDE011

%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

/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
/showm {6 lanind eq {show} {pop} ifelse} bind def
/lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def}
               {/lanind1 1 def /lanind2 1 def} ifelse
/colormg where {pop /colorm1 colormg def /colorm2 colormg def}
               {/colorm1 1 def /colorm2 1 def} ifelse
/xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def}
               {/xcolor1 0 def /xcolor2 0 def} ifelse
/xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def}
               {/xchart1 0 def /xchart2 0 def} ifelse
/lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage
/colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage
/xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage
/xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage

/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

/xcolorg where {pop /xcolorx  xcolorg def} {/xcolorx  0 def} ifelse
/xchartg where {pop /xchartx  xchartg def} {/xchartx  0 def} ifelse
/colormg where {pop /colorm   colormg def} {/colorm   0 def} ifelse

/nr1 57 array def
/tx1 57 array def

/nr1 [(01) (02) (03) (04) (05) (06) (07) (08) %o00y-o88y
      (09) (10) (11) (12) (13) (14) (15) (16) %j00l-j87l
      (17) (18) (19) (20) (21) (22) (23) (24) %l00c-l87c
      (25) (26) (27) (28) (29) (30) (31) (32) %c00v-c87v
      (33) (34) (35) (36) (37) (38) (39) (40) %v00m-v87m
      (41) (42) (43) (44) (45) (46) (47) (48) %m00o-m87o
      (49) (50) (51) (52) (53) (54) (55) (56) %n00w-n88w
      (57) %n99w
     ] def
/tx1 [(o00y) (o13y) (o25y) (o38y) (o50y) (o063y) (o75y) (o88y) %o00y-o88y
      (y00l) (y13l) (y25l) (y38l) (y50l) (y063l) (y75l) (y88l) %y00l-y88l
      (l00c) (l13c) (l25c) (l38c) (l50c) (l063c) (l75c) (l88c) %l00c-l88c
      (c00v) (c13v) (c25v) (c38v) (c50v) (c063v) (c75v) (c88v) %c00v-c88v
      (v00m) (v13m) (v25m) (v38m) (v50m) (v063m) (v75m) (v88m) %v00m-v88m
      (m00o) (m13o) (m25o) (m38o) (m50o) (m063o) (m75o) (m88o) %m00o-m88o
      (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


15 12 translate

/xchartl xchartx def

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

gsave

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

0.01 MM 1.15 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
 500 0500 moveto
xchartl 1 add cvishow (  ) show tx1 xchartl get show
2000 0500 moveto
rx xchartl get cvsshow3
3000 0500 moveto
gx xchartl get cvsshow3
4000 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