%!PS-Adobe-3.0 EPSF-3.0 PE020-7A.EPS %%BoundingBox: 71 82 415 330 %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://130.149.60.45/~farbmetrik/PE02/) /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:2011090112000) /ModDate (D:2011090112000) /DOCINFO pdfmark07 [ /View [ /FitB ] /DOCVIEW pdfmark07 %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 {100 /Times-ISOL1 FS} bind def /TK {125 /Times-ISOL1 FS} bind def /TM {140 /Times-ISOL1 FS} bind def /TG {175 /Times-ISOL1 FS} bind def /TIKK {100 /TimesI-ISOL1 FS} bind def /TIK {125 /TimesI-ISOL1 FS} bind def /TIM {140 /TimesI-ISOL1 FS} bind def /TIG {175 /TimesI-ISOL1 FS} bind def /TBKK {100 /TimesB-ISOL1 FS} bind def /TBK {125 /TimesB-ISOL1 FS} bind def /TBM {140 /TimesB-ISOL1 FS} bind def /TBG {175 /TimesB-ISOL1 FS} bind def /TBIKK {100 /TimesBI-ISOL1 FS} bind def /TBIK {125 /TimesBI-ISOL1 FS} bind def /TBIM {140 /TimesBI-ISOL1 FS} bind def /TBIG {175 /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 le {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 le {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 0 def /xchartd 1 def} ifelse /pchartg where {pop /pchart1 pchartg def /pchart2 pchartg def /pchartd pchartgd def} {/pchart1 1 def /pchart2 1 def /pchartd 1 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} if /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} if /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def} if /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} if /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 2 {/pchartl exch def %pchartl=0,2 gsave 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 /nshow {iyt /Times-ISOL1 FS show} def /nishow {-30 -50 rmoveto iyt 50 sub /Times-ISOL1 FS show 30 50 rmoveto} def /nishow0 {-00 -50 rmoveto iyt 50 sub /Times-ISOL1 FS show 00 50 rmoveto} def /nishowx {-00 -50 rmoveto iyt 50 sub /Times-ISOL1 FS show 00 50 rmoveto} def /kshow {iyt /TimesI-ISOL1 FS show} def /bshow {iyt /TimesB-ISOL1 FS show} def /jshow {iyt /TimesBI-ISOL1 FS show} def /ishow {-30 -50 rmoveto iyt 50 sub /TimesB-ISOL1 FS show 30 50 rmoveto} def /ishow0 {-00 -50 rmoveto iyt 50 sub /TimesB-ISOL1 FS show 00 50 rmoveto} def /eshow { 00 070 rmoveto iyt 50 sub /TimesB-ISOL1 FS show 00 -070 rmoveto} def /neshow { 00 070 rmoveto iyt 50 sub /Times-ISOL1 FS show 00 -070 rmoveto} def /showde {0 lanind eq {nshow} {pop} ifelse} bind def /showen {1 lanind le {nshow} {pop} ifelse} bind def /nishowde {0 lanind eq {nishow} {pop} ifelse} bind def /nishowen {1 lanind le {nishow} {pop} ifelse} bind def /kshowde {0 lanind eq {kshow} {pop} ifelse} bind def /kshowen {1 lanind le {kshow} {pop} ifelse} bind def /bshowde {0 lanind eq {bshow} {pop} ifelse} bind def /bshowen {1 lanind le {bshow} {pop} ifelse} bind def /jshowde {0 lanind eq {jshow} {pop} ifelse} bind def /jshowen {1 lanind le {jshow} {pop} ifelse} bind def /ishowde {0 lanind eq {ishow} {pop} ifelse} bind def /ishowen {1 lanind le {ishow} {pop} ifelse} bind def /sshowde {0 lanind eq {sshow} {pop} ifelse} bind def /sshowen {1 lanind le {sshow} {pop} ifelse} bind def /cvishow {cvi 6 string cvs show} def gsave 72 90 translate 0.02 MM dup scale 15 setlinewidth 1 1 1 {/ibil exch def %ibil=1,1 gsave 15 setlinewidth 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 0 setgray TKK 100 -110 moveto ibil 0 eq {(PE020-3N) show} if ibil 1 eq {(PE020-7N) show} if ibil 2 eq {(PE021-3N) show} if ibil 3 eq {(PE021-7N) show} if %************************************************************************************************ ibil 0 eq {%ibil=0 /iout 0 def %iout=0_2:CMY, iout=3-5: OLV /ioutT [(W) (N) (Z) (W) (N) (Z)] def /ioutE [(White) (Black) (Grey) (White) (Black) (Grey)] def /ioutG [(Wei\337) (Schwarz) (Grau) (Wei\337) (Schwarz) (Grau)] def /iyt 130 def %text size /iyd 150 def %line difference /ix00 20 def %text 1 /iy00 3850 def %text 2 ix00 iy00 200 add moveto (Test for the visual linearized output of Pictures ) bshowen (Pr\374fung der visuellen linearisierten Ausgabe der Bilder ) bshowde iout 2 le {(B1) bshow}{(D1) bshow} ifelse ioutT iout get bshow (\255) nshow colorml cvishow xcolorl cvishow xchartd 1 eq {xchartl cvishow} {xchartl xchartd idiv cvishow} ifelse (\255) show (0) show %pchartl cvishow ( to ) bshowen ( bis ) bshowde iout 2 le {(B7) bshow}{(D7) bshow} ifelse ioutT iout get bshow (\255) nshow colorml cvishow xcolorl cvishow xchartd 1 eq {xchartl cvishow} {xchartl xchartd idiv cvishow} ifelse (\255) show (0) show %pchartl cvishow ix00 iy00 moveto (Output test with the computer display ( ) or the external display ( )) bshowen (Ausgabe\255Pr\374fung mit dem Rechner\255Display ( ) oder dem externen Display ( )) bshowde %****************************************************************************** /ix10 20 def /ix11 50 def %Start /ix12 5300 def %Yes/No /iyt1 3500 def /iy01 iyt1 def %title /iy11 iyt1 iyd 1 mul sub def %question CIE colours /iy21 iyt1 iyd 2 mul sub def %14 steps /iy31 iyt1 iyd 3 mul sub def %.... /iy41 iyt1 iyd 4 mul sub def %.... /iy51 iyt1 iyd 5 mul sub def %.... /iy61 iyt1 iyd 6 mul sub def %.... /iy71 iyt1 iyd 7 mul sub def %.... /iy81 iyt1 iyd 8 mul sub def %.... ix10 iy01 moveto (Test of the (flower) image ) bshowen (Pr\374fung des (Blumen\255)bildes ) bshowde (according to picture ) bshowen (nach Bild ) bshowde iout 2 le {(B1) bshow}{(D1) bshow} ifelse ioutT iout get bshow (\255) nshow colorml cvishow xcolorl cvishow xchartd 1 eq {xchartl cvishow} {xchartl xchartd idiv cvishow} ifelse (\255) show (0) show %pchartl cvishow ix10 iy11 moveto (Are clear (immediately conspicuous) differences recognized ) showen (between reproduction and test chart?) showen (Ergeben sich deutliche (sofort auff\344llige) Unterschiede ) showde (zwischen Wiedergabe und Pr\374fvorlage?) showde ix12 iy11 moveto (Yes/No) bshowen (Ja/Nein) bshowde ix10 iy21 moveto (Subjective remarks about the colour reproduction of the (flower) ) showen (image, ) showen (Subjektive Beurteilungen \374ber die Farbwiedergabe des (Blumen\255)) showde (bildes, ) showde ix10 iy31 moveto (the CIE\255test colours and the 16 grey steps within the image, ) showen (for example "less contrast":) showen (der CIE\255Testfarben und der 16 Graustufen innerhalb des Bildes, ) showde (zum Beispiel "weniger Kontrast":) showde ix10 iy41 moveto (....................................................................) show (....................................................................) show (...............................................) show ix10 iy51 moveto (....................................................................) show (....................................................................) show (...............................................) show ix10 iy61 moveto (....................................................................) show (....................................................................) show (...............................................) show ix10 iy71 moveto (....................................................................) show (....................................................................) show (...............................................) show ix10 iy81 moveto (....................................................................) show (....................................................................) show (...............................................) show %****************************************************************************** /ix20 20 def %text /ix21 2600 def %W-C/W-O /ix22 3300 def %W-M/W-L /ix23 4000 def %W-Y/W-V /ix24 4700 def %W-N /ix25 5400 def %W-Z /iyt2 1800 def /iy10 iyt2 iyd 1.2 mul add def /iy12 iyt2 iyd 0 mul sub def /iy22 iyt2 iyd 1 mul sub def /iy32 iyt2 iyd 2 mul sub def /iy33 iyt2 iyd 3 mul sub def ix20 iy10 moveto (Test of the resolution of radial gratings ) bshowen (Pr\374fung der Aufl\366sung der Radialgitter ) bshowde iout 2 le {ioutT iout get jshow (-C) jshow (d) nishowx (, ) jshow ioutT iout get jshow (-M) jshow (d) nishowx (, ) jshow ioutT iout get jshow (-Y) jshow (d) nishowx} {ioutT iout get jshow (-R) jshow (d) nishowx (, ) jshow ioutT iout get jshow (-G) jshow (d) nishowx (, ) jshow ioutT iout get jshow (-B) jshow (d) nishowx} ifelse ( according to picture ) bshowen ( nach Bild ) bshowde iout 2 le {(B2) bshow}{(D2) bshow} ifelse ioutT iout get bshow (\255) nshow colorml cvishow xcolorl cvishow xchartd 1 eq {xchartl cvishow} {xchartl xchartd idiv cvishow} ifelse (\255) show (0) show %pchartl cvishow ix21 iy12 moveto iout 2 le {ioutT iout get jshow (-C) jshow (d) nishowx} {ioutT iout get jshow (-R) jshow (d) nishowx} ifelse ix22 iy12 moveto iout 2 le {ioutT iout get jshow (-M) jshow (d) nishowx} {ioutT iout get jshow (-G) jshow (d) nishowx} ifelse ix23 iy12 moveto iout 2 le {ioutT iout get jshow (-Y) jshow (d) nishowx} {ioutT iout get jshow (-B) jshow (d) nishowx} ifelse ix24 iy12 moveto (W-N) jshow ix25 iy12 moveto (W-Z) jshow ix20 iy22 moveto (Is the resolution diameter < 6 mm?) showen (Ist der Aufl\366sungsdurchmesser < 6 mm?) showde ix21 iy22 moveto (Yes/No) showen (Ja/Nein) showde ix22 iy22 moveto (Yes/No) showen (Ja/Nein) showde ix23 iy22 moveto (Yes/No) showen (Ja/Nein) showde ix24 iy22 moveto (Yes/No) showen (Ja/Nein) showde ix25 iy22 moveto (Yes/No) showen (Ja/Nein) showde ix20 iy32 moveto (Test with magnifying glass (6x),) showen (Pr\374fung mit Vergr\366\337erungsglas (6x),) showde ix20 iy33 moveto (Resolution diameter:) showen (Aufl\366sungsdurchmesser:) showde ix21 iy33 moveto (........ mm) nshow ix22 iy33 moveto (........ mm) nshow ix23 iy33 moveto (........ mm) nshow ix24 iy33 moveto (........ mm) nshow ix25 iy33 moveto (........ mm) nshow %****************************************************************************** /ix14 50 def %Start /ix24 3000 def %of 14 steps /ix34 5300 def %Yes/No /iyt4 1000 def /iy04 iyt4 def %title /iy14 iyt4 iyd 1 mul sub def %question CIE colours /iy24 iyt4 iyd 2 mul sub def %14 steps ix14 iy04 moveto (Test of the 14 CIE\255test colours ) bshowen (Pr\374fung der 14 CIE\255Pr\374ffarben ) bshowde (according to picture ) bshowen (nach Bild ) bshowde iout 2 le {(B3) bshow}{(D3) bshow} ifelse ioutT iout get bshow (\255) nshow colorml cvishow xcolorl cvishow xchartd 1 eq {xchartl cvishow} {xchartl xchartd idiv cvishow} ifelse (\255) show (0) show %pchartl cvishow ix14 iy14 moveto (Are clear (immediately conspicuous) differences recognized ) showen (between reproduction and test chart?) showen (Ergeben sich deutliche (sofort auff\344llige) Unterschiede ) showde (zwischen Wiedergabe und Pr\374fvorlage?) showde ix34 iy14 moveto (Yes/No) bshowen (Ja/Nein) bshowde ix14 iy24 moveto (If Yes: How many colours have clear differences?) showen (Wenn Ja: Wieviele Farben haben klare Differenzen?) showde ix24 iy24 moveto (of the given 14 steps:) showen (von den gegebenen 14 Stufen:) showde ix34 iy24 moveto (..... Steps) bshowen (..... Stufen) bshowde %****************************************************************************** /ix15 50 def %Start /ix25 3000 def %of 16 steps /ix35 5300 def %Yes/No /iyt5 0400 def /iy05 iyt5 def %title /iy15 iyt5 iyd 1 mul sub def %question 16 steps /iy25 iyt5 iyd 2 mul sub def %16 steps ix15 iy05 moveto (Test of 16 visual equidistant ) bshowen (Pr\374fung der 16 visuellen gleichabst\344ndigen ) bshowde (L*) jshow (\255grey steps according to picture ) bshowen (\255Graustufen nach Bild ) bshowde iout 2 le {(B3) bshow}{(D3) bshow} ifelse ioutT iout get bshow (\255) nshow colorml cvishow xcolorl cvishow xchartd 1 eq {xchartl cvishow} {xchartl xchartd idiv cvishow} ifelse (\255) show (0) show %pchartl cvishow ix15 iy15 moveto (Are the 16 steps on the upper rows distinguishable?) showen (Sind die 16 Stufen in der oberen Reihe unterscheidbar?) showde ix35 iy15 moveto (Yes/No) bshowen (Ja/Nein) bshowde ix15 iy25 moveto (If No: How many steps can be distinguished?) showen (Wenn Nein: Wieviel Stufen sind unterscheibar?) showde ix25 iy25 moveto (of the given 16 steps:) showen (von den gegebenen 16 Stufen:) showde ix35 iy25 moveto (..... Steps) bshowen (..... Stufen) bshowde } if %ibil=0 %*************************************************************************** ibil 1 eq {%ibil=1 /iout 3 def %iout=0_2:CMY, iout=3-5: OLV /ioutT [(W) (N) (Z) (W) (N) (Z)] def /ioutE [(White) (Black) (Grey) (White) (Black) (Grey)] def /ioutG [(Wei\337) (Schwarz) (Grau) (Wei\337) (Schwarz) (Grau)] def /iyt 130 def %text size /iyd 150 def %line difference /ix00 20 def %text 1 /iy00 3850 def %text 2 ix00 iy00 200 add moveto (Test for the visual linearized output of Pictures ) bshowen (Pr\374fung der visuellen linearisierten Ausgabe der Bilder ) bshowde iout 2 le {(B1) bshow}{(D1) bshow} ifelse ioutT iout get bshow (\255) nshow colorml cvishow xcolorl cvishow xchartd 1 eq {xchartl cvishow} {xchartl xchartd idiv cvishow} ifelse (\255) show (0) show %pchartl cvishow ( to ) bshowen ( bis ) bshowde iout 2 le {(B7) bshow}{(D7) bshow} ifelse ioutT iout get bshow (\255) nshow colorml cvishow xcolorl cvishow xchartd 1 eq {xchartl cvishow} {xchartl xchartd idiv cvishow} ifelse (\255) show (0) show %pchartl cvishow ix00 iy00 moveto (Output test with the computer display ( ) or the external display ( )) bshowen (Ausgabe\255Pr\374fung mit dem Rechner\255Display ( ) oder dem externen Display ( )) bshowde 4500 iy00 moveto (please mark by (x)!) showen (bitte markieren mit (x)!) showde %****************************************************************************** /ix10 20 def /ix11 50 def %Start /ix12 5300 def %Yes/No /iyt1 3500 def /iy01 iyt1 def %title /iy11 iyt1 iyd 1 mul sub def %question CIE colours /iy21 iyt1 iyd 2 mul sub def %14 steps /iy31 iyt1 iyd 3 mul sub def %.... /iy41 iyt1 iyd 4 mul sub def %.... /iy51 iyt1 iyd 5 mul sub def %.... /iy61 iyt1 iyd 6 mul sub def %.... /iy71 iyt1 iyd 7 mul sub def %.... /iy81 iyt1 iyd 8 mul sub def %.... ix10 iy01 moveto (Test of the (flower) image ) bshowen (Pr\374fung des (Blumen\255)bildes ) bshowde (according to picture ) bshowen (nach Bild ) bshowde iout 2 le {(B1) bshow}{(D1) bshow} ifelse ioutT iout get bshow (\255) nshow colorml cvishow xcolorl cvishow xchartd 1 eq {xchartl cvishow} {xchartl xchartd idiv cvishow} ifelse (\255) show (0) show %pchartl cvishow ix10 iy11 moveto (Are clear (immediately conspicuous) differences recognized ) showen (between reproduction and test chart?) showen (Ergeben sich deutliche (sofort auff\344llige) Unterschiede ) showde (zwischen Wiedergabe und Pr\374fvorlage?) showde ix12 iy11 moveto (Yes/No) bshowen (Ja/Nein) bshowde ix10 iy21 moveto (Subjective remarks about the colour reproduction of the (flower) ) showen (image, ) showen (Subjektive Beurteilungen \374ber die Farbwiedergabe des (Blumen\255)) showde (bildes, ) showde ix10 iy31 moveto (the CIE\255test colours and the 16 grey steps within the image, ) showen (for example "less contrast":) showen (der CIE\255Testfarben und der 16 Graustufen innerhalb des Bildes, ) showde (zum Beispiel "weniger Kontrast":) showde ix10 iy41 moveto (....................................................................) show (....................................................................) show (...............................................) show ix10 iy51 moveto (....................................................................) show (....................................................................) show (...............................................) show ix10 iy61 moveto (....................................................................) show (....................................................................) show (...............................................) show ix10 iy71 moveto (....................................................................) show (....................................................................) show (...............................................) show ix10 iy81 moveto (....................................................................) show (....................................................................) show (...............................................) show %****************************************************************************** /ix20 20 def %text /ix21 2600 def %W-C/W-O /ix22 3300 def %W-M/W-L /ix23 4000 def %W-Y/W-V /ix24 4700 def %W-N /ix25 5400 def %W-Z /iyt2 1800 def /iy10 iyt2 iyd 1.2 mul add def /iy12 iyt2 iyd 0 mul sub def /iy22 iyt2 iyd 1 mul sub def /iy32 iyt2 iyd 2 mul sub def /iy33 iyt2 iyd 3 mul sub def ix20 iy10 moveto (Test of the resolution of radial gratings ) bshowen (Pr\374fung der Aufl\366sung der Radialgitter ) bshowde iout 2 le {ioutT iout get jshow (-C) jshow (d) nishowx (, ) jshow ioutT iout get jshow (-M) jshow (d) nishowx (, ) jshow ioutT iout get jshow (-Y) jshow (d) nishowx} {ioutT iout get jshow (-R) jshow (d) nishowx (, ) jshow ioutT iout get jshow (-G) jshow (d) nishowx (, ) jshow ioutT iout get jshow (-B) jshow (d) nishowx} ifelse ( according to picture ) bshowen ( nach Bild ) bshowde iout 2 le {(B2) bshow}{(D2) bshow} ifelse ioutT iout get bshow (\255) nshow colorml cvishow xcolorl cvishow xchartd 1 eq {xchartl cvishow} {xchartl xchartd idiv cvishow} ifelse (\255) show (0) show %pchartl cvishow ix21 iy12 moveto iout 2 le {ioutT iout get jshow (-C) jshow (d) nishowx} {ioutT iout get jshow (-R) jshow (d) nishowx} ifelse ix22 iy12 moveto iout 2 le {ioutT iout get jshow (-M) jshow (d) nishowx} {ioutT iout get jshow (-G) jshow (d) nishowx} ifelse ix23 iy12 moveto iout 2 le {ioutT iout get jshow (-Y) jshow (d) nishowx} {ioutT iout get jshow (-B) jshow (d) nishowx} ifelse ix24 iy12 moveto (W-N) jshow ix25 iy12 moveto (W-Z) jshow ix20 iy22 moveto (Is the resolution diameter < 6 mm?) showen (Ist der Aufl\366sungsdurchmesser < 6 mm?) showde ix21 iy22 moveto (Yes/No) showen (Ja/Nein) showde ix22 iy22 moveto (Yes/No) showen (Ja/Nein) showde ix23 iy22 moveto (Yes/No) showen (Ja/Nein) showde ix24 iy22 moveto (Yes/No) showen (Ja/Nein) showde ix25 iy22 moveto (Yes/No) showen (Ja/Nein) showde ix20 iy32 moveto (Test with magnifying glass (6x),) showen (Pr\374fung mit Vergr\366\337erungsglas (6x),) showde ix20 iy33 moveto (Resolution diameter:) showen (Aufl\366sungsdurchmesser:) showde ix21 iy33 moveto (........ mm) nshow ix22 iy33 moveto (........ mm) nshow ix23 iy33 moveto (........ mm) nshow ix24 iy33 moveto (........ mm) nshow ix25 iy33 moveto (........ mm) nshow %****************************************************************************** /ix14 50 def %Start /ix24 3000 def %of 14 steps /ix34 5300 def %Yes/No /iyt4 1000 def /iy04 iyt4 def %title /iy14 iyt4 iyd 1 mul sub def %question CIE colours /iy24 iyt4 iyd 2 mul sub def %14 steps ix14 iy04 moveto (Test of the 14 CIE\255test colours ) bshowen (Pr\374fung der 14 CIE\255Pr\374ffarben ) bshowde (according to picture ) bshowen (nach Bild ) bshowde iout 2 le {(B3) bshow}{(D3) bshow} ifelse ioutT iout get bshow (\255) nshow colorml cvishow xcolorl cvishow xchartd 1 eq {xchartl cvishow} {xchartl xchartd idiv cvishow} ifelse (\255) show (0) show %pchartl cvishow ix14 iy14 moveto (Are clear (immediately conspicuous) differences recognized ) showen (between reproduction and test chart?) showen (Ergeben sich deutliche (sofort auff\344llige) Unterschiede ) showde (zwischen Wiedergabe und Pr\374fvorlage?) showde ix34 iy14 moveto (Yes/No) bshowen (Ja/Nein) bshowde ix14 iy24 moveto (If Yes: How many colours have clear differences?) showen (Wenn Ja: Wieviele Farben haben klare Differenzen?) showde ix24 iy24 moveto (of the given 14 steps:) showen (von den gegebenen 14 Stufen:) showde ix34 iy24 moveto (..... Steps) bshowen (..... Stufen) bshowde %****************************************************************************** /ix15 50 def %Start /ix25 3000 def %of 16 steps /ix35 5300 def %Yes/No /iyt5 0400 def /iy05 iyt5 def %title /iy15 iyt5 iyd 1 mul sub def %question 16 steps /iy25 iyt5 iyd 2 mul sub def %16 steps ix15 iy05 moveto (Test of 16 visual equidistant ) bshowen (Pr\374fung der 16 visuellen gleichabst\344ndigen ) bshowde (L*) jshow (\255grey steps according to picture ) bshowen (\255Graustufen nach Bild ) bshowde iout 2 le {(B3) bshow}{(D3) bshow} ifelse ioutT iout get bshow (\255) nshow colorml cvishow xcolorl cvishow xchartd 1 eq {xchartl cvishow} {xchartl xchartd idiv cvishow} ifelse (\255) show (0) show %pchartl cvishow ix15 iy15 moveto (Are the 16 steps on the upper rows distinguishable?) showen (Sind die 16 Stufen in der oberen Reihe unterscheidbar?) showde ix35 iy15 moveto (Yes/No) bshowen (Ja/Nein) bshowde ix15 iy25 moveto (If No: How many steps can be distinguished?) showen (Wenn Nein: Wieviel Stufen sind unterscheibar?) showde ix25 iy25 moveto (of the given 16 steps:) showen (von den gegebenen 16 Stufen:) showde ix35 iy25 moveto (..... Steps) bshowen (..... Stufen) bshowde } if %ibil=1 %*************************************************************************** ibil 2 eq {%ibil=2 /iout 0 def %iout=0_2:CMY, iout=3-5: OLV /ioutT [(W) (N) (Z) (W) (N) (Z)] def /ioutE [(White) (Black) (Grey) (White) (Black) (Grey)] def /ioutG [(Wei\337) (Schwarz) (Grau) (Wei\337) (Schwarz) (Grau)] def /iyt 130 def %text size /iyd 150 def %line difference /ix1 50 def %1 /ix2 1600 def %2 /ix3 5100 def %3 /ix21 2600 def %W-R /ix22 3300 def %W-G /ix23 4000 def %W-B /ix24 4700 def %W-N /ix25 5700 def %W-Z /iyd 145 def %line difference /ix20 0020 def %Text and colour W-O etc. /ix21 1500 def %Question /ix22 4000 def %of 16 steps /ix23 5200 def %Yes/No /iyt2 4080 def %Recognition frequency = 2x top + 8 lines /iy02 iyt2 iyd 0.0 mul sub def %RF /iy12 iyt2 iyd 1.0 mul sub def /iy22 iyt2 iyd 2.1 mul sub def %W-O /iy32 iyt2 iyd 3.1 mul sub def /iy42 iyt2 iyd 4.2 mul sub def %W-L /iy52 iyt2 iyd 5.2 mul sub def /iy62 iyt2 iyd 6.3 mul sub def %W-V /iy72 iyt2 iyd 7.3 mul sub def /iy82 iyt2 iyd 8.4 mul sub def %W-N /iy92 iyt2 iyd 9.4 mul sub def ix20 iy02 moveto (Test of 16 visually equally spaced steps of the colour rows ) bshowen (Pr\374fung der 16 visuell gleichabst\344ndigen Buntstufen der Farbreihen ) bshowde iout 2 le {ioutT iout get jshow (-C) jshow (d) nishowx (, ) jshow ioutT iout get jshow (-M) jshow (d) nishowx (, ) jshow ioutT iout get jshow (-Y) jshow (d) nishowx} {ioutT iout get jshow (-R) jshow (d) nishowx (, ) jshow ioutT iout get jshow (-G) jshow (d) nishowx (, ) jshow ioutT iout get jshow (-B) jshow (d) nishowx} ifelse (, and ) bshowen ( und ) bshowde (W-N ) jshow ix20 iy12 moveto (according to picture ) bshowen (nach Bild ) bshowde iout 2 le {(B4) bshow}{(D4) bshow} ifelse ioutT iout get bshow (\255) nshow colorml cvishow xcolorl cvishow xchartd 1 eq {xchartl cvishow} {xchartl xchartd idiv cvishow} ifelse (\255) show (0) show %pchartl cvishow ix20 iy22 moveto iout 2 le {ioutT iout get jshow (-C) jshow (d ) nishowx ioutE iout get showen ( - Cyanblue:) showen ioutG iout get showde ( - Cyanblau:) showde} {ioutT iout get jshow (-R) jshow (d ) nishowx ioutE iout get showen ( - Orangered:) showen ioutG iout get showde ( - Orangerot:) showde} ifelse ix21 iy22 moveto (Are all the 16 steps distinguishable?) showen (Sind alle Stufen unterscheidbar?) showde ix22 iy22 moveto () showen ix23 iy22 moveto (Yes/No) bshowen (Ja/Nein) bshowde ix20 iy32 moveto () showen ix21 iy32 moveto (If No: How many steps can be distinguished?) showen (Falls Nein: Wieviel Stufen sind unterscheidbar?) showde ix22 iy32 moveto (of the given 16 steps) showen (von 16 Stufen sind es:) showde ix23 iy32 moveto (............ Steps) showen (............ Stufen) showde ix20 iy42 moveto iout 2 le {ioutT iout get jshow (-M) jshow (d ) nishowx ioutE iout get showen ( - Magentared:) showen ioutG iout get showde ( - Magentarot:) showde} {ioutT iout get jshow (-G) jshow (d ) nishowx ioutE iout get showen ( - Leafgreen:) showen ioutG iout get showde ( - Laubgr\374n:) showde} ifelse ix21 iy42 moveto (Are all the 16 steps distinguishable?) showen (Sind alle Stufen unterscheidbar?) showde ix22 iy42 moveto () showen ix23 iy42 moveto (Yes/No) bshowen (Ja/Nein) bshowde ix20 iy52 moveto () showen ix21 iy52 moveto (If No: How many steps can be distinguished?) showen (Falls Nein: Wieviel Stufen sind unterscheidbar?) showde ix22 iy52 moveto (of the given 16 steps) showen (von 16 Stufen sind es:) showde ix23 iy52 moveto (............ Steps) showen (............ Stufen) showde ix20 iy62 moveto iout 2 le {ioutT iout get jshow (-Y) jshow (d) nishowx ioutE iout get showen ( - Yellow:) showen ioutG iout get showde ( - Gelb:) showde} {ioutT iout get jshow (-B) jshow (d) nishowx ioutE iout get showen ( - Violetblue:) showen ioutG iout get showde ( - Violetblau:) showde} ifelse ix21 iy62 moveto (Are all the 16 steps distinguishable?) showen (Sind alle Stufen unterscheidbar?) showde ix22 iy62 moveto () showen ix23 iy62 moveto (Yes/No) bshowen (Ja/Nein) bshowde ix20 iy72 moveto () showen ix21 iy72 moveto (If No: How many steps can be distinguished?) showen (Falls Nein: Wieviel Stufen sind unterscheidbar?) showde ix22 iy72 moveto (of the given 16 steps) showen (von 16 Stufen sind es:) showde ix23 iy72 moveto (............ Steps) showen (............ Stufen) showde ix20 iy82 moveto (W-N ) jshow (White - Black:) showen (Wei\337 - Schwarz:) showde ix21 iy82 moveto (Are all the 16 steps distinguishable?) showen (Sind alle Stufen unterscheidbar?) showde ix22 iy82 moveto () showen ix23 iy82 moveto (Yes/No) bshowen (Ja/Nein) bshowde ix20 iy92 moveto () showen ix21 iy92 moveto (If No: How many steps can be distinguished?) showen (Falls Nein: Wieviel Stufen sind unterscheidbar?) showde ix22 iy92 moveto (of the given 16 steps) showen (von 16 Stufen sind es:) showde ix23 iy92 moveto (............ Steps) showen (............ Stufen) showde %******************************************** /ix30 0020 def %Question /ix31 0200 def %LR size /ix32 1200 def %letters /ix33 2000 def %Ring N /ix34 3000 def %Ring O /ix35 4000 def %Ring L /ix36 5000 def %Ring V /iyt3 2550 def %Tests of characters = 2x top + 5 lines /iy13 iyt3 iyd 0.0 mul sub def %TC /iy23 iyt3 iyd 1.0 mul sub def /iy33 iyt3 iyd 2.1 mul sub def %Relative size /iy43 iyt3 iyd 3.1 mul sub def %10 /iy53 iyt3 iyd 4.1 mul sub def %08 /iy63 iyt3 iyd 5.1 mul sub def %06 /iy73 iyt3 iyd 6.1 mul sub def %04 ix30 iy13 moveto (Test of characters and Landolt\255rings in four sizes ) bshowen (Pr\374fung von Schrift und Landoltringen in vier Gr\366\337en ) bshowde (according to picture ) bshowen (nach Bild ) bshowde iout 2 le {(B5) bshow} {(D5) bshow} ifelse ioutT iout get bshow (\255) nshow colorml cvishow xcolorl cvishow xchartd 1 eq {xchartl cvishow} {xchartl xchartd idiv cvishow} ifelse (\255) show (0) show %pchartl cvishow ix30 iy23 moveto (Is the recognition frequency > 50% for letters ) showen (Ist die Erkennungsh\344ufigkeit > 50% f\374r Schriftzeichen ) showde ((17 from 32 at least) and for Landolt-rings (minimum 5 of 8)?) showen ((min. 17 von 32) und f\374r Landoltringe (min. 5 von 8)?) showde ix31 iy33 moveto (Relative size) showen (Relative Gr\366\337e) showde ix32 iy33 moveto (Letters) showen (Schriftzeichen) showde ix33 iy33 moveto (Ring ) showen (Ringe ) showde (N) jshow ix34 iy33 moveto (Ring ) showen (Ringe ) showde iout 2 le {(C) jshow (d) nishowx} {(R) jshow (d) nishowx} ifelse ix35 iy33 moveto (Ring ) showen (Ringe ) showde iout 2 le {(M) jshow (d) nishowx} {(G) jshow (d) nishowx} ifelse ix36 iy33 moveto (Ring ) showen (Ringe ) showde iout 2 le {(Y) jshow (d) nishowx} {(B) jshow (d) nishowx} ifelse ix31 iy43 moveto (10) nshow ix32 iy43 moveto (Yes/No) showen (Ja/Nein) showde ix33 iy43 moveto (Yes/No) showen (Ja/Nein) showde ix34 iy43 moveto (Yes/No) showen (Ja/Nein) showde ix35 iy43 moveto (Yes/No) showen (Ja/Nein) showde ix36 iy43 moveto (Yes/No) showen (Ja/Nein) showde ix31 iy53 moveto ( 8) nshow ix32 iy53 moveto (Yes/No) showen (Ja/Nein) showde ix33 iy53 moveto (Yes/No) showen (Ja/Nein) showde ix34 iy53 moveto (Yes/No) showen (Ja/Nein) showde ix35 iy53 moveto (Yes/No) showen (Ja/Nein) showde ix36 iy53 moveto (Yes/No) showen (Ja/Nein) showde ix31 iy63 moveto ( 6) nshow ix32 iy63 moveto (Yes/No) showen (Ja/Nein) showde ix33 iy63 moveto (Yes/No) showen (Ja/Nein) showde ix34 iy63 moveto (Yes/No) showen (Ja/Nein) showde ix35 iy63 moveto (Yes/No) showen (Ja/Nein) showde ix36 iy63 moveto (Yes/No) showen (Ja/Nein) showde ix31 iy73 moveto ( 4) nshow ix32 iy73 moveto (Yes/No) showen (Ja/Nein) showde ix33 iy73 moveto (Yes/No) showen (Ja/Nein) showde ix34 iy73 moveto (Yes/No) showen (Ja/Nein) showde ix35 iy73 moveto (Yes/No) showen (Ja/Nein) showde ix36 iy73 moveto (Yes/No) showen (Ja/Nein) showde %*************************************************** /ix40 0020 def %Question /ix41 0100 def %CR W-O /ix42 0900 def %Y/N /ix43 1600 def %CR W-L /ix44 2400 def %Y/N /ix45 3100 def %CR W-V /ix46 3900 def %Y/N /ix47 4600 def %CR W-N /ix48 5400 def %Y/N /iyt4 1500 def %Recognition frequency = 2x top + 8 lines /iy04 iyt4 iyd 0.0 mul sub def %RF /iy140 iyt4 iyd 1.0 mul sub def /iy141 iyt4 iyd 2.0 mul sub def /iy24 iyt4 iyd 3.1 mul sub def %CR /iy34 iyt4 iyd 4.1 mul sub def %BR /iy44 iyt4 iyd 5.1 mul sub def %0-1 /iy54 iyt4 iyd 6.1 mul sub def %7-8 /iy64 iyt4 iyd 7.1 mul sub def %E-F /iy74 iyt4 iyd 8.1 mul sub def %2-0 /iy84 iyt4 iyd 9.1 mul sub def %8-6 /iy94 iyt4 iyd 10.1 mul sub def %F-D ix40 iy04 moveto (Test of recognition frequency of Landolt\255rings ) bshowen (Pr\374fung der Erkennungsh\344ufigkeit der Landoltringe ) showde iout 2 le {ioutT iout get jshow (-C) jshow (d) nishowx (, ) jshow ioutT iout get jshow (-M) jshow (d) nishowx (, ) jshow ioutT iout get jshow (-Y) jshow (d) nishowx} {ioutT iout get jshow (-R) jshow (d) nishowx (, ) jshow ioutT iout get jshow (-G) jshow (d) nishowx (, ) jshow ioutT iout get jshow (-B) jshow (d) nishowx} ifelse (, and ) bshowen ( und ) bshowde (W-N ) jshow ix40 iy140 moveto (according to pictures ) bshowen (nach Bildern ) showde iout 2 le {(B6) bshow} {(D6) bshow} ifelse ioutT iout get bshow (\255) nshow colorml cvishow xcolorl cvishow xchartd 1 eq {xchartl cvishow} {xchartl xchartd idiv cvishow} ifelse (\255) show (0) show %pchartl cvishow (, and ) bshowen ( und ) bshowde iout 2 le {(B7) bshow} {(D7) bshow} ifelse ioutT iout get bshow (\255) nshow colorml cvishow xcolorl cvishow xchartd 1 eq {xchartl cvishow} {xchartl xchartd idiv cvishow} ifelse (\255) show (0) show %pchartl cvishow ix40 iy141 moveto (Is the recognition frequency of the Landolt\255rings ) showen (> 50% (min. 5 of 8 at least)?) showen (Ist die Erkennungsh\344ufigkeit der Landoltringe ) showde (> 50% (min. 5 von 8)?) showde ix41 iy24 moveto (Colour row ) showen (Farbreihe ) showde iout 2 le {ioutT iout get jshow (-C) jshow (d) nishowx} {ioutT iout get jshow (-R) jshow (d) nishowx} ifelse ix43 iy24 moveto (Colour row ) showen (Farbreihe ) showde iout 2 le {ioutT iout get jshow (-M) jshow (d) nishowx} {ioutT iout get jshow (-G) jshow (d) nishowx} ifelse ix45 iy24 moveto (Colour row ) showen (Farbreihe ) showde iout 2 le {ioutT iout get jshow (-Y) jshow (d) nishowx} {ioutT iout get jshow (-B) jshow (d) nishowx} ifelse ix47 iy24 moveto (Colour row ) showen (Farbreihe ) showde (W-N) jshow ix41 iy34 moveto (background - ring) showen (Umfeld - Ring) showde ix43 iy34 moveto (background - ring) showen (Umfeld - Ring) showde ix45 iy34 moveto (background - ring) showen (Umfeld - Ring) showde ix47 iy34 moveto (background - ring) showen (Umfeld - Ring) showde ix41 iy44 moveto (0 - 1) showen ix42 iy44 moveto (Yes/No) showen (Ja/Nein) showde ix43 iy44 moveto (0 - 1) showen ix44 iy44 moveto (Yes/No) showen (Ja/Nein) showde ix45 iy44 moveto (0 - 1) showen ix46 iy44 moveto (Yes/No) showen (Ja/Nein) showde ix47 iy44 moveto (0 - 1) showen ix48 iy44 moveto (Yes/No) showen (Ja/Nein) showde ix41 iy54 moveto (7 - 8) showen ix42 iy54 moveto (Yes/No) showen (Ja/Nein) showde ix43 iy54 moveto (7 - 8) showen ix44 iy54 moveto (Yes/No) showen (Ja/Nein) showde ix45 iy54 moveto (7 - 8) showen ix46 iy54 moveto (Yes/No) showen (Ja/Nein) showde ix47 iy54 moveto (7 - 8) showen ix48 iy54 moveto (Yes/No) showen (Ja/Nein) showde ix41 iy64 moveto (E - F) showen ix42 iy64 moveto (Yes/No) showen (Ja/Nein) showde ix43 iy64 moveto (E - F) showen ix44 iy64 moveto (Yes/No) showen (Ja/Nein) showde ix45 iy64 moveto (E - F) showen ix46 iy64 moveto (Yes/No) showen (Ja/Nein) showde ix47 iy64 moveto (E - F) showen ix48 iy64 moveto (Yes/No) showen (Ja/Nein) showde ix41 iy74 moveto (2 - 0) showen ix42 iy74 moveto (Yes/No) showen (Ja/Nein) showde ix43 iy74 moveto (2 - 0) showen ix44 iy74 moveto (Yes/No) showen (Ja/Nein) showde ix45 iy74 moveto (2 - 0) showen ix46 iy74 moveto (Yes/No) showen (Ja/Nein) showde ix47 iy74 moveto (2 - 0) showen ix48 iy74 moveto (Yes/No) showen (Ja/Nein) showde ix41 iy84 moveto (8 - 6) showen ix42 iy84 moveto (Yes/No) showen (Ja/Nein) showde ix43 iy84 moveto (8 - 6) showen ix44 iy84 moveto (Yes/No) showen (Ja/Nein) showde ix45 iy84 moveto (8 - 6) showen ix46 iy84 moveto (Yes/No) showen (Ja/Nein) showde ix47 iy84 moveto (8 - 6) showen ix48 iy84 moveto (Yes/No) showen (Ja/Nein) showde ix41 iy94 moveto (F - D) showen ix42 iy94 moveto (Yes/No) showen (Ja/Nein) showde ix43 iy94 moveto (F - D) showen ix44 iy94 moveto (Yes/No) showen (Ja/Nein) showde ix45 iy94 moveto (F - D) showen ix46 iy94 moveto (Yes/No) showen (Ja/Nein) showde ix47 iy94 moveto (F - D) showen ix48 iy94 moveto (Yes/No) showen } if %ibil=2 %*************************************************************************** ibil 3 eq {%ibil=3 /iout 3 def %iout=0_2:CMY, iout=3-5: OLV /ioutT [(W) (N) (Z) (W) (N) (Z)] def /ioutE [(White) (Black) (Grey) (White) (Black) (Grey)] def /ioutG [(Wei\337) (Schwarz) (Grau) (Wei\337) (Schwarz) (Grau)] def /iyt 130 def %text size /iyd 150 def %line difference /ix1 50 def %1 /ix2 1600 def %2 /ix3 5100 def %3 /ix21 2600 def %W-R /ix22 3300 def %W-G /ix23 4000 def %W-B /ix24 4700 def %W-N /ix25 5700 def %W-Z /iyd 145 def %line difference /ix20 0020 def %Text and colour W-O etc. /ix21 1500 def %Question /ix22 4000 def %of 16 steps /ix23 5200 def %Yes/No /iyt2 4080 def %Recognition frequency = 2x top + 8 lines /iy02 iyt2 iyd 0.0 mul sub def %RF /iy12 iyt2 iyd 1.0 mul sub def /iy22 iyt2 iyd 2.1 mul sub def %W-O /iy32 iyt2 iyd 3.1 mul sub def /iy42 iyt2 iyd 4.2 mul sub def %W-L /iy52 iyt2 iyd 5.2 mul sub def /iy62 iyt2 iyd 6.3 mul sub def %W-V /iy72 iyt2 iyd 7.3 mul sub def /iy82 iyt2 iyd 8.4 mul sub def %W-N /iy92 iyt2 iyd 9.4 mul sub def ix20 iy02 moveto (Test of 16 visually equally spaced steps of the colour rows ) bshowen (Pr\374fung der 16 visuell gleichabst\344ndigen Buntstufen der Farbreihen ) bshowde iout 2 le {ioutT iout get jshow (-C) jshow (d) nishowx (, ) jshow ioutT iout get jshow (-M) jshow (d) nishowx (, ) jshow ioutT iout get jshow (-Y) jshow (d) nishowx} {ioutT iout get jshow (-R) jshow (d) nishowx (, ) jshow ioutT iout get jshow (-G) jshow (d) nishowx (, ) jshow ioutT iout get jshow (-B) jshow (d) nishowx} ifelse (, and ) bshowen ( und ) bshowde (W-N ) jshow ix20 iy12 moveto (according to picture ) bshowen (nach Bild ) bshowde iout 2 le {(B4) bshow}{(D4) bshow} ifelse ioutT iout get bshow (\255) nshow colorml cvishow xcolorl cvishow xchartd 1 eq {xchartl cvishow} {xchartl xchartd idiv cvishow} ifelse (\255) show (0) show %pchartl cvishow ix20 iy22 moveto iout 2 le {ioutT iout get jshow (-C) jshow (d ) nishowx ioutE iout get showen ( - Cyanblue:) showen ioutG iout get showde ( - Cyanblau:) showde} {ioutT iout get jshow (-R) jshow (d ) nishowx ioutE iout get showen ( - Orangered:) showen ioutG iout get showde ( - Orangerot:) showde} ifelse ix21 iy22 moveto (Are all the 16 steps distinguishable?) showen (Sind alle Stufen unterscheidbar?) showde ix22 iy22 moveto () showen ix23 iy22 moveto (Yes/No) bshowen (Ja/Nein) bshowde ix20 iy32 moveto () showen ix21 iy32 moveto (If No: How many steps can be distinguished?) showen (Falls Nein: Wieviel Stufen sind unterscheidbar?) showde ix22 iy32 moveto (of the given 16 steps) showen (von 16 Stufen sind es:) showde ix23 iy32 moveto (............ Steps) showen (............ Stufen) showde ix20 iy42 moveto iout 2 le {ioutT iout get jshow (-M) jshow (d ) nishowx ioutE iout get showen ( - Magentared:) showen ioutG iout get showde ( - Magentarot:) showde} {ioutT iout get jshow (-G) jshow (d ) nishowx ioutE iout get showen ( - Leafgreen:) showen ioutG iout get showde ( - Laubgr\374n:) showde} ifelse ix21 iy42 moveto (Are all the 16 steps distinguishable?) showen (Sind alle Stufen unterscheidbar?) showde ix22 iy42 moveto () showen ix23 iy42 moveto (Yes/No) bshowen (Ja/Nein) bshowde ix20 iy52 moveto () showen ix21 iy52 moveto (If No: How many steps can be distinguished?) showen (Falls Nein: Wieviel Stufen sind unterscheidbar?) showde ix22 iy52 moveto (of the given 16 steps) showen (von 16 Stufen sind es:) showde ix23 iy52 moveto (............ Steps) showen (............ Stufen) showde ix20 iy62 moveto iout 2 le {ioutT iout get jshow (-Y) jshow (d) nishowx ioutE iout get showen ( - Yellow:) showen ioutG iout get showde ( - Gelb:) showde} {ioutT iout get jshow (-B) jshow (d) nishowx ioutE iout get showen ( - Violetblue:) showen ioutG iout get showde ( - Violetblau:) showde} ifelse ix21 iy62 moveto (Are all the 16 steps distinguishable?) showen (Sind alle Stufen unterscheidbar?) showde ix22 iy62 moveto () showen ix23 iy62 moveto (Yes/No) bshowen (Ja/Nein) bshowde ix20 iy72 moveto () showen ix21 iy72 moveto (If No: How many steps can be distinguished?) showen (Falls Nein: Wieviel Stufen sind unterscheidbar?) showde ix22 iy72 moveto (of the given 16 steps) showen (von 16 Stufen sind es:) showde ix23 iy72 moveto (............ Steps) showen (............ Stufen) showde ix20 iy82 moveto (W-N ) jshow (White - Black:) showen (Wei\337 - Schwarz:) showde ix21 iy82 moveto (Are all the 16 steps distinguishable?) showen (Sind alle Stufen unterscheidbar?) showde ix22 iy82 moveto () showen ix23 iy82 moveto (Yes/No) bshowen (Ja/Nein) bshowde ix20 iy92 moveto () showen ix21 iy92 moveto (If No: How many steps can be distinguished?) showen (Falls Nein: Wieviel Stufen sind unterscheidbar?) showde ix22 iy92 moveto (of the given 16 steps) showen (von 16 Stufen sind es:) showde ix23 iy92 moveto (............ Steps) showen (............ Stufen) showde %******************************************** /ix30 0020 def %Question /ix31 0200 def %LR size /ix32 1200 def %letters /ix33 2000 def %Ring N /ix34 3000 def %Ring O /ix35 4000 def %Ring L /ix36 5000 def %Ring V /iyt3 2550 def %Tests of characters = 2x top + 5 lines /iy13 iyt3 iyd 0.0 mul sub def %TC /iy23 iyt3 iyd 1.0 mul sub def /iy33 iyt3 iyd 2.1 mul sub def %Relative size /iy43 iyt3 iyd 3.1 mul sub def %10 /iy53 iyt3 iyd 4.1 mul sub def %08 /iy63 iyt3 iyd 5.1 mul sub def %06 /iy73 iyt3 iyd 6.1 mul sub def %04 ix30 iy13 moveto (Test of characters and Landolt\255rings in four sizes ) bshowen (Pr\374fung von Schrift und Landoltringen in vier Gr\366\337en ) bshowde (according to picture ) bshowen (nach Bild ) bshowde iout 2 le {(B5) bshow} {(D5) bshow} ifelse ioutT iout get bshow (\255) nshow colorml cvishow xcolorl cvishow xchartd 1 eq {xchartl cvishow} {xchartl xchartd idiv cvishow} ifelse (\255) show (0) show %pchartl cvishow ix30 iy23 moveto (Is the recognition frequency > 50% for letters ) showen (Ist die Erkennungsh\344ufigkeit > 50% f\374r Schriftzeichen ) showde ((17 from 32 at least) and for Landolt-rings (minimum 5 of 8)?) showen ((min. 17 von 32) und f\374r Landoltringe (min. 5 von 8)?) showde ix31 iy33 moveto (Relative size) showen (Relative Gr\366\337e) showde ix32 iy33 moveto (Letters) showen (Schriftzeichen) showde ix33 iy33 moveto (Ring ) showen (Ringe ) showde (N) jshow ix34 iy33 moveto (Ring ) showen (Ringe ) showde iout 2 le {(C) jshow (d) nishowx} {(R) jshow (d) nishowx} ifelse ix35 iy33 moveto (Ring ) showen (Ringe ) showde iout 2 le {(M) jshow (d) nishowx} {(G) jshow (d) nishowx} ifelse ix36 iy33 moveto (Ring ) showen (Ringe ) showde iout 2 le {(Y) jshow (d) nishowx} {(B) jshow (d) nishowx} ifelse ix31 iy43 moveto (10) nshow ix32 iy43 moveto (Yes/No) showen (Ja/Nein) showde ix33 iy43 moveto (Yes/No) showen (Ja/Nein) showde ix34 iy43 moveto (Yes/No) showen (Ja/Nein) showde ix35 iy43 moveto (Yes/No) showen (Ja/Nein) showde ix36 iy43 moveto (Yes/No) showen (Ja/Nein) showde ix31 iy53 moveto ( 8) nshow ix32 iy53 moveto (Yes/No) showen (Ja/Nein) showde ix33 iy53 moveto (Yes/No) showen (Ja/Nein) showde ix34 iy53 moveto (Yes/No) showen (Ja/Nein) showde ix35 iy53 moveto (Yes/No) showen (Ja/Nein) showde ix36 iy53 moveto (Yes/No) showen (Ja/Nein) showde ix31 iy63 moveto ( 6) nshow ix32 iy63 moveto (Yes/No) showen (Ja/Nein) showde ix33 iy63 moveto (Yes/No) showen (Ja/Nein) showde ix34 iy63 moveto (Yes/No) showen (Ja/Nein) showde ix35 iy63 moveto (Yes/No) showen (Ja/Nein) showde ix36 iy63 moveto (Yes/No) showen (Ja/Nein) showde ix31 iy73 moveto ( 4) nshow ix32 iy73 moveto (Yes/No) showen (Ja/Nein) showde ix33 iy73 moveto (Yes/No) showen (Ja/Nein) showde ix34 iy73 moveto (Yes/No) showen (Ja/Nein) showde ix35 iy73 moveto (Yes/No) showen (Ja/Nein) showde ix36 iy73 moveto (Yes/No) showen (Ja/Nein) showde %*************************************************** /ix40 0020 def %Question /ix41 0100 def %CR W-O /ix42 0900 def %Y/N /ix43 1600 def %CR W-L /ix44 2400 def %Y/N /ix45 3100 def %CR W-V /ix46 3900 def %Y/N /ix47 4600 def %CR W-N /ix48 5400 def %Y/N /iyt4 1500 def %Recognition frequency = 2x top + 8 lines /iy04 iyt4 iyd 0.0 mul sub def %RF /iy140 iyt4 iyd 1.0 mul sub def /iy141 iyt4 iyd 2.0 mul sub def /iy24 iyt4 iyd 3.1 mul sub def %CR /iy34 iyt4 iyd 4.1 mul sub def %BR /iy44 iyt4 iyd 5.1 mul sub def %0-1 /iy54 iyt4 iyd 6.1 mul sub def %7-8 /iy64 iyt4 iyd 7.1 mul sub def %E-F /iy74 iyt4 iyd 8.1 mul sub def %2-0 /iy84 iyt4 iyd 9.1 mul sub def %8-6 /iy94 iyt4 iyd 10.1 mul sub def %F-D ix40 iy04 moveto (Test of recognition frequency of Landolt\255rings ) bshowen (Pr\374fung der Erkennungsh\344ufigkeit der Landoltringe ) showde iout 2 le {ioutT iout get jshow (-C) jshow (d) nishowx (, ) jshow ioutT iout get jshow (-M) jshow (d) nishowx (, ) jshow ioutT iout get jshow (-Y) jshow (d) nishowx} {ioutT iout get jshow (-R) jshow (d) nishowx (, ) jshow ioutT iout get jshow (-G) jshow (d) nishowx (, ) jshow ioutT iout get jshow (-B) jshow (d) nishowx} ifelse (, and ) bshowen ( und ) bshowde (W-N ) jshow ix40 iy140 moveto (according to pictures ) bshowen (nach Bildern ) showde iout 2 le {(B6) bshow} {(D6) bshow} ifelse ioutT iout get bshow (\255) nshow colorml cvishow xcolorl cvishow xchartd 1 eq {xchartl cvishow} {xchartl xchartd idiv cvishow} ifelse (\255) show (0) show %pchartl cvishow (, and ) bshowen ( und ) bshowde iout 2 le {(B7) bshow} {(D7) bshow} ifelse ioutT iout get bshow (\255) nshow colorml cvishow xcolorl cvishow xchartd 1 eq {xchartl cvishow} {xchartl xchartd idiv cvishow} ifelse (\255) show (0) show %pchartl cvishow ix40 iy141 moveto (Is the recognition frequency of the Landolt\255rings ) showen (> 50% (min. 5 of 8 at least)?) showen (Ist die Erkennungsh\344ufigkeit der Landoltringe ) showde (> 50% (min. 5 von 8)?) showde ix41 iy24 moveto (Colour row ) showen (Farbreihe ) showde iout 2 le {ioutT iout get jshow (-C) jshow (d) nishowx} {ioutT iout get jshow (-R) jshow (d) nishowx} ifelse ix43 iy24 moveto (Colour row ) showen (Farbreihe ) showde iout 2 le {ioutT iout get jshow (-M) jshow (d) nishowx} {ioutT iout get jshow (-G) jshow (d) nishowx} ifelse ix45 iy24 moveto (Colour row ) showen (Farbreihe ) showde iout 2 le {ioutT iout get jshow (-Y) jshow (d) nishowx} {ioutT iout get jshow (-B) jshow (d) nishowx} ifelse ix47 iy24 moveto (Colour row ) showen (Farbreihe ) showde (W-N) jshow ix41 iy34 moveto (background - ring) showen (Umfeld - Ring) showde ix43 iy34 moveto (background - ring) showen (Umfeld - Ring) showde ix45 iy34 moveto (background - ring) showen (Umfeld - Ring) showde ix47 iy34 moveto (background - ring) showen (Umfeld - Ring) showde ix41 iy44 moveto (0 - 1) showen ix42 iy44 moveto (Yes/No) showen (Ja/Nein) showde ix43 iy44 moveto (0 - 1) showen ix44 iy44 moveto (Yes/No) showen (Ja/Nein) showde ix45 iy44 moveto (0 - 1) showen ix46 iy44 moveto (Yes/No) showen (Ja/Nein) showde ix47 iy44 moveto (0 - 1) showen ix48 iy44 moveto (Yes/No) showen (Ja/Nein) showde ix41 iy54 moveto (7 - 8) showen ix42 iy54 moveto (Yes/No) showen (Ja/Nein) showde ix43 iy54 moveto (7 - 8) showen ix44 iy54 moveto (Yes/No) showen (Ja/Nein) showde ix45 iy54 moveto (7 - 8) showen ix46 iy54 moveto (Yes/No) showen (Ja/Nein) showde ix47 iy54 moveto (7 - 8) showen ix48 iy54 moveto (Yes/No) showen (Ja/Nein) showde ix41 iy64 moveto (E - F) showen ix42 iy64 moveto (Yes/No) showen (Ja/Nein) showde ix43 iy64 moveto (E - F) showen ix44 iy64 moveto (Yes/No) showen (Ja/Nein) showde ix45 iy64 moveto (E - F) showen ix46 iy64 moveto (Yes/No) showen (Ja/Nein) showde ix47 iy64 moveto (E - F) showen ix48 iy64 moveto (Yes/No) showen (Ja/Nein) showde ix41 iy74 moveto (2 - 0) showen ix42 iy74 moveto (Yes/No) showen (Ja/Nein) showde ix43 iy74 moveto (2 - 0) showen ix44 iy74 moveto (Yes/No) showen (Ja/Nein) showde ix45 iy74 moveto (2 - 0) showen ix46 iy74 moveto (Yes/No) showen (Ja/Nein) showde ix47 iy74 moveto (2 - 0) showen ix48 iy74 moveto (Yes/No) showen (Ja/Nein) showde ix41 iy84 moveto (8 - 6) showen ix42 iy84 moveto (Yes/No) showen (Ja/Nein) showde ix43 iy84 moveto (8 - 6) showen ix44 iy84 moveto (Yes/No) showen (Ja/Nein) showde ix45 iy84 moveto (8 - 6) showen ix46 iy84 moveto (Yes/No) showen (Ja/Nein) showde ix47 iy84 moveto (8 - 6) showen ix48 iy84 moveto (Yes/No) showen (Ja/Nein) showde ix41 iy94 moveto (F - D) showen ix42 iy94 moveto (Yes/No) showen (Ja/Nein) showde ix43 iy94 moveto (F - D) showen ix44 iy94 moveto (Yes/No) showen (Ja/Nein) showde ix45 iy94 moveto (F - D) showen ix46 iy94 moveto (Yes/No) showen (Ja/Nein) showde ix47 iy94 moveto (F - D) showen ix48 iy94 moveto (Yes/No) showen } if %ibil=3 %*************************************************************************** showpage grestore } for %END ibil=0,3 %%Trailer