%!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