%!PS-Adobe-3.0 EPSF-3.0 IE310-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 79 {/xchartl exch def %xchartl=0,79

gsave

8 /Times-ISOL1 FS
12 0 moveto
(IE31/IE310-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

xchartl 0 ge xchartl 728 le and {%0<=xchartl<=728
%row no.1 and 2: 9xrgb

/k xchartl 81 idiv def
/j xchartl k 81 mul sub 9 idiv def
/i xchartl k 81 mul sub j idiv def

/imax 08 def
/jmax 08 def
/kmax 08 def
%0 1 kmax {/k exch def %beg k=0,08
%          /k0 k 3 idiv def
%          /k1 k k0 3 mul sub def
%          /xadd k1 xs 9 mul mul def
%          /yadd k0 xs 9 mul mul def
%0 1 jmax {/j exch def %beg j=0,jmax
%0 1 imax {/i exch def %beg i=0,imax
%          /n i j 9 mul add k 81 mul add def
%          /j1 j k1 9 mul add def
%          /j1$ tx1 j1 get def
%          /i1 i 1 add k0 9 mul add def
%          /xa xmin j xs mul add xadd add xsd add def
%          /ya ymax i ys mul sub yadd sub ysd add def

          /r k kmax div def /g j jmax div def /b i imax div def
          /r*x r def /g*x g def /b*x b def
          /c*x 1 r*x sub def  /m*x 1 g*x sub def  /y*x 1 b*x sub def /n*x 0 def

%         } for %end i=0,jmax
%         } for %end j=0,jmax
%         } for %end k=0,kmax

} if %0<=xchartl<=728

xchartl 729 ge xchartl 970 le and {%729<=xchartl<=970         
%3x rgbcmy
/id 1 8 div def
/rijn 81 array def %for intermediate storage
/gijn 81 array def /bijn 81 array def
/lmax 2 def
/n 728 def
0 1 lmax {/l exch def %beg k=0,kmax
          /xadd 3 xs 9 mul mul def
          /yadd l ys 9 mul mul def

%for intermediate storage of l=0,lmax
0 1 01 {/jchart exch def %jchart=0,1
        /xchartj l jchart 3 mul add def
0 1 08 {/j exch def %j=0,7
        /im 8 j sub def
jchart 1 im {/i exch def %i=0,8
        /ia 1 id j mul sub def
        /argb ia def /brgb ia i id mul sub def
        xchartj 0 eq {/r argb def /g brgb def /b brgb def} if
        xchartj 1 eq {/r argb def /g argb def /b brgb def} if
        xchartj 2 eq {/r brgb def /g argb def /b brgb def} if
        xchartj 3 eq {/r brgb def /g argb def /b argb def} if
        xchartj 4 eq {/r brgb def /g brgb def /b argb def} if
        xchartj 5 eq {/r argb def /g brgb def /b argb def} if
        jchart 0 eq {/in i j add def /jn j def}
                    {/in j def /jn i j add def} ifelse
                     rijn in 9 mul jn add r put
                     gijn in 9 mul jn add g put
                     bijn in 9 mul jn add b put
        } for %i=0,7
        } for %j=0,8
        } for %jchart=0,1
        
%for output of l=0,lmax
0 1 08 {/j exch def %j=0,8
0 1 08 {/i exch def %i=0,8
        /r rijn i j 9 mul add get def
        /g gijn i j 9 mul add get def
        /b bijn i j 9 mul add get def
        /xa xmin xs j mul add xadd add xsd add def
        /ya ymax xs i mul sub yadd sub ysd add def
        /r*x r def /g*x g def /b*x b def
        /c*x 1 r*x sub def  /m*x 1 g*x sub def  /y*x 1 b*x sub def /n*x 0 def

          r*x g*x b*x setrgbcolor
          xa ya xd dup rec fill

        } for %i=0,8
        } for %j=0,8

        } for %end l=0,lmax

} if %729<=xchartl<=970
        
xchartl 971 ge xchartl 1070 le and {%971<=xchartl<=1070
%6wrgbcmy
/n 971
/lmax 03 def %4 rows with geys
/kmax 1 def %9 or 16 steps
0 1 kmax {/k exch def %
          k 0 eq {/jmax 08 def} {/jmax 15 def} ifelse
0 1 lmax {/l exch def %beg l=0,lmax
          /xadd 36 l add xs mul def
          /yadd k 9 xs mul mul def
          /j1 l 36 add def
          /j1$ tx1 j1 get def
0 1 jmax {/j exch def %j=0,08
          /n n 1 add def
          /i1 j k 9 mul add 1 add def %9 steps, 16 steps
          /argb j jmax div def
          /xa xmin xadd add xsd add def
          /ya ymax xs j mul sub yadd sub ysd add def
          /r*x argb def /g*x argb def /b*x argb def
          /c*x 1 r*x sub def  /m*x 1 g*x sub def  /y*x 1 b*x sub def /n*x 0 def

          r*x g*x b*x setrgbcolor
          xa ya xd dup rec fill

       } for %j=0,jmax
       
       } for %l=0,lmax
       
       } for %k=0,kmax

} if %971<=xchartl<=1070

xchartl 1071 ge xchartl 1079 le and {%1071<=xchartl<=1079       
%basic colours 1072 - 1080
/basrgb 24 array def
/basrgb
[0 0 0 1 1 1
 1 0 0 0 1 1
 1 1 0 0 0 1
 0 1 0 1 0 1
] def
/n 1071 def
/i xchartl n sub def
       /i3 i 3 mul def
       /xadd 36 xs mul def
       /yadd 25 xs mul def
       i 0 eq {/l 0 def /j 0 def /j1$ (k) def /i1 26 def} if
       i 1 eq {/l 0 def /j 1 def /j1$ (k) def /i1 27 def} if
       i 2 eq {/l 1 def /j 0 def /j1$ (l) def /i1 26 def} if
       i 3 eq {/l 1 def /j 1 def /j1$ (l) def /i1 27 def} if
       i 4 eq {/l 2 def /j 0 def /j1$ (m) def /i1 26 def} if
       i 5 eq {/l 2 def /j 1 def /j1$ (m) def /i1 27 def} if
       i 6 eq {/l 3 def /j 0 def /j1$ (n) def /i1 26 def} if
       i 7 eq {/l 3 def /j 1 def /j1$ (n) def /i1 27 def} if
       /xa xmin xs l mul add xadd add xsd add def
       /ya ymax xs j mul sub yadd sub ysd add def
       /r basrgb i3       get def
       /g basrgb i3 1 add get def
       /b basrgb i3 2 add get def
       /r*x r def /g*x g def /b*x b def
       /c*x 1 r sub def  /m*x 1 g sub def  /y*x 1 b sub def /n*x 0 def

} if %1071<=xchartl<=1079

/nn nn 1 add def

TBG
1 setgray
 500 0500 moveto
xchartl 1 add cvishow (  ) show
2000 0500 moveto
r*x cvsshow3
3000 0500 moveto
g*x cvsshow3
4000 0500 moveto
b*x cvsshow3

r*x g*x b*x 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,79

%%Trailer