%!PS-Adobe-3.0 EPSF-3.0 DFD41-7N D4:[RR.B9F]B9161-7N.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 2 def /lanind2 2 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
(DFD41-7, ) show
%!2 (wrpos:B9181-5N.eps) show
(Bild ) showde
(Picture ) showen
(Fig. ) showes
(Fig. ) showfr
(Fig. ) showit
(Figur ) showjp
(B7: ) 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-V) show
8 /Times-ISOL1 FS
( und ) showde
(, and ) showen
( y ) showes
( et ) showfr
( i ) showit
( og ) showjp
8 /TimesI-ISOL1 FS
(W-N) show
8 /Times-ISOL1 FS
72 90 translate
0.01 MM dup scale
20 setlinewidth
/tzc3 48 array def
/tzm3 48 array def
/tzy3 48 array def
/tzn3 48 array def
0 1 15 {/nfar exch def
/nfar3 nfar 3 mul def
tzc3 nfar3 1 twan nfar get sub put
tzc3 nfar3 1 add 0.0 put
tzc3 nfar3 2 add 0.0 put
tzm3 nfar3 0.0 put
tzm3 nfar3 1 add 1 twan nfar get sub put
tzm3 nfar3 2 add 0.0 put
tzy3 nfar3 0.0 put
tzy3 nfar3 1 add 0.0 put
tzy3 nfar3 2 add 1 twan nfar get sub 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-C) (W-M) (W-Y) (W-N)] def
2 1 3 {/ncol exch def %=0,1,2,3 C,M,Y,N
ncol 0 eq { %C
/tza3 tzc3 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 { %M
/tza3 tzm3 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 { %Y
/tza3 tzy3 def
/nc [(F-B) (9-5) (4-0) (D-F) (6-8) (0-2)] def
/nl [0 6 11 2 9 15] def %entspricht F 9 4, D 6 0, +4, -2
/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 4 def /ndif2 -2 def
} if %Y
ncol 3 eq { %N
/tza3 tzn3 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