%!PS-Adobe-3.0 EPSF-3.0 egc01-5a.EPS %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark15 where {pop} {userdict /pdfmark15 /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/egc0/egc0.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de or http://color.li.tu-berlin.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2023110112000) /ModDate (D:20231101112000) /DOCINFO pdfmark15 [ /View [ /FitB ] /DOCVIEW pdfmark15 %END PDFDE011 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /A4querL {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 /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 /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-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 /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {315 /TimesB-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 %*********************************************************** /nshow {300 /Times-ISOL1 FS show} bind def /kshow {300 /TimesI-ISOL1 FS show} bind def /bshow {300 /TimesB-ISOL1 FS show} bind def /jshow {300 /TimesBI-ISOL1 FS show} bind def /sshow {300 /Symbol FS show} bind def /ishow {220 /Times-ISOL1 FS -00 -50 rmoveto show 00 50 rmoveto} bind def /eshow {220 /Times-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto} bind def /cvishow {0.5 add cvi 6 string cvs show} def /cvsshow1 {0.05 add 10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {0.005 add 100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show} def %%EndProlog gsave /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 /showm {6 lanind eq {show} {pop} ifelse} bind def /lanind1 0 def /lanind2 0 def /lanindd 01 def /colorm1 00 def /colorm2 00 def /colormd 01 def /deintp1 00 def /deintp2 00 def /deintpd 01 def /xcolor1 03 def /xcolor2 03 def /xcolord 01 def /xchart1 00 def /xchart2 00 def /xchartd 01 def /pchart1 00 def /pchart2 00 def /pchartd 01 def /colsep1 00 def /colsep2 00 def /colsepd 01 def /pmetam1 00 def /pmetam2 00 def /pmetamd 01 def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} if /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} if /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf 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 /xchartm xchartmf def} {/xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 1 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def /pchartm pchartmf def} {/pchartm 1 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} if /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} if /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % /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 1 def %0 1 1 {/colorml exch def %colorml=0,1 /xcolorl xcolor def %0 1 3 {/xcolorl exch def %xcolorl=0,3 /xchartl 1 def %1 2 7 {/xchartl exch def %xchartl=0,7 /pchartl pchart def 2 2 2 {/pchartl exch def %pchartl=0,2 colorml 0 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if colorml 0 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if colorml 1 eq deintp 0 eq and {/Txx (*dd) def /Fxx (*d) def} if colorml 1 eq deintp 1 eq and {/Txx (*de) def /Fxx (*e) def} if %xchart 0 eq {/Txx (-) def /Fxx (-) def} if 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 pchartl 1 eq {%pchartl=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 /nshow {iyt /Times-ISOL1 FS show} def /nishow {-30 -50 rmoveto iyt 50 sub /Times-ISOL1 FS show 30 50 rmoveto} def /nishow0 {-30 -50 rmoveto iyt 50 sub /Times-ISOL1 FS show 00 50 rmoveto} def /nishowx {-00 -30 rmoveto iyt 50 sub /Times-ISOL1 FS show 00 30 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 {-30 -50 rmoveto iyt 50 sub /TimesB-ISOL1 FS show 00 50 rmoveto} def /eshow { 00 110 rmoveto iyt 50 sub /TimesB-ISOL1 FS show 00 -110 rmoveto} def /neshow { 00 110 rmoveto iyt 50 sub /Times-ISOL1 FS show 00 -110 rmoveto} def /neshowx { 00 70 rmoveto iyt 50 sub /Times-ISOL1 FS show 00 -70 rmoveto} def /showde {0 lanind eq {nshow} {pop} ifelse} bind def /showen {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 /sshowde {0 lanind eq {sshow} {pop} ifelse} bind def /sshowen {1 lanind eq {sshow} {pop} ifelse} bind def /cvishow {cvi 6 string cvs show} def 72 90 translate 0.02 0.5 mul MM dup scale 15 setlinewidth /iyt 130 def %text size, line difference TM 0 setgray 0 -120 moveto %(Part 1) showen (Teil 1) showde %4500 -120 moveto (egc00-3A) show %(\255) show colorml cvishow xcolorl cvishow %pchartd 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 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 Txx show 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 Txx show 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 Txx show (, and ) bshowen ( und ) bshowde iout 2 le {(B7) bshow} {(D7) bshow} ifelse ioutT iout get bshow Txx show 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 %pchartl=1 pchartl 2 eq {%pchart=2 /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 0.5 mul MM dup scale 0.020 0.5 mul MM dup scale 15 setlinewidth 0 setgray 100 /Times-ISOL1 FS 100 -90 moveto (egc01-5A) 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 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 nach ) show} if lanind 1 eq {(For linearized output of the 16 grey steps according to ) show} if (ISO 9241\255306) show %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 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} {xchartd 1 eq {gammaPl}{1 gammaNl div} ifelse 0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show } ifelse 0 -70 rmoveto 150 /TimesBI-ISOL1 FS 2500 1800 moveto (w* = r* = g* = b*) show 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 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} {xchartd 1 eq {1 gammaPl div}{gammaNl} ifelse 0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show } ifelse 0 -70 rmoveto -0800 -0400 translate %Nullpunkt Zeichnung } if %pchartl=2 showpage grestore } for %pchartl=0,2 %} for %xchartl=0,7 %} for %xcolorl=0,3 %} for %colorml=0,1 %%Trailer