%!PS-Adobe-3.0 EPSF-3.0 IE460-7A
%%BoundingBox: 70 82 785 580

%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

/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

/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

%%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 0 def /colorm2 0 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

/nr1 [(01) (02) (03) (04) (05) (06) (07) (08) (09) (10)
      (11) (12) (13) (14) (15) (16) (17) (18) (19) (20)] def
/tx1 [(A) (B) (C) (D) (E) (F) (G) (H) (I) (J)
      (K) (L) (M) (N) (O) (P) (Q) (R) (S) (T)
      (U) (V) (W) (X) (Y) (Z) (a)] def

/xchartg where {pop /xchart   xchartg def} {/xchart   0 def} ifelse
/colormg where {pop /colorm   colormg def} {/colorm   0 def} ifelse

72 90 translate

xchart 1 lt {%xchart<1

%00 1 2 {/xchart exch def %BEG xchart=0,2

gsave

/xs 900 def /ys xs def /d2 xs 2 div def /d8 xs 8 div def

8 /Times-ISOL1 FS
2 -7 moveto
(IE460-7) show
colorm 0 eq {(N, ) show} {(F, ) show} ifelse
(Test chart with 27x18=486 separate and adjacent colours) showen
(Pr\374fvorlage mit 27x18=486 separaten und aneinandergrenzenden Farben) showde
(; 9 step scales;) showen
(; 9\255stufige Reihen;) showde
( compare ISO/IEC 15775:1999;) showen
( vergleiche ISO/IEC 15775:1999;) showde             
( rgb\255Farbdaten, Mustergr\366\337en:) showde
( rgb colour data, patch sizes:) showen
( 8mm x 8mm und 9mm x 9mm) showde
( 8mm x 8mm and 9mm x 9mm) showen
(, Page ) showen
(, Seite ) showde
xchart 1 add cvishow (/2) show

0.010 MM dup scale

/ymax 15500 def
/xmin 550 def
/xd 800 def
/yd 800 def
/xsd xs xd sub 0.5 mul def
/ysd xs xd sub 0.5 mul def
0.5 0.5 0.5 setrgbcolor
0 0 moveto 25000     0 rlineto 0 17000 rlineto
           25000 neg 0 rlineto closepath fill

20 setlinewidth

500 /Times-ISOL1 FS
0 0 0 setrgbcolor
1 1 18 {/i exch def %i=1,18
  /x xs 0.05 mul i 10 ge {40 sub} if def
  /y 18.5 ys mul ys i mul sub def
  x y moveto nr1 i 1 sub get show
} for %i=1,18

1 1 27 {/i exch def %i=1,27
  /x xs i mul 000 add def
  /y 18.35 ys mul def
  x y moveto tx1 i 1 sub get show
} for %i=1,27

/TKK2 {200 /Times-ISOL1 FS} bind def
TKK2       
%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
/kmax 1 def
/n -1 def
0 1 kmax {/k exch def %k=0,1 %size
0 1 lmax {/l exch def %l=0,lmax
          /xadd l xs 9 mul mul def
          /yadd 0 k xs 9 mul mul add 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 k 0 eq {xsd add} if def
        /ya ymax xs i mul sub yadd sub k 0 eq {ysd add} if def
        xchart 1 le {r g b setrgbcolor}
                    {1 1 1 setrgbcolor} ifelse
        xa ya k 0 eq {xd} {xs} ifelse dup rec fill
        xchart 2 eq {0 0 0 setrgbcolor
                     /n n 1 add def
                     /j1 j def
                     /j1$ tx1 j1 l 9 mul add get def
                     /i1 i 1 add k 9 mul add def
                     xa 20 add ya 625 add moveto
                     n 9 le {(00) show} if
                     n 10 ge n 99 le and {(0) show} if
                     n cvishow ( ) show j1$ show
                     i1 9 le {(0) show} if i1 cvishow
                     xa 20 add ya 425 add moveto r cvsshow3
                     xa 20 add ya 225 add moveto g cvsshow3
                     xa 20 add ya 025 add moveto b cvsshow3} if
        } for %i=0,8
        } for %j=0,8

        } for %l=0,lmax
        } for %k=0,1
        
xchart 1 ge {%xchart>=1
40 setlinewidth
/ytmin ymax xs 17 mul sub def
/ytmax ymax xs 01 mul add def
/ymean ymax xs 08 mul sub def
1 0 0 setrgbcolor %xchart=2 
xmin xs 09 mul add ytmin 100 sub moveto
xmin xs 09 mul add ytmax 100 add lineto stroke
xmin xs 18 mul add ytmin 100 sub moveto
xmin xs 18 mul add ytmax 100 add lineto stroke
xmin 100 sub ymean moveto
xmin xs 27 mul add 100 add ymean lineto stroke
} if %xchart>=1

showpage
grestore

%} for %xchart=0,2

} if %xchart<1

%%Trailer