%!PS-Adobe-3.0 EPSF-3.0 DGE31-5N D4:[RR.B9F]B9181-5N.eps 12.11.98/210501 %%BoundingBox: 70 80 390 206 % compare K. Richter: Computergrafik und Farbmetrik: % Farbsysteme, PostScript, geraeteunabhaengige CIE-Farben % VDE-Verlag, Berlin, 1996, ISBN 3-8007-1775-1 mit CD-ROM, % Book with 500 figures in the formats PS and PDF on CD-ROM, % For free download with 288 pages, 2,6MB, A5, in German, see % http://color.li.tu-berlin.de/BUA4BF.PDF % or K. Richter: Colour, Colour Vision, and Elementary Colours % and Colour Information Technology, % in six languages: EN, GE ,FR ,ES, IT, NO, see 76 pages % http://standards.iso.org/iso/9241/306/ed-2/ES15.PDF /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 /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 /Courier findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Courier-ISOL1 exch definefont pop /Courier-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierB-ISOL1 exch definefont pop /TV {150 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIV {150 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {300 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBV {150 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIV {150 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {300 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /RV {150 /Times-Roman FS} bind def /RS {200 /Times-Roman FS} bind def /RK {250 /Times-Roman FS} bind def /RM {300 /Times-Roman FS} bind def /RG {350 /Times-Roman FS} bind def /RIV {150 /Times-Italic FS} bind def /RIS {200 /Times-Italic FS} bind def /RIK {250 /Times-Italic FS} bind def /RIM {300 /Times-Italic FS} bind def /RIG {350 /Times-Italic FS} bind def /RBV {150 /Times-Bold FS} bind def /RBS {200 /Times-Bold FS} bind def /RBK {250 /Times-Bold FS} bind def /RBM {300 /Times-Bold FS} bind def /RBG {350 /Times-Bold FS} bind def /RBIV {150 /Times-BoldItalic FS} bind def /RBIS {200 /Times-BoldItalic FS} bind def /RBIK {250 /Times-BoldItalic FS} bind def /RBIM {300 /Times-BoldItalic FS} bind def /RBIG {350 /Times-BoldItalic FS} bind def /SV {150 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SK {250 /Symbol FS} bind def /SM {300 /Symbol FS} bind def /SG {350 /Symbol FS} bind def /08RN {08 /Times-Roman FS} bind def /08RI {08 /Times-Italic FS} bind def /08RB {08 /Times-Bold FS} bind def /08RBI {08 /Times-BoldItalic FS} bind def /08TN {08 /Times-ISOL1 FS} bind def /08TI {08 /TimesI-ISOL1 FS} bind def /08TB {08 /TimesB-ISOL1 FS} bind def /08TBI {08 /TimesBI-ISOL1 FS} bind def /10RN {10 /Times-Roman FS} bind def /10RI {10 /Times-Italic FS} bind def /10RB {10 /Times-Bold FS} bind def /10RBI {10 /Times-BoldItalic FS} bind def /10TN {10 /Times-ISOL1 FS} bind def /10TI {10 /TimesI-ISOL1 FS} bind def /10TB {10 /TimesB-ISOL1 FS} bind def /10TBI {10 /TimesBI-ISOL1 FS} bind def /12RN {12 /Times-Roman FS} bind def /12RI {12 /Times-Italic FS} bind def /12RB {12 /Times-Bold FS} bind def /12RBI {12 /Times-BoldItalic FS} bind def /12TN {12 /Times-ISOL1 FS} bind def /12TI {12 /TimesI-ISOL1 FS} bind def /12TB {12 /TimesB-ISOL1 FS} bind def /12TBI {12 /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 /tyo {1.0 0.0 0.0} bind def %reproduction colours /tyl {0.0 1.0 0.0} bind def /tyv {0.0 0.0 1.0} bind def /tyc {0.0 1.0 1.0} bind def /tym {1.0 0.0 1.0} bind def /tyy {1.0 1.0 0.0} bind def /tyn {0.00} bind def %grey scale /tyd {0.25} bind def /tyz {0.50} bind def /tyh {0.75} bind def /tyw {1.00} bind def /tro {tyo setrgbcolor} bind def /trl {tyl setrgbcolor} bind def /trv {tyv setrgbcolor} bind def /trc {tyc setrgbcolor} bind def /trm {tym setrgbcolor} bind def /try {tyy setrgbcolor} bind def /twn {tyn setgray} bind def /twd {tyd setgray} bind def /twz {tyz setgray} bind def /twh {tyh setgray} bind def /tww {tyw setgray} bind def /twan [0.000 0.067 0.132 0.200 0.267 0.333 0.400 0.467 0.533 0.600 0.667 0.733 0.800 0.867 0.933 1.000 0.000 0.250 0.500 0.750 1.000] 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 /lanind 1 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 /showfr {2 lanind eq {show} {pop} ifelse} bind def /showes {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 /lanindm 01 def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def /lanindm lanindmf def} if /lanind lanind1 def %no loops %******************************************************************* %%EndProlog gsave 8 /Times-ISOL1 FS 72 83 moveto (DGE31-5, ) show %!2 (wrpos:B9181-5N.eps) show (Bild ) showde (Picture ) showen (Fig. ) showes (Fig. ) showfr (Fig. ) showit (Figur ) showjp (D6: ) show 8 /Times-ISOL1 FS (Landoltringe) showde (Landolt\255rings) showen (Landolt annilos) showes (Landolt anneau) showfr (Anelli Landolt) showit (Landolt\255ringer) showjp 8 /TimesI-ISOL1 FS ( W-O) show 8 /Times-ISOL1 FS ( und ) showde (, and ) showen ( y ) showes ( et ) showfr ( i ) showit ( og ) showjp 8 /TimesI-ISOL1 FS (W-L) show 8 /Times-ISOL1 FS 72 90 translate 0.01 MM dup scale 20 setlinewidth /tzo3 48 array def /tzl3 48 array def /tzv3 48 array def /tzn3 48 array def 0 1 15 {/nfar exch def /nfar3 nfar 3 mul def tzo3 nfar3 0.0 put tzo3 nfar3 1 add 1 twan nfar get sub put tzo3 nfar3 2 add 1 twan nfar get sub put tzl3 nfar3 1 twan nfar get sub put tzl3 nfar3 1 add 0.0 put tzl3 nfar3 2 add 1 twan nfar get sub put tzv3 nfar3 1 twan nfar get sub put tzv3 nfar3 1 add 1 twan nfar get sub put tzv3 nfar3 2 add 0.0 put tzn3 nfar3 1 twan nfar get sub put tzn3 nfar3 1 add 1 twan nfar get sub put tzn3 nfar3 2 add 1 twan nfar get sub put } for tww 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath fill twn 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath stroke /xab 5400 def 50 0 translate /ar 80 def ar setlinewidth /tef [(W-O) (W-L) (W-V) (W-N)] def 0 1 1 {/ncol exch def %=0,1,2,3 O,L,V,N ncol 0 eq { %O /tza3 tzo3 def /nc [(F-D) (8-6) (2-0) (E-F) (7-8) (0-1)] def /nl [0 7 13 1 8 15] def %entspricht F 8 2, E 7 0, +2, -1 /ak [4 3 2 8 7 1 5 6 8 5 3 7 2 1 4 6 6 3 5 4 3 7 2 8 4 1 6 7 8 2 3 5 1 5 4 8 7 2 3 6 8 1 7 6 2 5 4 3] def /ndif1 2 def /ndif2 -1 def } if %C ncol 1 eq { %L /tza3 tzl3 def /nc [(F-D) (8-6) (2-0) (E-F) (7-8) (0-1)] def /nl [0 7 13 1 8 15] def %entspricht F 8 2, E 7 0, +2, -1 /ak [6 7 8 2 3 5 4 1 7 2 3 6 1 5 4 8 6 4 8 5 3 7 2 1 7 2 8 6 3 5 4 3 8 1 7 5 2 6 4 3 4 3 2 8 7 1 5 6] def /ndif1 2 def /ndif2 -1 def } if %M ncol 2 eq { %V /tza3 tzv3 def /nc [(F-D) (8-6) (2-0) (E-F) (7-8) (0-1)] def /nl [0 7 13 1 8 15] def %entspricht F 8 2, E 7 0, +2, -1 /ak [8 5 3 7 2 1 4 6 6 3 5 4 3 7 2 8 4 3 2 8 7 1 5 6 5 3 2 8 7 6 1 4 8 4 5 1 6 3 2 7 7 6 5 2 3 4 1 8] def /ndif1 2 def /ndif2 -1 def } if %V ncol 3 eq { %N /tza3 twn3 def /nc [(F-D) (8-6) (2-0) (E-F) (7-8) (0-1)] def /nl [0 7 13 1 8 15] def %entspricht F 8 2, E 7 0, +2, -1 /ak [6 7 8 2 3 5 4 1 7 2 3 6 1 5 4 8 6 4 8 5 3 7 2 1 7 2 8 6 3 5 4 3 8 1 7 5 2 6 4 3 4 3 2 8 7 1 5 6] def /ndif1 2 def /ndif2 -1 def } if %N twn TK 0 1 5 {/j exch def /iy0 500 j 600 mul add def 5000 iy0 moveto nc j get show } for %j 0 1 07 {/j exch def /ix0 0100 j 600 mul add def 0 1 05 {/l exch def /iy0 0300 l 600 mul add def /k l 8 mul j add def /i1 nl l get def /i3 i1 3 mul def 1 tza3 i3 get sub 1 tza3 i3 1 add get sub 1 tza3 i3 2 add get sub setrgbcolor /ixd 600 def ix0 iy0 moveto ixd 000 rlineto 000 ixd rlineto ixd neg 000 rlineto closepath fill l 2 le {/i1 nl l get ndif1 add def} {/i1 nl l get ndif2 add def} ifelse /i3 i1 3 mul def 1 tza3 i3 get sub 1 tza3 i3 1 add get sub 1 tza3 i3 2 add get sub setrgbcolor ix0 300 add iy0 300 add ar 2.5 mul 0 360 arc closepath fill /i1 nl l get def /i3 i1 3 mul def 1 tza3 i3 get sub 1 tza3 i3 1 add get sub 1 tza3 i3 2 add get sub setrgbcolor ix0 300 add iy0 300 add ar 1.5 mul 0 360 arc closepath fill /i1 nl l get def /i3 i1 3 mul def 1 tza3 i3 get sub 1 tza3 i3 1 add get sub 1 tza3 i3 2 add get sub setrgbcolor ix0 300 add iy0 300 add moveto /m ak k get exec def m 1 eq {ar 2.6 mul 0 rlineto closepath stroke} if %0 m 2 eq {ar 2.6 mul 45 sin mul ar 2.6 mul 45 cos mul rlineto closepath stroke} if %45 m 3 eq {0 ar 2.6 mul rlineto closepath stroke} if %90 m 4 eq {ar 2.6 mul 135 sin mul ar 2.6 mul 135 cos mul rlineto closepath stroke} if %135 m 5 eq {ar 2.6 mul neg 0 rlineto closepath stroke} if %0 m 6 eq {ar 2.6 mul 235 sin mul ar 2.6 mul 235 cos mul rlineto closepath stroke} if %45 m 7 eq {0 ar 2.6 mul neg rlineto closepath stroke} if %0 m 8 eq {ar 2.6 mul 315 sin mul ar 2.6 mul 315 cos mul rlineto closepath stroke} if %45 } for %l } for %j twn TBK 1500 50 moveto (Landoltringe ) showde (Landolt\255rings ) showen (Landolt annilos ) showes (Landolt anneau ) showfr (Anelli Landolt ) showit (Landolt\255ringer ) showjp TBIK tef ncol get show 5000 50 moveto (Code) show xab 0 translate 50 0 translate } for %ncol=0,1,2,3 grestore showpage %%Trailer