%!PS-Adobe-3.0 EPSF-3.0 AGA20-8N.EPS %%BoundingBox: 70 85 228 335 %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: 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:2020020112000) /ModDate (D:2020020112000) /DOCINFO pdfmark07 [ /View [ /Fit ] /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 /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 /TISSS {150 /TimesI-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 5450 def /ywidth 8500 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 (AGA20-8N) show %****************************************************************** /ix1 20 def %1 /iyd 170 def %line difference /iy0 8310 def %header ix1 iy0 moveto (PostScript\255) kshow (code used in the local files (F) for the ) nshowea (Code benutzt in lokalen Dateien (F) f\374r ) nshowde (1\255Minus\255Relation (1MR)) nshowea (1\255Minus\255Relation (1MR)) nshowde 0 iy0 100 sub moveto xwidth 0 rlineto stroke ix1 iy0 300 sub moveto (The software ) showea (Die Software ) showde (AdobeDistiller V3.0 ) kshow (transfers local PS\255VG to the PDF\255VG code.) nshowea (wandelt lokalen PS\255VG\255 in PDF\255VG\255Code.) nshowde ix1 iy0 500 sub moveto (The software ) nshowea (Die Software ) nshowde (GraphicConcerter V5.2 ) kshow (transfers PDF\255VG to the eps\255PG code.) nshowea (wandelt PDF\255VG\255 nach eps\255PG\255Code.) nshowde /PSTEXT 100 array def /PSTEXT [ (01 %BEG AGA2/OUTLIN1Y2 EARLY BINDING 1MR-0000F 200201) (02 %BEG 1MR-0000F.TXT, 1MR & rel. gamma change 200201) (03) (04 /gammaFi 15 array def) (05 /gammaFi %rel. gamma according to ISO 9241-306:2018) (06 [0.475 0.550 0.625 0.700 0.775 0.849 0.924 1.000) (07 1.081 1.176 1.290 1.428 1.600 1.818 2.105] def) (08) (09 /1MR-0000F {%BEG procedure 1MR-0000F) (10 /FF_LM_setgrayF0 {setgray} bind def) (11 /FF_LM_setrgbcolorF0 {setrgbcolor} bind def) (12 /FF_LM_setcmykcolorF0 {setcmykcolor} bind def) (13 /FF_LM_transferF0 {settransfer} bind def) (14 /FF_LM_colortransferF0 {setcolortransfer} bind def) (15 /FF_LM_xchartg_gammaF {gammaGi xchart get exp} def) (16) (17 /FF_LM_setrgbcolorF {%BEG FF_LM_setrgbcolorF) (18 /FF_LM_b0L exch def /FF_LM_g0L exch def) (19 /FF_LM_r0L exch def) (20 FF_LM_r0L 0 le {/FF_LM_r0L 0.0001 def} if) (21 FF_LM_g0L 0 le {/FF_LM_g0L 0.0001 def} if) (22 FF_LM_b0L 0 le {/FF_LM_b0L 0.0001 def} if) (23 /FF_LM_r1F FF_LM_r0L FF_LM_xchartg_gammaF def) (24 /FF_LM_g1F FF_LM_g0L FF_LM_xchartg_gammaF def) (25 /FF_LM_b1F FF_LM_b0L FF_LM_xchartg_gammaF def) (26 FF_LM_r1F FF_LM_g1F FF_LM_b1F) (27 FF_LM_setrgbcolorF0} def %END FF_LM_setrgbcolorF) (28) (29 /setgray {%BEG procedure setgrayF) (30 dup dup FF_LM_setrgbcolorF) (31 } def %END procedure setgrayF) (32 %PS continuing lines 33 to 65 in file AEA20-8N.PDF) (33 %PS previous lines 01 to 32 in file AEA20-7N.PDF) (34 /setcmykcolor {%BEG procedure setcmykcolorF) (35 /FF_LM_k exch def /FF_LM_y exch def) (36 /FF_LM_m exch def /FF_LM_c exch def) (37 FF_LM_k 0 eq {1 FF_LM_c sub 1 FF_LM_m sub) (38 1 FF_LM_y sub FF_LM_setrgbcolorF}) (39 {1 FF_LM_k sub dup dup) (40 FF_LM_setrgbcolorF} ifelse) (41 } def %END procedure setcmykcolorF) (42) (43 /setrgbcolor {%BEG procedure setrgbcolorF) (44 /FF_LM_b exch def /FF_LM_g exch def) (45 /FF_LM_r exch def) (46 FF_LM_r FF_LM_g FF_LM_b) (47 FF_LM_setrgbcolorF) (48 } def %END procedure setrgbcolorF) (49) (50 /FF_LM_transferF {%BEG FF_LM_transferF) (51 {FF_LM_xchartg_gammaF}) (52 FF_LM_transferF0} def %END FF_LM_transferF) (53 /settransfer {FF_LM_transferF} def) (54) (55 /FF_LM_colortransferF {%BEG FF_LM_colortransferF) (56 {FF_LM_xchartg_gammaF} {FF_LM_xchartg_gammaF}) (57 {FF_LM_xchartg_gammaF}) (58 FF_LM_colortransferF0} def) (59 %END FF_LM_colortransferF) (60 /setcolortransfer {FF_LM_colortransferF} def) (61 } def %END procedure 1MR-0000F) (62 %END 1MR-0000F.TXT, 1MR & rel. gamma change 200201) (63 %END AGA2/OUTLIN1Y2 EARLY BINDING 1MR-0000F 200201) (64 %global use: 1MR-0000G, image file use: 1MR-0000F) (65 /1MR-0000G where {pop 1MR-0000G}{1MR-0000F} ifelse) ] def /CSS {160 /Courier-Bold FS} bind def CSS /iA 32 def /iE 64 def iA 1 iE {/i exch def %i=iA,IE ix1 iy0 190 i 1 add iA sub mul sub 550 sub moveto PSTEXT i get show } for %i=iA,iE /iy1 1250 def %cero line lower text ix1 iy1 iyd 0 mul sub moveto (Remarks:) nshowea (Erl\344uterungen:) nshowde ix1 iy1 iyd 1 mul sub moveto (lines 32 to 64: ) nshowea (Zeilen 32 bis 64: ) nshowde (early lokal binding of the other four PS color operators: ) nshowea (fr\374he lokale Bindung der anderen vier PS\255Farboperatoren: ) nshowde ix1 iy1 iyd 2 mul sub moveto (setrgbcolor, setcmykcolor, settransfer, setcolortransfer.) kshow ix1 iy1 iyd 3 mul sub moveto (The values of all including a revised ) nshowea (Die Werte von allen einschlie\337lich neuem ) nshowde (setrgbcolor ) kshow (vary with ) nshowea (variieren mit ) nshowde (gamma.) kshowea (Gamma.) kshowde /iout1 1 def iout1 1 eq {%iout1=1 ix1 iy1 iyd 4.4 mul sub moveto (line 65: ) nshowea (Zeile 65: ) nshowde (If the global procedure ) nshowea (Wenn globale Prozedur ) nshowde CSS (/1MR-0000G ) show (is defined, then this is used.) nshowea (definiert ist, wird sie benutzt.) nshowde } if %iout1=1 /iout2 1 def iout2 1 eq {%iout2=1 ix1 iy1 iyd 5.8 mul sub moveto (Die lokalen Dateien (F), zum Beispiel AGA21-3N.EPS, benutzen am Beginn) nshowde (The local files (F), for example AEA21-3N.EPS, use at the begin) nshowea ix1 iy1 iyd 6.8 mul sub moveto (die Prozedur 1MR-0000F anstelle von 1MR-0000G in AGA2L0NA.EPS.) nshowde (the procedure 1MR-0000F instead of 1MR-0000G within AEA2L0NA.PS.) nshowea } if %iout2=1 %************************************************************************************************ showpage grestore %%Trailer