%!PS-Adobe-3.0 EPSF-3.0 AGA21-7N.EPS %%BoundingBox: 70 85 228 335 %START PDFDE011.EPS /pdfmark17 where {pop} {userdict /pdfmark17 /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 pdfmark17 [ /View [ /Fit ] /DOCVIEW pdfmark17 %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 (AGA21-7N) show %****************************************************************** /ix1 20 def %1 /iyd 170 def %line difference /iy0 8310 def %header ix1 iy0 moveto (PostScript\255) kshow (code used in the global (G) files for the ) nshowea (Code benutzt in globalen (G) Dateien 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 global PS\255VG to the PDF\255VG code.) nshowea (wandelt globalen 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-0000G 200201) (02 %BEG 1MR-0000G.TXT, 1MR & rel. gamma change 200201) (03) (04 /gammaGi 15 array def) (05 /gammaGi %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-0000G {%BEG procedure 1MR-0000G) (10 /FF_LM_setgrayG0 {setgray} bind def) (11 /FF_LM_setrgbcolorG0 {setrgbcolor} bind def) (12 /FF_LM_setcmykcolorG0 {setcmykcolor} bind def) (13 /FF_LM_transferG0 {settransfer} bind def) (14 /FF_LM_colortransferG0 {setcolortransfer} bind def) (15 /FF_LM_xchartg_gammaG {gammaGi xchart get exp} def) (16) (17 /FF_LM_setrgbcolorG {%BEG FF_LM_setrgbcolorG) (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_gammaG def) (24 /FF_LM_g1F FF_LM_g0L FF_LM_xchartg_gammaG def) (25 /FF_LM_b1F FF_LM_b0L FF_LM_xchartg_gammaG def) (26 FF_LM_r1F FF_LM_g1F FF_LM_b1F) (27 FF_LM_setrgbcolorG0} def %END FF_LM_setrgbcolorG) (28) (29 /setgray {%BEG procedure setgrayG) (30 dup dup FF_LM_setrgbcolorG) (31 } def %END procedure setgrayG) (32 %PS continuing lines 33 to 65 in file AEA21-8N.PDF) (33 %PS previous lines 01 to 32 in file AEA21-7N.PDF) (34 /setcmykcolor {%BEG procedure setcmykcolorG) (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_setrgbcolorG}) (39 {1 FF_LM_k sub dup dup) (40 FF_LM_setrgbcolorG} ifelse) (41 } def %END procedure setcmykcolorG) (42) (43 /setrgbcolor {%BEG procedure setrgbcolorG) (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_setrgbcolorG) (48 } def %END procedure setrgbcolorG) (49) (50 /FF_LM_transferG {%BEG FF_LM_transferG) (51 {FF_LM_xchartg_gammaG}) (52 FF_LM_transferG0} def %END FF_LM_transferG) (53 /settransfer {FF_LM_transferG} def) (54) (55 /FF_LM_colortransferG {%BEG FF_LM_colortransferG) (56 {FF_LM_xchartg_gammaG} {FF_LM_xchartg_gammaG}) (57 {FF_LM_xchartg_gammaG}) (58 FF_LM_colortransferG0} def) (59 %END FF_LM_colortransferG) (60 /setcolortransfer {FF_LM_colortransferG} def) (61 } def %END procedure 1MR-0000G) (62 %END 1MR-0000G.TXT, 1MR & rel. gamma change 200201) (63 %END AGA2/OUTLIN1Y2 EARLY BINDING 1MR-0000G 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 0 def /iE 31 def iA 1 iE {/i exch def %i=iA,IE ix1 iy0 190 i 1 add iA sub mul sub 600 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 09 to 15: ) nshowea (Zeilen 09 bis 15: ) nshowde (early global binding of five PS color operators: ) nshowea (fr\374he globale Bindung von f\374nf PS\255Farboperatoren: ) nshowde ix1 iy1 iyd 2 mul sub moveto (setgray, setrgbcolor, setcmykcolor, settransfer, setcolortransfer.) kshow /iout1 1 def iout1 1 eq {%iout1=1 ix1 iy1 iyd 3.4 mul sub moveto (lines 11 to 31: ) nshowea (Zeilen 11 bis 31: ) nshowde (early global binding of the PS operator ) nshowea (fr\374he globale Bindung des PS\255Operators ) nshowde (setgray. Setgray) kshow ix1 iy1 iyd 4.4 mul sub moveto (is transfered to the PS operator ) nshowea (wird in PS\255Operator ) nshowde (setrgbcolor. ) kshowea (setrgbcolor ) kshowde (gewandelt. ) nshowde (The values vary with ) nshowea (Die Werte variieren mit ) nshowde (gamma.) kshowea (Gamma.) kshowde } if %iout1=1 /iout2 1 def iout2 1 eq {%iout2=1 ix1 iy1 iyd 5.8 mul sub moveto (Die globalen (G) Dateien, zum Beispiel AGA2L0NA.PS, benutzen am Beginn) nshowde (The global (G) frame files, for example AEA2L0NA.PS, use at the begin) nshowea ix1 iy1 iyd 6.8 mul sub moveto (die Prozedur 1MR-0000G anstelle von 1MR-0000F in AGA21-3N.EPS.) nshowde (the procedure 1MR-0000G instead of 1MR-0000F within AEA21-3N.EPS.) nshowea } if %iout2=1 %************************************************************************************************ showpage grestore %%Trailer