%!PS-Adobe-3.0 EPSF-3.0 AG970-7N.EPS %%BoundingBox: 70 82 380 570 %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: http://farbe.li.tu-berlin.de/AG97/AG97.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2016050112000) /ModDate (D:20160501112000) /DOCINFO pdfmark07 [ /View [ /FitB ] /DOCVIEW pdfmark07 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def /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 /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 /nshowde {0 lanind eq {nshow} {pop} ifelse} bind def /nshowen {1 lanind eq {nshow} {pop} ifelse} bind def /kshowde {0 lanind eq {kshow} {pop} ifelse} bind def /kshowen {1 lanind eq {kshow} {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.02 MM dup scale 15 setlinewidth 0 1 0 {/iout exch def %iout=0,0 gsave 15 setlinewidth 1 setgray 0 0 moveto 5400 0 rlineto 0 8400 rlineto -5400 0 rlineto closepath fill 0 setgray 0 0 moveto 5400 0 rlineto 0 8400 rlineto -5400 0 rlineto closepath stroke TSSS 0 setgray 050 -110 moveto iout 0 eq {(AG970-7N) show} if iout 1 eq {(AG971-7N) show} if %************************************************************************************************ iout 0 eq {%iout=0 /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 7700 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 (Frame File PostScript Code (FF_PS) with three loops (important parts)) nshowea (Frame File PostScript Code (FF_PS) mit drei Schleifen (wichtige Teile)) nshowde ix1 iy1 moveto (and line 05 (%line 139) to include different transfer PS codes) kshowea (und Zeile 05 (%line 139) zum Einf\374gen von Transfer\255PS\255Codes) kshowde ix1 iy2 moveto (and line 20 (%line 239) to include the PS code of an ISO or DIN test file) kshowea (und Zeile 20 (%line 239) zum Einf\374gen der ISO\255 oder DIN\255Pr\374fvorlage) kshowde /PSTEXT [ (01 %!PS-Adobe-3.0 EPSF-3.0 AG97LMFF.PS 20110801) (02 %%BoundingBox: 0 0 842 595) (03) (04 %line169 %BEG INCLUDE TRANSFER PS CODES) (05 ) (06 %END INCLUDE TRANSFERS PS CODES) (07 %%EndProlog) (08 gsave) (09 ) (10 colorm10f 1 colorm20f {/colormf exch def %colorm10f,colorm20f) (11 gsave) (12 ) (13 xcolor10f 1 xcolor20f {/xcolorf exch def %xcolor10f,xcolor20f) (14 gsave) (15 ) (16 xchart10f 1 xchart20f {/xchartf exch def %xchart10f,xchart20f) (17 gsave) (18 ) (19 %line 239 %BEG INCLUDE TEST FILE PS CODE) (20 ) (21 %END INCLUDE TEST FILE PS CODE) (22 ) (23 68 MM 1.5 MM moveto) (24 (http://130.149.60.45/~farbmetrik/AG97/AG97LMFF.PDF) showde) (25 ) (26 showpage) (27 grestore) (28 ) (29 } for %end for xchartf=xchart10f,xchart20f) (30 grestore) (31 } for %end for xcolorf=xcolor10f,xcolor20f) (32 grestore) (34 } for %end for colormf=colorm10f,colorm20f) (35 %%Trailer) ] def /CSS {135 /Courier-Bold FS} bind def CSS 0 1 33 {/i exch def %i=0,33 ix1 iy iyd i mul sub 100 sub moveto PSTEXT i get show } for %i=0,20 /iy 1580 def %cero line lower text /iy0 iy def /iy1 iy0 iyd sub def /iy2 iy1 iyd sub 100 sub def /iy3 iy2 iyd sub def /iy4 iy3 iyd sub 100 sub def /iy5 iy4 iyd sub def /iy6 iy5 iyd sub 100 sub def /iy7 iy6 iyd sub def ix1 iy0 iyd add moveto (Remarks:) nshowea (Erl\344terungen:) nshowde ix1 iy0 moveto (The outer loop 10 to 34 is without and with a Linearization Method) nshowea (Die \344ussere Schleife 10 bis 34 ist ohne/mit Linearisierungs\255Methode) nshowde ix1 iy1 moveto (colormf=0 or 1 without and with Frame File Linearization Method (FF_LM)) kshowea (colormf=0/1 ohne/mit Rahmendatei\255Linearizsierungs\255Methode (FF_LM)) kshowde ix1 iy2 moveto (The middle loop 13 to 31 is for the amount of Room Reflections) nshowea (Die mittlere Schleife 13 bis 31 ist f\374r die Anzahl der Raum\255Reflexionen) nshowde ix1 iy3 moveto (xcolorf=0 to 7 for 8 display luminance reflections) kshowea (xcolorf=0 bis 7 f\374r 8 Display\255Leuchtdichte\255Reflexionen) kshowde ix1 iy4 moveto (The inner loop 16 to 29 is for the amount of ISO test pages) nshowea (Die innere Schleife 16 bis 29 ist f\374r die Anzahl der ISO\255Pr\374fvorlagen) nshowde ix1 iy5 moveto (xchartf=0 to 11 for 1 to 12 ISO and DIN test file pages) kshowea (xchartf=0 bis 11 f\374r 1 bis 12 ISO\255 und DIN\255Pr\374fvorlagenseiten) kshowde ix1 iy6 moveto (Inclusion of TRANSFER PS CODE, for example 1MR, DEH, at line 05) nshowea (Einf\374gen von TRANSFER PS CODE, zum Beispiel 1MR, DEH, an Zeile 05) nshowde ix1 iy7 moveto (Inclusion of TEST FILE PS CODE, for example ME16 of ISO 9241-306) nshowea (Einf\374gen von TEST FILE PS CODE, zum Beispiel MG16 von ISO 9241-306) nshowde } if %iout=0 %************************************************************************************************ iout 1 eq {%iout=1 /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 7700 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 (Frame File PostScript Code (FF_PS) with two loops (important parts)) nshowea (Frame File PostScript Code (FF_PS) mit zwei Schleifen (wichtige Teile)) nshowde ix1 iy1 moveto (and line 05 (%line 139) to include different transfer PS codes) kshowea (und Zeile 05 (%line 139) zum Einf\374gen von Transfer\255PS\255Codes) kshowde ix1 iy2 moveto (and line 20 (%line 239) to include the PS code of an ISO or DIN test file) kshowea (und Zeile 20 (%line 239) zum Einf\374gen der ISO\255 oder DIN\255Pr\374fvorlage) kshowde /PSTEXT [ (01 %!PS-Adobe-3.0 EPSF-3.0 AG97LMFF.PS 20110801) (02 %%BoundingBox: 0 0 842 595) (03) (04 %line169 %BEG INCLUDE TRANSFER PS CODES) (05 ) (06 %END INCLUDE TRANSFERS PS CODES) (07 %%EndProlog) (08 gsave) (09 ) (10 /colormf 1 def %colormf = 1 with output Linearization method) (11 gsave) (12 ) (13 xcolor10f 1 xcolor20f {/xcolorf exch def %xcolor10f,xcolor20f) (14 gsave) (15 ) (16 xchart10f 1 xchart20f {/xchartf exch def %xchart10f,xchart20f) (17 gsave) (18 ) (19 %line 239 %BEG INCLUDE TEST FILE PS CODE) (20 ) (21 %END INCLUDE TEST FILE PS CODE) (22 ) (23 68 MM 1.5 MM moveto) (24 (http://130.149.60.45/~farbmetrik/AG97/AG97LMFF.PDF) show) (25 ) (26 showpage) (27 grestore) (28 ) (29 } for %end for xchartf=xchart10f,xchart20f) (30 grestore) (31 } for %end for xcolorf=xcolor10f,xcolor20f) (32 grestore) (34 %} for %end for colormf=colorm10f,colorm20f) (35 %%Trailer) ] def /CSS {135 /Courier-Bold FS} bind def CSS 0 1 33 {/i exch def %i=0,33 ix1 iy iyd i mul sub 100 sub moveto PSTEXT i get show } for %i=0,20 /iy 1580 def %cero line lower text /iy0 iy def /iy1 iy0 iyd sub def /iy2 iy1 iyd sub 100 sub def /iy3 iy2 iyd sub def /iy4 iy3 iyd sub 100 sub def /iy5 iy4 iyd sub def /iy6 iy5 iyd sub 100 sub def /iy7 iy6 iyd sub def ix1 iy0 iyd add moveto (Remarks:) nshowea (Erl\344terungen:) nshowde ix1 iy0 moveto (The lines 10 to 34 define the application of a Linearization Method) nshowea (Die Zeilen 10 bis 34 definieren die Anwendung einer Linearisierungsmethode) nshowde ix1 iy1 moveto (colormf=1 with a Frame File Linearization Method (FF_LM)) kshowea (colormf=1 mit einer Rahmendatei-Linearisierungs\255Methode (FF_LM)) kshowde ix1 iy2 moveto (The outer loop 13 to 31 is for the amount of Room Reflections) nshowea (Die \344ussere Schleife 13 bis 31 ist f\374r die Anzahl der Raum\255Reflexionen) nshowde ix1 iy3 moveto (xcolorf=0 to 7 for 8 display luminance reflections) kshowea (xcolorf=0 bis 7 f\374r 8 Display\255Leuchtdichte\255Reflexionen) kshowde ix1 iy4 moveto (The inner loop 16 to 29 is for the amount of ISO test pages) nshowea (Die innere Schleife 16 bis 29 ist f\374r die Anzahl der ISO\255Pr\374fvorlagen) nshowde ix1 iy5 moveto (xchartf=0 to 11 for 1 to 12 ISO and DIN test file pages) kshowea (xchartf=0 bis 11 f\374r 1 bis 12 ISO\255 und DIN\255Pr\374fvorlagenseiten) kshowde ix1 iy6 moveto (Inclusion of TRANSFER PS CODE, for example 1MR, DEH, at line 05) nshowea (Einf\374gen von TRANSFER PS CODE, zum Beispiel 1MR, DEH, an Zeile 05) nshowde ix1 iy7 moveto (Inclusion of TEST FILE PS CODE, for example ME16 of ISO 9241-306) nshowea (Einf\374gen von TEST FILE PS CODE, zum Beispiel MG16 von ISO 9241-306) nshowde } if %iout=1 %************************************************************************************************ showpage grestore } for %iout=0,0 %%Trailer