%!PS-Adobe-3.0 EPSF-3.0 OE641-3A.EPS
%%BoundingBox: 71 82 430 360
%START PDFDE011.EPS
/pdfmark13 where {pop} {userdict /pdfmark13 /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://130.149.60.45/~farbmetrik/OE40/)
/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, colour vision)
/Creator (klaus.richter@mac.com)
/CreationDate (D:2011080112000)
/ModDate (D:2011080112000)
/DOCINFO pdfmark13
[ /View [ /FitB ]
/DOCVIEW pdfmark13
%END PDFDE011
% !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I
/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
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def %Umrechnung Inch -> mm
/A4quer {598 0 translate 90 rotate} def
/languagelevel where {pop languagelevel} {1} ifelse
/PSL12 exch def
/dictende {counttomark 2 idiv dup dict begin {def}
repeat pop currentdict end} bind def
/TKK {200 /Times-ISOL1 FS} bind def
/TK {250 /Times-ISOL1 FS} bind def
/TM {280 /Times-ISOL1 FS} bind def
/TG {350 /Times-ISOL1 FS} bind def
/TIKK {200 /TimesI-ISOL1 FS} bind def
/TIK {250 /TimesI-ISOL1 FS} bind def
/TIM {280 /TimesI-ISOL1 FS} bind def
/TIG {350 /TimesI-ISOL1 FS} bind def
/TBKK {200 /TimesB-ISOL1 FS} bind def
/TBK {250 /TimesB-ISOL1 FS} bind def
/TBM {280 /TimesB-ISOL1 FS} bind def
/TBG {350 /TimesB-ISOL1 FS} bind def
/TBIKK {200 /TimesBI-ISOL1 FS} bind def
/TBIK {250 /TimesBI-ISOL1 FS} bind def
/TBIM {280 /TimesBI-ISOL1 FS} bind def
/TBIG {350 /TimesBI-ISOL1 FS} bind def
/rec %x, y width heigth
{/heigth exch def /width exch def
moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto
closepath } bind def
/tzocmy0* {0.0 1.0 1.0 0.0} bind def %Reproduction colours
/tzlcmy0* {1.0 0.0 1.0 0.0} bind def %cmyn* setcmykcolor
/tzvcmy0* {1.0 1.0 0.0 0.0} bind def
/tzccmy0* {1.0 0.0 0.0 0.0} bind def
/tzmcmy0* {0.0 1.0 0.0 0.0} bind def
/tzycmy0* {0.0 0.0 1.0 0.0} bind def
/tzoolv* {1.0 0.0 0.0} bind def %Reproduction colours
/tzlolv* {0.0 1.0 0.0} bind def %olv* setrgbcolor
/tzvolv* {0.0 0.0 1.0} bind def
/tzcolv* {0.0 1.0 1.0} bind def
/tzmolv* {1.0 0.0 1.0} bind def
/tzyolv* {1.0 1.0 0.0} bind def
/tzncmy0* {1.00 1.00 1.00 0.00} bind def %grey series
/tzdcmy0* {0.75 0.75 0.75 0.00} bind def %cmy0* setcmykcolor
/tzzcmy0* {0.50 0.50 0.50 0.00} bind def
/tzhcmy0* {0.25 0.25 0.25 0.00} bind def
/tzwcmy0* {0.00 0.00 0.00 0.00} bind def
/tzn000n* {0.00 0.00 0.00 1.00} bind def %grey series 000n*
/tzd000n* {0.00 0.00 0.00 0.75} bind def %000n* setcmykcolor
/tzz000n* {0.00 0.00 0.00 0.50} bind def
/tzh000n* {0.00 0.00 0.00 0.25} bind def
/tzw000n* {0.00 0.00 0.00 0.00} bind def
/tznw* {0.00} bind def %grey series
/tzdw* {0.25} bind def %w* 1.0 exp setgray
/tzzw* {0.50} bind def
/tzhw* {0.75} bind def
/tzww* {1.00} bind def
/tznolv* {0.00 0.00 0.00} bind def %grey series
/tzdolv* {0.25 0.25 0.25} bind def %olv* setrgbcolor
/tzzolv* {0.50 0.50 0.50} bind def
/tzholv* {0.75 0.75 0.75} bind def
/tzwolv* {1.00 1.00 1.00} bind def
/DecodeXYZ* {dup 6 29 div ge {dup dup mul mul}
{4 29 div sub 108 841 div mul} ifelse} bind 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
%*************************************************************************
%%EndProlog
gsave
%LANINDL2.EPS START 20000505
/lanind 0 def
/lantex [(G) (E) (S) (F) (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
/showm {6 lanind eq {show} {pop} ifelse} bind def
/popde {0 lanind ne {pop} if} bind def
/popen {1 lanind ne {pop} if} bind def
/popes {2 lanind ne {pop} if} bind def
/popfr {3 lanind ne {pop} if} bind def
/popit {4 lanind ne {pop} if} bind def
/popjp {5 lanind ne {pop} if} bind def
/popm {6 lanind ne {pop} if} bind def
/popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def
/popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def
/popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def
/popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def
/popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def
/popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def
/popxm {/n exch def 6 lanind ne {n {pop} repeat} if} bind def
/lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def}
{/lanind1 1 def /lanind2 1 def} ifelse
/colormg where {pop /colorm1 colormg def /colorm2 colormg def}
{/colorm1 0 def /colorm2 0 def} ifelse
/xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def}
{/xcolor1 3 def /xcolor2 3 def} ifelse
/xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def
/xchartd xchartgd def}
{/xchart1 0 def /xchart2 7 def /xchartd 1 def} ifelse
/pchartg where {pop /pchart1 pchartg def /pchart2 pchartg def
/pchartd pchartgd def}
{/pchart1 0 def /pchart2 11 def /pchartd 1 def} ifelse
/lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage
/colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage
/xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage
/xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage
/pchart pchart1 def %pchart1 1 pchart2 {/pchart exch def %output showpage
/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
/colorml colorm def
%0 1 1 {/colorml exch def %colorml=0,1
/xcolorl xcolor def
%0 1 3 {/xcolorl exch def %xcolorl=0,3
/xchartl xchart def
0 1 7 {/xchartl exch def %xchartl=0,7
/pchartl pchart def
0 1 11 {/pchartl exch def %pchartl=0,11
gsave
pchartl 0 ge pchartl 2 le and {/xcolorl 0 def} if
pchartl 3 ge pchartl 5 le and {/xcolorl 1 def} if
pchartl 6 ge pchartl 8 le and {/xcolorl 2 def} if
pchartl 9 ge pchartl 11 le and {/xcolorl 3 def} if
/xcolorn xcolorl def
xcolorl 0 eq {/tfnx* {0 0 0 1 setcmykcolor} def
/tfwx* {0 0 0 0 setcmykcolor} def
/colrecfix* {setcmykcolor rec fill} bind def
/colrecstx* {setcmykcolor rec stroke} bind def
} if
xcolorl 1 eq {/tfnx* {0 setgray} def
/tfwx* {1 setgray} def
/colrecfix* {setgray rec fill} bind def
/colrecstx* {setgray rec stroke} bind def
} if
xcolorl 2 eq {/tfnx* {1 1 1 0 setcmykcolor} def
/tfwx* {0 0 0 0 setcmykcolor} def
/colrecfix* {setcmykcolor rec fill} bind def
/colrecstx* {setcmykcolor rec stroke} bind def
} if
xcolorl 3 eq {/tfnx* {0 0 0 setrgbcolor} def
/tfwx* {1 1 1 setrgbcolor} def
/colrecfix* {setrgbcolor rec fill} bind def
/colrecstx* {setrgbcolor rec stroke} bind def
} if
pchartl pchartl 3 idiv 3 mul sub 0 eq {%pchartl=0,3,6,9
72 90 translate
0.01 MM dup scale
15 setlinewidth
tfnx*
TM
0 -220 moveto
(OE641-3A, ) show
(Bild A5) showde (Picture A5) showen
(\255) show colorml cvishow xcolorl cvishow
xchartd 1 eq {xchartl cvishow}
{xchartl xchartd idiv cvishow} ifelse
(\255) show pchartl cvishow (: ) show
(Linienraster unter 45\260 (oder 135\260)) showde
(Line raster under 45\260 (or 135\260)) showen
(Line raster under 45\260 (or 135\260)) showes
(Line raster under 45\260 (or 135\260)) showfr
(Line raster under 45\260 (or 135\260)) showit
(Line raster under 45\260 (or 135\260)) showjp
(Line raster under 45\260 (or 135\260)) showm
TM
(; PS\255Operator:) showde
(; PS operator:) showen
(; PS operator:) showes
(; PS operator:) showfr
(; PS operator:) showit
(; PS operator:) showjp
(; PS operator:) showm
TIM
xcolorl 0 eq {( 0 0 0 n* setcmykcolor) show} if
xcolorl 1 eq {( w* setgray) show} if
xcolorl 2 eq {( n* n* n* 0 setcmykcolor) show} if
xcolorl 3 eq {( w* w* w* setrgbcolor) show} if
TM
%/pixf 16.67 def
%0.1667 pixf div MM 0.1667 pixf div MM scale
% 0,01 * (72/25,4) = 0,02834 Zoll = 0,01 MM
% 72 / 3600 = 2 / 100 Zoll = 0,02 Zoll = 0,00705555 mm
%/FAKT {0.01 72 mul 25.4 div 72 3600 div div} def
%(0,01 * 72 / 25.4)/(72/3600) = (0.01/25.4)/(1/3600) = (0.01*3600)/25.4
% = 36/25.4 = 1.4173228
/FAKT {36 25.4 div mul} def
/FAKC {36 25.4 div} def
%72 3600 div FAKT dup scale
%Belichtereinheit = 25.4 mm / 3600 = 0,0070555555 mm
%PostScript-Einheit =(72/3600) = 2 / 100 = 0.02
%bisherige Einheit 0.01 * 72 / 25.4 = 0,0283464 = 3/100 Zoll
%bisherige Einheit 0.01 / 25.4 = 0,0003937
%MM -> DPI = 0,0283464 / 0.07055 = (25.4/3600) / (72/25.4) = 2 / 100 = 0,02
15 setlinewidth %kleinste Linienbreite
/tfzn 0.5 def
/tfzw 1 tfzn sub def
xcolorl 0 eq {/tfzx* {0 0 0 tfzn setcmykcolor} def} if
xcolorl 1 eq {/tfzx* {tfzw setgray} def} if
xcolorl 2 eq {/tfzx* {tfzn dup dup 0 setcmykcolor} def} if
xcolorl 3 eq {/tfzx* {tfzw dup dup setrgbcolor} def} if
tfwx*
0 0 moveto 12000 0 rlineto 0 4000 rlineto
-12000 0 rlineto closepath fill
tfnx*
0 0 moveto 12000 0 rlineto 0 4000 rlineto
-12000 0 rlineto closepath stroke
TBK
4300 100 moveto
(Rasterweite in ) showde
(line raster diameter in ) showen
(line raster diameter in ) showes
(line raster diameter in ) showfr
(line raster diameter in ) showit
(line raster diameter in ) showjp
(line raster diameter in ) showm
TBIK (lpi) show
/ntl [( 15) ( 30) ( 60) (120)] def
/ntp [(\050+1\051) (\050+2\051) (\050+4\051) (\050+8\051)] def
/ntr [( 30) ( 60) (120) (240)] def
/ntu [(15) (16) (17) (18) (19) (20) (21) (22)
(23) (24) (25) (26) (27) (28) (29) (30)] def
/nto [(120) (128) (136) (144) (152) (160) (168) (176)
(184) (192) (200) (208) (216) (224) (232) (240)] def
TBM tfnx*
0 1 4 {/l exch def /iy0 850 l 600 mul add def
500 iy0 moveto 10800 0 rlineto closepath stroke
} for %l
0 3 3 {/l exch def /iy0 l 600 mul def
0 1 15 {/j exch def /ix0 1150 j 600 mul add def
l 0 eq {ix0 150 add iy0 450 add moveto
ntu j get show} if
l 3 eq {ix0 050 add iy0 1600 add moveto
nto j get show} if
l 0 eq {ix0 iy0 400 add moveto 0 3300 rlineto
closepath stroke} if
l 0 eq j 15 eq and
{ix0 600 add iy0 400 add FAKT
moveto 0 3300 rlineto closepath stroke} if
} for %j
} for %l
tfnx* %N-Raster 0001 setcmykcolor, 0 setgray,
%1110 setcmykcolor, 0 0 0 setrgbcolor
0 1 03 {/l exch def /iy0 850 l 600 mul add def
TBK
600 iy0 100 add moveto
ntp l get show
TBM
500 iy0 350 add moveto
ntl l get show
10900 iy0 150 add moveto
ntr l get show
/ixd 600 def
0 1 15 {/j exch def /ix0 1150 j 600 mul add def
TKK
l 0 eq {/ixjF0 3600 30 j 1 mul add div def
/kmax 8 def
/x ix0 def %BEG special 45 degree
/y iy0 def
/width ixd def
/height ixd def
gsave
newpath
x y moveto
width 0 rlineto
0 height rlineto
width neg 0 rlineto
closepath
clip
newpath %END special 45 degree
kmax neg 2 kmax {/k exch def /ixjF ixjF0 def
/ixjFk ixjF k 2 sub mul def
/ixjFk1 ixjFk ixjF add def
ixjFk 600 lt {
ix0 ixjFk add iy0 moveto
ixjF 000 rlineto ixd dup rlineto
ixjF neg 000 rlineto closepath fill
} if %ixjFk < 600
} for %k
grestore %special 45 degree
} if
l 1 eq {/ixjF0 3600 60 j 2 mul add div def
/kmax 16 def
/x ix0 def %BEG special 45 degree
/y iy0 def
/width ixd def
/height ixd def
gsave
newpath
x y moveto
width 0 rlineto
0 height rlineto
width neg 0 rlineto
closepath
clip
newpath %END special 45 degree
kmax neg 2 kmax {/k exch def /ixjF ixjF0 def
/ixjFk ixjF k mul def
/ixjFk1 ixjFk ixjF add def
ixjFk 600 lt {
ix0 ixjFk add iy0 moveto
ixjF 000 rlineto ixd dup rlineto
ixjF neg 000 rlineto closepath fill
} if %ixjFk < 600 FAKT
} for %k
grestore %special 45 degree
} if
l 2 eq {/ixjF0 3600 120 j 4 mul add div def
/kmax 32 def
/x ix0 def %BEG special 45 degree
/y iy0 def
/width ixd def
/height ixd def
gsave
newpath
x y moveto
width 0 rlineto
0 height rlineto
width neg 0 rlineto
closepath
clip
newpath %END special 45 degree
kmax neg 2 kmax {/k exch def /ixjF ixjF0 def
/ixjFk ixjF k mul def
/ixjFk1 ixjFk ixjF add def
ixjFk 600 lt {
ix0 ixjFk add iy0 moveto
ixjF 000 rlineto ixd dup rlineto
ixjF neg 000 rlineto closepath fill
} if %ixjFk < 600 FAKT
} for %k
grestore %special 45 degree
} if
l 3 eq {/ixjF0 3600 240 j 8 mul add div def
/kmax 64 def
/x ix0 def %BEG special 45 degree
/y iy0 def
/width ixd def
/height ixd def
gsave
newpath
x y moveto
width 0 rlineto
0 height rlineto
width neg 0 rlineto
closepath
clip
newpath %END special 45 degree
kmax neg 2 kmax {/k exch def /ixjF ixjF0 def
/ixjFk ixjF k mul def
/ixjFk1 ixjFk ixjF add def
ixjFk 600 lt {
ix0 ixjFk add iy0 moveto
ixjF 000 rlineto ixd dup rlineto
ixjF neg 000 rlineto closepath fill
} if %ixjFk < 600 FAKT
} for %k
grestore %special 45 degree
} if
} for %j
} for %l
} if %pchartl=0,3,6,9
pchartl pchartl 3 idiv 3 mul sub 1 eq {%pchartl=1,4,7,10
%gsave
/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
72 90 translate
0.02 MM dup scale
15 setlinewidth
/iyd 150 def %text size, line difference
0 setgray
0 -120 moveto
(Part 2) nshowen (Teil 2) nshowde
4500 -120 moveto
(OE641-3A) nshow
(\255) show colorml cvishow xcolorl cvishow
xchartd 1 eq {xchartl cvishow}
{xchartl xchartd idiv cvishow} ifelse
(\255) show pchartl cvishow %(: ) show
1 setgray
0 0 moveto 6000 0 rlineto 0 4200 rlineto
-6000 0 rlineto closepath fill
0 setgray
0 0 moveto 6000 0 rlineto 0 4200 rlineto
-6000 0 rlineto closepath stroke
/ix1 50 def %1
/ix2 1600 def %2
/ix3 3200 def %3
/ix4 5100 def %3
/iyd 175 def %line difference
/y00 3850 def
/iyt0 3500 def %cero line below top
/iy00 iyt0 def
/iy10 iyt0 iyd 1 mul sub def
/iy20 iyt0 iyd 2 mul sub def
/iy30 iyt0 iyd 3 mul sub def
/iy40 iyt0 iyd 4 mul sub def
/iy50 iyt0 iyd 5 mul sub def
/iy60 iyt0 iyd 6 mul sub def
/iy70 iyt0 iyd 7 mul sub def
/iy80 iyt0 iyd 8 mul sub def
/iy90 iyt0 iyd 9 mul sub def
/iyt1 1500 def
/iy01 iyt1 def
/iy11 iyt1 iyd 1 mul sub def
/iy21 iyt1 iyd 2 mul sub def
/iy31 iyt1 iyd 3 mul sub def
/iy41 iyt1 iyd 4 mul sub def
/iyt2 0700 def
/iy02 iyt2 def
/iy12 iyt2 iyd 1 mul sub def
/iy22 iyt2 iyd 2 mul sub def
/iy32 iyt2 iyd 3 mul sub def
/iy42 iyt2 iyd 4 mul sub def
ix1 y00 200 add moveto
(Test for the best visual linearized output of Picture A7) bshowen
(Pr\374fung f\374r beste visuelle linearisierte Ausgabe von Bild A7) bshowde
(\255) nshow colorml cvishow xcolorl cvishow
xchartd 1 eq {xchartl cvishow}
{xchartl xchartd idiv cvishow} ifelse
(\255) show (0) show %pchartl cvishow
ix4 y00 200 add moveto (Yes/No) bshowen (Ja/Nein) showde
ix1 y00 moveto
(Output test with the computer display ( ) or the external display ( )) bshowen
(Ausgabe\255Pr\374fung mit dem Rechner\255Display ( ) oder dem externen Display ( )) bshowde
ix1 iy00 moveto
(Test of the ) bshowen (Pr\374fung der) bshowde
(Landolt) jshow
(\255rings ) bshowen (\255Ringe) bshowde
(N-W) jshow
( according to picture A4) bshowen (nach Bild A4) bshowde
(\255) nshow colorml cvishow xcolorl cvishow
xchartd 1 eq {xchartl cvishow}
{xchartl xchartd idiv cvishow} ifelse
(\255) show (0) show %pchartl cvishow
ix1 iy10 moveto
(N-W) jshow
(\255radial grating:) nshowen (\255Radiales Gitter:) nshowde
ix1 iy20 moveto (Is the recognition frequency of the ) showen
(Ist die Erkennbarkeits\255Frequenz der ) showde
(Landolt) kshow
(\255rings > 50% (5 of 8 at least)?) nshowen
(\255Ringe > 50% (mindestens 5 von 8)?) nshowde
ix2 iy30 moveto (background - ring) nshowen (Umfeld - Ring) nshowde
ix2 iy40 moveto (0 - 1) nshow
ix4 iy40 moveto (Yes/No) bshowen (Ja/Nein) bshowde
ix2 iy50 moveto (7 - 8) nshow
ix4 iy50 moveto (Yes/No) bshowen (Ja/Nein) bshowde
ix2 iy60 moveto (E - F) nshow
ix4 iy60 moveto (Yes/No) bshowen (Ja/Nein) bshowde
ix2 iy70 moveto (2 - 0) nshow
ix4 iy70 moveto (Yes/No) bshowen (Ja/Nein) bshowde
ix2 iy80 moveto (8 - 6) nshow
ix4 iy80 moveto (Yes/No) bshowen (Ja/Nein) bshowde
ix2 iy90 moveto (F - D) nshow
ix4 iy90 moveto (Yes/No) bshowen (Ja/Nein) bshowde
ix1 iy01 moveto
(Test of the radial grating under 45\260) bshowen
(Pr\374fung der Radial\255Gitter unter 45\260) bshowde
%00 90 rmoveto iyd 50 sub /TimesB-ISOL1 FS (o) show 00 -90 rmoveto
( according to picture A5) bshowen
( nach Bild A5) bshowde
(\255) nshow colorml cvishow xcolorl cvishow
xchartd 1 eq {xchartl cvishow}
{xchartl xchartd idiv cvishow} ifelse
(\255) show (0) show %pchartl cvishow
ix1 iy11 moveto (Can equally spaced lines be seen?) nshowen
(K\344nnen gleichabst\344ndig gestufte Linien gesehen werden?) nshowde
ix1 iy21 moveto (Visual testing: for radial diameter from 15 to 60 lpi) nshowen
(Visuelle Pr\374fung: f\374r radialen Durchmesser von 15 bis 60 lpi) nshowde
ix4 iy21 moveto (Yes/No) bshowen (Ja/Nein) bshowde
ix1 iy31 moveto (Test with a magnifying glass (e.g. 6x):) nshowen
(Pr\374fung mit Vergr\344sserungsglas (z. B. 6x):) nshowde
ix3 iy31 moveto (- from 15 lpi:) showen (- von 15 lpi:) showde
ix4 iy31 moveto (to ...... lpi) bshowen (bis ...... lpi) bshowde
ix1 iy02 moveto
(Test of the radial grating under 90\260) bshowen
(Pr\374fung der Radial\255Gitter unter 90\260) bshowde
%00 90 rmoveto iyd 50 sub /TimesB-ISOL1 FS (o) show 00 -90 rmoveto
( according to picture A6) bshowen
( nach Bild A6) bshowde
(\255) nshow colorml cvishow xcolorl cvishow
xchartd 1 eq {xchartl cvishow}
{xchartl xchartd idiv cvishow} ifelse
(\255) show (0) show %pchartl cvishow
ix1 iy12 moveto (Can equally spaced lines be seen?) nshowen
(K\344nnen gleichabst\344ndig gestufte Linien gesehen werden?) nshowde
ix1 iy22 moveto (Visual testing: for radial diameter from 15 to 60 lpi) nshowen
(Visuelle Pr\374fung: f\374r radialen Durchmesser von 15 bis 60 lpi) nshowde
ix4 iy22 moveto (Yes/No) bshowen (Ja/Nein) bshowde
ix1 iy32 moveto (Test with a magnifying glass (e.g. 6x):) nshowen
(Pr\374fung mit Vergr\344sserungsglas (z. B. 6x):) nshowde
ix3 iy32 moveto (- from 15 lpi:) showen (- von 15 lpi:) showde
ix4 iy32 moveto (to ...... lpi) bshowen (bis ...... lpi) bshowde
%grestore
} if %pchartl=1,4,7,10
pchartl pchartl 3 idiv 3 mul sub 2 eq {%pchartl=2,5,8,11
gsave
/CMeasSxl (Measure unknown) def
/CDeviceSxl (Device unknown) def
/CDateSxl (Date unknown) def
/DecodeXYZ* {dup 6 29 div ge {dup dup mul mul}
{4 29 div sub 108 841 div mul} ifelse} bind def
colorml 0 eq {/ilx 0 def
}
{%colorml=1
xchartl xchartd idiv 2 le {/ilx xchartl def} if
xchartl xchartd idiv 3 eq {/ilx 4 def} if
xchartl xchartd idiv 4 eq {/ilx 8 def} if
xchartl xchartd idiv 5 eq {/ilx 16 def} if
xchartl xchartd idiv 6 eq {/ilx 32 def} if
xchartl xchartd idiv 7 eq {/ilx 64 def} if
} ifelse
/Xnref 0.63 ilx mul 0.9505 mul def
/Ynref 0.63 ilx mul def
/Znref 0.63 ilx mul 1.0890 mul def
/XQ Xnref 95.05 div def
/YQ Ynref 100.00 div def
/ZQ Znref 108.90 div def
XQ 0 lt {/XQ 0.00000001 def} if
YQ 0 lt {/YQ 0.00000001 def} if
ZQ 0 lt {/ZQ 0.00000001 def} if
/L*ref YQ 0.008856 lt {903.3 YQ mul}
{YQ 0.33333333 exp 116 mul 16 sub} ifelse def
/a*ref XQ 0.008856 lt {7.787 XQ mul 16 116 div add}
{XQ 0.33333333 exp} ifelse
YQ 0.008856 lt {7.787 YQ mul 16 116 div add}
{YQ 0.33333333 exp} ifelse sub 500 mul def
/b*ref YQ 0.008856 lt {7.787 YQ mul 16 116 div add}
{YQ 0.33333333 exp} ifelse
ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add}
{ZQ 0.33333333 exp} ifelse sub 200 mul def
/L*N L*ref def /L*W 95.41 def
/L*i 21 array def %different for xchartl=0,7
/a*i 21 array def
/b*i 21 array def
/l*i 21 array def
/Yi 21 array def
%equal distance between L*N and L*W
0 1 20 {/i exch def %steps from black to white
i 15 le {/i0 0 def /istep 15 def}
{/i0 16 def /istep 4 def} ifelse
L*i i L*N L*W L*N sub i i0 sub istep div mul add put
a*i i 0 put
b*i i 0 put
l*i i L*i i get L*N sub L*W L*N sub div put
/Y* {L*i i get 16 add 116 div} bind def
Yi i Y* DecodeXYZ* 100.00 mul put
} for
/cvishow {cvi 6 string cvs show} def
72 90 translate
0.023 MM dup scale
15 setlinewidth
0 setgray
100 /Times-ISOL1 FS
100 -90 moveto
(OE641-3A) show
(\255) show colorml cvishow xcolorl cvishow
xchartd 1 eq {xchartl cvishow}
{xchartl xchartd idiv cvishow} ifelse
(\255) show pchartl cvishow (: ) show
(File: ) show CMeasSxl show (; ) show
(Device: ) show CDeviceSxl show (; ) show
(Date: ) show CDateSxl show
1 setgray
0 0 moveto 5400 0 rlineto 0 4000 rlineto %relatives Bildfeld 54 x 40mm
-5400 0 rlineto closepath fill
0 setgray
0 0 moveto 5400 0 rlineto 0 4000 rlineto %relatives Bildfeld 54 x 40mm
-5400 0 rlineto closepath stroke
0 setgray
100 /Times-ISOL1 FS
0800 0400 translate %Nullpunkt Zeichnung
0 0 moveto 4000 0 rlineto stroke
0 0 moveto 0 3200 rlineto stroke
%! 100 S-Einheiten = 2000 Skalen-Einheiten
150 /TimesI-ISOL1 FS
0 -50 moveto 0 100 rlineto stroke
800 -50 moveto 0 100 rlineto stroke
1600 -50 moveto 0 100 rlineto stroke
2400 -50 moveto 0 100 rlineto stroke
3200 -50 moveto 0 100 rlineto stroke
4000 -50 moveto 0 100 rlineto stroke
-300 -300 moveto (N 0,0) show
700 -300 moveto (0,25) show
1500 -300 moveto (0,50) show
2300 -300 moveto (0,75) show
3100 -300 moveto (1,00 W) show
%! 100 S-Einheiten = 2000 Skalen-Einheiten
-50 0 moveto 100 0 rlineto stroke
-50 800 moveto 100 0 rlineto stroke
-50 1600 moveto 100 0 rlineto stroke
-50 2400 moveto 100 0 rlineto stroke
-50 3200 moveto 100 0 rlineto stroke
-530 -60 moveto (N 0,00) show
-350 740 moveto (0,25) show
-350 1540 moveto (0,50) show
-350 2340 moveto (0,75) show
-530 3140 moveto (W 1,00) show
150 /TimesI-ISOL1 FS
-700 2900 moveto (w*'output) show
-700 2700 moveto (w'*output) show
3000 200 moveto (w*input) show
0 setgray
0 0 moveto 3200 3200 lineto stroke
[100] 0 setdash
0 3200 0.133 mul moveto
3200 3200 3200 0.0333 mul add lineto stroke
0 3200 0.133 mul neg moveto
3200 3200 3200 0.0333 mul sub lineto stroke
colorml 1 eq {/xchartNl xchartl 8 idiv def
/xchartPl xchartl xchartl 8 idiv 8 mul sub def
/gammaNl 1 xchartNl 0.18 mul add def
/gammaPl 1 1 xchartPl 0.18 mul add div def
/gammal gammaNl gammaPl mul def
} if
/L*gi 21 array def %different for xchartl=0,7
/a*gi 21 array def
/b*gi 21 array def
/l*gi 21 array def
/Ygi 21 array def
%distance between L*N and L*W using gamma
0 1 20 {/i exch def %steps from black to white
l*gi i l*i i get colorm 1 eq {gammal exp} if put
L*gi i L*W L*N sub l*gi i get mul L*N add put
a*gi i 0 put
b*gi i 0 put
/Y* {L*gi i get 16 add 116 div} bind def
Ygi i Y* DecodeXYZ* 100.00 mul put
} for
0 0 1 setrgbcolor
40 setlinewidth
[100] 0 setdash
0 1 15 {/i exch def
/xw l*i i get def
/yw l*i i get colorml 1 eq {gammal exp} if def
xw 3200 mul yw 3200 mul
i 0 eq { moveto} {lineto} ifelse
} for stroke %i
0 0 1 setrgbcolor
40 setlinewidth
[100] 0 setdash
0 1 15 {/i exch def
/xw l*i i get def
/yw l*i i get colorml 1 eq {1 gammal div exp} if def
xw 3200 mul yw 3200 mul
i 0 eq { moveto} {lineto} ifelse
} for stroke %i
1 0 0 setrgbcolor
25 setlinewidth
[50] 0 setdash
%/gamma 1 xcolor 0.075 mul sub def
0 1 15 {/i exch def
/xw i 15 div def
/yw xw colorml 1 eq {gammal exp} if def
xw 3200 mul yw 3200 mul
i 0 eq { moveto} {lineto} ifelse
} for stroke %i
0 1 15 {/i exch def
/xw i 15 div def
/yw xw colorml 1 eq {1 gammal div exp} if def
xw 3200 mul yw 3200 mul
i 0 eq { moveto} {lineto} ifelse
} for stroke %i
0 setgray
150 /Times-ISOL1 FS
-400 3450 moveto
lanind 0 eq {(F\374 linearisierte Ausgabe der 16 Graustufen von ) show} if
lanind 1 eq {(For linearized output of the 16 grey steps of ) show} if
(Picture A7) showen (Bild A7) showde
(\255) show colorml cvishow xcolorl cvishow
xchartd 1 eq {xchartl cvishow}
{xchartl xchartd idiv cvishow} ifelse
(\255) show pchartl cvishow
0 0 1 setrgbcolor
150 /TimesBI-ISOL1 FS
100 3200 moveto
('* (dash\255star) coordinates to reach) showen
('* (Strich\255Stern)\255Koordinaten um die) showde
100 3000 moveto
(the linearized output with the real) showen
(linearisierte Ausgabe mit realer Display\255) showde
100 2800 moveto
(display reflection in office room;) showen
(Reflexion im B\374roraum zu erreichen;) showde
100 2600 moveto
(lighter (positiv P) output) showen
(hellere (positive P) Ausgabe) showde
% 150 /TimesBI-ISOL1 FS
%050 2450 moveto
%(gammal) show
% 150 /TimesB-ISOL1 FS
%( = ) show
%2.4 gammal mul 0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show
%( = 2.4 x ) show
%gammal 0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show
1 0 0 setrgbcolor
150 /TimesBI-ISOL1 FS
100 2350 moveto
(w'*) show
120 /TimesB-ISOL1 FS
-70 -70 rmoveto (output) show 0 70 rmoveto
150 /TimesB-ISOL1 FS
( = [) show
150 /TimesBI-ISOL1 FS
(w*) show
120 /TimesB-ISOL1 FS
-50 -70 rmoveto (input) show 0 70 rmoveto
150 /TimesB-ISOL1 FS
(] ) show
0 70 rmoveto
colorml 0 eq {(1.00) show}
{gammal 0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show
} ifelse
0 -70 rmoveto
0 0 1 setrgbcolor
150 /TimesBI-ISOL1 FS
2500 1400 moveto
(*' (star\255dash) coordinates) showen
(*' (Stern\255Strich)\255Koordinaten) showde
2500 1200 moveto
(of real output with real) showen
(von realer Ausgabe mit realer) showde
2500 1000 moveto
(display reflection in office room;) showen
(Dsplay\255Reflexion im B\374roraum;) showde
2500 0800 moveto
(darker (negativ N) output) showen
(dunklere (negative N) Ausgabe) showde
% 150 /TimesBI-ISOL1 FS
%2500 0550 moveto
%(gammal) show
% 150 /TimesB-ISOL1 FS
%( = ) show
%2.4 gammal mul 0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show
%( = 2.4 x ) show
%gammal 0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show
1 0 0 setrgbcolor
150 /TimesBI-ISOL1 FS
2500 0550 moveto
(w*') show
120 /TimesB-ISOL1 FS
-70 -70 rmoveto (output) show 0 70 rmoveto
150 /TimesB-ISOL1 FS
( = [) show
150 /TimesBI-ISOL1 FS
(w*) show
120 /TimesB-ISOL1 FS
-50 -70 rmoveto (input) show 0 70 rmoveto
150 /TimesB-ISOL1 FS
(] ) show
0 70 rmoveto
colorml 0 eq {(1.00) show}
{1 gammal div 0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show
} ifelse
0 -70 rmoveto
-0800 -0400 translate %Nullpunkt Zeichnung
grestore
} if %pchartl=2,5,8,11
showpage
grestore
} for %pchartl=0,11
} for %xchartl=0,7
%} for %xcolorl=0,3
%} for %colorml=0,1
%%Trailer