%!PS-Adobe-3.0 EPSF-3.0 AGA00-5N.EPS
%%BoundingBox: 70 85 228 206

%START PDFDE011.EPS
/pdfmark05 where {pop} {userdict /pdfmark05 /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: farbe.li.tu-berlin.de/AGA0/AGA0.HTM)
 /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1)
 /Subject (goto: http://farbe.li.tu-berlin.de http://130.149.60.45/~farbmetrik)
 /Keywords (image reproduction, colour devices)
 /Creator (klaus.richter@mac.com)
 /CreationDate (D:2019100112000)
 /ModDate (D:2019100112000)
/DOCINFO pdfmark05
[ /View [ /Fit ]
/DOCVIEW pdfmark05
%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

/TSSS {120 /Times-ISOL1 FS} bind def
/TSS {150 /Times-ISOL1 FS} bind def
/TS {200 /Times-ISOL1 FS} bind def
/TK {250 /Times-ISOL1 FS} bind def
/TM {300 /Times-ISOL1 FS} bind def
/TG {350 /Times-ISOL1 FS} bind def

/TISS {150 /TimesI-ISOL1 FS} bind def
/TIS {200 /TimesI-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

/TBSS {150 /TimesB-ISOL1 FS} bind def
/TBS {200 /TimesB-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

/TBISS {150 /TimesBI-ISOL1 FS} bind def
/TBIS {200 /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

/TYSSS {120 /Symbol FS} bind def
/TYSS {150 /Symbol FS} bind def
/TYS {200 /Symbol FS} bind def
/TYK {250 /Symbol FS} bind def
/TYM {300 /Symbol FS} bind def
/TYG {350 /Symbol FS} bind def

/A4quer {598 0 translate 90 rotate} def

/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

/cvishowb {cvi 6 string cvs show ( ) show} def
/cvsshow1b {10 mul cvi 0.1 mul 7 string cvs show ( ) show} def
/cvsshow2b {100 mul cvi 0.01 mul 7 string cvs show ( ) show} def
/cvsshow3b {1000 mul cvi 0.001 mul 7 string cvs show ( ) show} def

/cvsshow1r {0.05 add 10 mul cvi 0.1 mul 7 string cvs show} def
/cvsshow2r {0.005 add 100 mul cvi 0.01 mul 7 string cvs show} def
/cvsshow3r {0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show} def

/cvsshow1br {0.05 add 10 mul cvi 0.1 mul 7 string cvs show ( ) show} def
/cvsshow2br {0.005 add 100 mul cvi 0.01 mul 7 string cvs show ( ) show} def
/cvsshow3br {0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show ( ) show} def

/cvi100 {100 mul cvi /xi exch def
         xi 0 lt {/vorz -1 def} {/vorz 1 def} ifelse
         /xia xi abs def
         vorz -1 eq {(\255) show} {(0) show} ifelse
         xia    0 ge xia    9 le     {(0000) show} if
         xia   10 ge xia   99 le and {(000) show} if
         xia  100 ge xia  999 le and {(00) show} if
         xia 1000 ge xia 9999 le and {(0) show} if
         xia cvishow
         } bind def

/cvi001 {/xi exch def
         /xia xi abs 0.5 add cvi def
         xia    0 ge xia    9 le     {(0) show} if
         xia cvishow
         } bind def

%%EndProlog

/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 0 def /lanind2 0 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 0 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  /Fxx (d) def} if %colorm=0, deintp=0
colorm 0 eq deintp 1 eq and {/Txx (e) def  /Fxx (e) def} if %colorm=0, deintp=1
colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0
colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1
xchart xchart3 lt {/Txx (-) def /Fxx (-) def} if

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

/nshow {iyd /Times-ISOL1 FS show} def
/nishow {-30 -50 rmoveto iyd 50 sub /Times-ISOL1 FS show 30 50 rmoveto} def
/nishow0 {-30 -50 rmoveto iyd 50 sub /Times-ISOL1 FS show 00 50 rmoveto} def
/nishowx {-00 -50 rmoveto iyd 50 sub /Times-ISOL1 FS show 00 50 rmoveto} def
/kshow {iyd /TimesI-ISOL1 FS show} def
/bshow {iyd /TimesB-ISOL1 FS show} def
/jshow {iyd /TimesBI-ISOL1 FS show} def
/ishow {-30 -50 rmoveto iyd 50 sub /TimesB-ISOL1 FS show 30 50 rmoveto} def
/ishow0 {-30 -50 rmoveto iyd 50 sub /TimesB-ISOL1 FS show 00 50 rmoveto} def
/eshow { 00 110 rmoveto iyd 50 sub /TimesB-ISOL1 FS show 00 -110 rmoveto} def
/neshow { 00 110 rmoveto iyd 50 sub /Times-ISOL1 FS show 00 -110 rmoveto} def
/neshowx { 00 70 rmoveto iyd 50 sub /Times-ISOL1 FS show 00 -70 rmoveto} def

/nshowde {0 lanind eq {nshow} {pop} ifelse} bind def
/nshowen {1 lanind eq {nshow} {pop} ifelse} bind def
/nishowde {0 lanind eq {nishow} {pop} ifelse} bind def
/nishowen {1 lanind eq {nishow} {pop} ifelse} bind def
/kshowde {0 lanind eq {kshow} {pop} ifelse} bind def
/kshowen {1 lanind eq {kshow} {pop} ifelse} bind def
/bshowde {0 lanind eq {bshow} {pop} ifelse} bind def
/bshowen {1 lanind eq {bshow} {pop} ifelse} bind def
/jshowde {0 lanind eq {jshow} {pop} ifelse} bind def
/jshowen {1 lanind eq {jshow} {pop} ifelse} bind def
/ishowde {0 lanind eq {ishow} {pop} ifelse} bind def
/ishowen {1 lanind eq {ishow} {pop} ifelse} bind def

/nshowea {1 lanind le {nshow} {pop} ifelse} bind def
/nishowea {1 lanind le {nishow} {pop} ifelse} bind def
/kshowea {1 lanind le {kshow} {pop} ifelse} bind def
/nshowea {1 lanind le {nshow} {pop} ifelse} bind def
/kshowea {1 lanind le {kshow} {pop} ifelse} bind def
/ishowea {1 lanind le {ishow} {pop} ifelse} bind def

gsave

72 90 translate

0.01 MM dup scale

15 setlinewidth

gsave
/xwidth 5400 def
/ywidth 4000 def
15 setlinewidth
1 setgray
0 0  moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto
closepath fill
0 setgray
0 0  moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto
closepath stroke

TSSS
0 setgray
100 -110 moveto
(AGA00-5N) show

%******************************************************************
/ix1   20 def %1
/iyd  150 def %line difference
/iy0 3850 def %header

ix1  iy0 moveto
(Frame File PostScript\255code for 1\255Minus\255Relation (1MR) to) nshowea
(Frame File PS-Code f\374r 1\255Minus\255Relation (1MR) nach) nshowde
( cmy0 setcmykcolor) kshow

0 iy0 050 sub moveto xwidth 0 rlineto stroke

/iyt 3600 def

/PSTEXT
[
(01 %!PS-Adobe-3.0 EPSF-3.0, 1MR-0002 for change to cmy0 setcmykcolor)
(02 /FFM_setcmykcolor {setcmykcolor} bind def)
(03 /1MR-0002 {%BEG procedure 1MR-0002 to cmy0 setcmykcolor)
(04 %BEG setgray, setrgbcolor, cmyk setcmykcolor to cmy0 setcymkcolor)
(05 /setgray {%BEG procedure setgray to cmy0 setcmykcolor)
(06           /Mw exch def  1 Mw sub dup dup 0 FFM_setcmykcolor)
(07          } def %END procedure setgray to cmy0 setcmykcolor)
(08 /setrgbcolor {%BEG procedure setrgbcolor to cmy0 setcmykcolor)
(09               /Mb exch def /Mg exch def /Mr exch def)
(10               1 Mr sub 1 Mg sub 1 Mb sub 0 FFM_setcmykcolor)
(11              } def %END procedure setrgbcolor to cmy0 setcmykcolor)
(12 /setcmykcolor {%BEG procedure cmyk to cmy0 setcmykcolor)
(13                /Mk exch def /My exch def /Mm exch def /Mc exch def)
(14                Mk 0 ne {Mc Mk add Mm Mk add My Mk add 0})
(15                        {Mc Mm My 0} ifelse FFM_setcmykcolor)
(16               } def %END %END procedure cmyk to cmy0 setcmykcolor)
(17 } def %END procedure 1MR-0002 to cmy0 setcmykcolor)
] def

/CSS {128 /Courier-Bold FS} bind def
CSS

0 1 16 {/i exch def %i=0,16
ix1 iyt iyd i mul sub 100 sub moveto PSTEXT i get show
} for %i=0,16

/iye  150 def %cero line lower text

ix1 iye 4 iyd mul add moveto 
(Remarks:) nshowea (Erl\344terungen:) nshowde

ix1 iye 3 iyd mul add moveto
(line 02: necessary for the revised definition of ) nshowea
(Zeile 02: notwendig f\374r die Definitions\344nderung von ) nshowde
(cmy0 setcmykcolor.) kshow

ix1 600 add iye 2 iyd mul add moveto
(The FF_PS file shall include line 02 before the use of ) kshowea
(Die FF_PS\255Datei muss Zeile 02 vor Benutzung von ) kshowde
CSS (1MR-0002) show
(.) kshowea
( enthalten.) kshowde

ix1 iye 1 iyd mul add moveto
(line 05 to 07: change of ) nshowea
(Zeile 05 bis 07: \304nderung von ) nshowde
(setgray ) kshow
(to ) nshowea
(nach ) nshowde
(cmy0 setcmykcolor.) kshow

ix1 iye 0 iyd mul add moveto
(line 08 to 16: change of ) nshowea
(Zeile 08 bis 18: \304nderung von ) nshowde
(setrgbcolor & setcmykcolor ) kshow
(to ) nshowea
(nach ) nshowde
(cmy0 setcmykcolor.) kshow

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

showpage
grestore

%%Trailer