%!PS-Adobe-3.0 EPSF-3.0 AGA20-3N.EPS
%%BoundingBox: 70 85 226 206

%START PDFDE011.EPS
/pdfmark03 where {pop} {userdict /pdfmark03 /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/AGA2/AGA2.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:2020030112000)
 /ModDate (D:2020030112000)
/DOCINFO pdfmark03
[ /View [ /Fit ]
/DOCVIEW pdfmark03
%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

15 setlinewidth
1 setgray
0 0  moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
closepath fill
0 setgray
0 0  moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
closepath stroke

TSSS
0 setgray
100 -110 moveto
(AGA20-3N) show

%************************************************************************************************
/ix1    50 def %1
/ix2  0900 def %2
/ix3  1800 def %3
/ix4  2700 def %4
/ix5  3600 def %5
/ix6  4500 def %6

/ixd  1200 def

/iyd   170 def          %line difference
/iyd1 iyd def
/iyd2 iyd 2 mul def
/iyd3 iyd 3 mul def
/iyd4 iyd 4 mul def
/iyd5 iyd 5 mul def
/iyd6 iyd 6 mul def

/iy 3300 def             %cero line below top
/iy0 iy iyd3 add def     %3 lines iy0 to iy2 for header
/iy1 iy iyd2 add def
/iy2 iy iyd1 add def

ix1  iy0 moveto 
(Change of ) nshowea
(\304nderung ) nshowde
(Frame File PostScript Code ) kshow
(for ) nshowea
(f\374r ) nshowde
(1\255Minus\255Relation (1MR)) kshow

0 iy0 70 sub moveto 5400 0 rlineto stroke

ix1  iy0 iyd 1.4 mul sub moveto
(The following files include changes (Yes/No):) nshowea
(Die folgenden Dateien enthalten \304nderungen (Ja/Nein):) nshowde

ix1  iy0 iyd 2.4 mul sub moveto
(File) nshowea (Datei) nshowde

ix1 1000 add iy0 iyd 2.4 mul sub moveto
(1MR) nshow

ix1 2000 add iy0 iyd 2.4 mul sub moveto
(gamma) nshowea
(Gamma) nshowde

ix1 3000 add iy0 iyd 2.4 mul sub moveto
(value) nshowea
(Wert) nshowde


ix1  iy0 iyd 3.4 mul sub moveto
(AEA20-2N) nshowea (AGA20-2N) nshowde

ix1 1000 add iy0 iyd 3.4 mul sub moveto
(No) nshowea (Nein) showde

ix1 2000 add iy0 iyd 3.4 mul sub moveto
(No) nshowea
(Nein) nshowde

ix1 3000 add iy0 iyd 3.4 mul sub moveto
(1,000) nshow


ix1  iy0 iyd 4.4 mul sub moveto
(AEA20-4N) nshowea (AGA20-4N) nshowde

ix1 1000 add iy0 iyd 4.4 mul sub moveto
(Yes) nshowea (Ja) showde

ix1 2000 add iy0 iyd 4.4 mul sub moveto
(Yes) nshowea
(Ja) nshowde

ix1 3000 add iy0 iyd 4.4 mul sub moveto
(0,475) nshow


ix1  iy0 iyd 5.4 mul sub moveto
(AEA21-1N) nshowea (AGA21-1N) nshowde

ix1 1000 add iy0 iyd 5.4 mul sub moveto
(No) nshowea (Nein) showde

ix1 2000 add iy0 iyd 5.4 mul sub moveto
(No) nshowea
(Nein) nshowde

ix1 3000 add iy0 iyd 5.4 mul sub moveto
(1,000) nshow


ix1  iy0 iyd 6.4 mul sub moveto
(AEA21-3N) nshowea (AGA21-3N) nshowde

ix1 1000 add iy0 iyd 6.4 mul sub moveto
(Yes) nshowea (Ja) showde

ix1 2000 add iy0 iyd 6.4 mul sub moveto
(No) nshowea
(Nein) nshowde

ix1 3000 add iy0 iyd 6.4 mul sub moveto
(1,000) nshow


ix1  iy0 iyd 7.4 mul sub moveto
(AEA2L0NP) nshowea (AGA2L0NP) nshowde

ix1 1000 add iy0 iyd 7.4 mul sub moveto
(No) nshowea (Nein) showde

ix1 2000 add iy0 iyd 7.4 mul sub moveto
(No) nshowea
(Nein) nshowde

ix1 3000 add iy0 iyd 7.4 mul sub moveto
(1,000) nshow

/PSTEXT
[
(01 %BEG PS-Code used in the files of this page AEA2)
(02 1MR-0000F)
(03 1MR-0000G)
(04 /1MR-0000G where {pop 1MR-0000G}{1MR-0000F} ifelse)
(05)
(06 %The PS-Operator is not active if "%" is in front.)
(07) 
(08 %Used in AEA20-2N.EPS, AEA21-1N.EPS: %02, %03, %04)
(09 %Used in AEA20-4N.EPS, AEA21-3N.EPS:  02, %03, %04)
(10 %Used in AEA2L0NP.EPS: %02, %03, %04)
(11 %END PS-Code used in the files of this page AEA2)
] def

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

/iyy 2330 def

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

/iyz iyy iyd 12 mul sub def  

ix1  iyz moveto
(Remarks:) nshowea
(Erl\344uterungen:) nshowde

ix1  iyz iyd 1 mul sub moveto
(lines 02 to 04: three possibilities for PS Operators (%=not used).) nshowea
(Zeilen 02 bis 04: drei F\344lle von PS\255Operatoren ) showde
((%=nicht benutzt).) nshowde

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

showpage
grestore

%%Trailer