%!PS-Adobe-3.0 EPSF-3.0 D4:[rr.b9n]B9151-1N.eps 12.11.98 DGD51-1N 210401
%%BoundingBox: 70 80 415 206

%%Creator: K. Richter, BAM und TU Berlin 1997.03.15
% 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

twn
8 /Times-ISOL1 FS
72 83 moveto
(DGD51-1N, ) show

%!2    (wrpos:B9151-1N.eps) show
(Bild ) showde
(Picture ) showen
(Figure ) showfr
(Fig. ) showes
(Fig. ) showit
(Figur ) showjp
(C4: ) show

8 /Times-ISOL1 FS
(Landoltringe ) showde
(Landolt\255rings ) showen
(Anneaux de Landolt ) showfr
(Anillos de Landolt ) showes
(Anelli di Landolt ) showit
(Landoltringer ) showjp

8 /TimesI-ISOL1 FS
(W-N) show
 
72 90 translate

0.01 MM dup scale

15 setlinewidth

tww
0 0  moveto 12000 0 rlineto 0 4000 rlineto
           -12000 0 rlineto closepath fill

twn
0 0  moveto 12000 0 rlineto 0 4000 rlineto
           -12000 0 rlineto closepath stroke

050 3500 moveto
TBIK
(Umfeldstufe) showde
(background step) showen
(\351tape d'arri\350re\255plan) showfr
(paso fondo) showes
(lo sfondo passo) showit
(omfelt\255trinn) showjp

050 3200 moveto
TBIK
(Hex\255Code) showde
(Hex code) showen
(C\363digo Hexadecimal) showes
(font code hex) showfr
(codice esadecimale) showit
(Hex\255code) showjp

4100 50 moveto
TBK
(Landoltringe ) showde
(Landolt\255rings ) showen
(anillos de Landolt ) showes
(anneaux de Landolt ) showfr
(anelli di Landolt ) showit
(Landoltringer ) showjp

8200 3500 moveto
TBIK
(Ringstufe) showde
(ring step) showen
(paso del anillo) showes
(\351chelonnement) showfr
(anello passo) showit
(ring\255trinn) showjp

8200 3200 moveto
TBIK
(Hex\255Code) showde
(Hex code) showen
(C\363digo Hexadecimal) showes
(font code hex) showfr
(codice esadecimale) showit
(Hex\255code) showjp

9050 50 moveto
TBIK
(Code: Umfeld-Ring) showde
(code: background-ring) showen
(c\363digo: fondo - paso del anillo) showes
(\311l\351ment: fond - anneaux) showfr
(codice: sfondo passo - anello) showit
(kode: omfelt - ring) showjp
                                                             
TBM
/nll [(F) (8) (2) (E) (7) (0)] def
0 1 5 {/j exch def /iy0 500 j 600 mul add def
        2150 iy0 moveto nll j get show
       } for %j
/nr [(D) (6) (0) (F) (8) (1)] def
0 1 5 {/j exch def /iy0 500 j 600 mul add def
        7800 iy0 moveto nr j get show
       } for %j
/nc [(F-D) (8-6) (2-0) (E-F) (7-8) (0-1)] def
0 1 5 {/j exch def /iy0 500 j 600 mul add def
        10050 iy0 moveto nc j get show
       } for %j

/ar 80 def
 ar setlinewidth
/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
/nl  [0 7 13 1 8 15] def %+2, -1

0 1 07 {/j exch def /ix0 2700 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
        /ixd 600 def
        ix0 iy0 ixd ixd twan i1 get dup dup setrgbcolor rec fill
         l 2 le {/i1 nl l get 2 add def}
                {/i1 nl l get 1 sub def} ifelse
                 twan i1 get dup dup setrgbcolor
         ix0 300 add iy0 300 add ar 2.5 mul 0 360 arc closepath fill
                 /i1 nl l get def
                 twan i1 get dup dup setrgbcolor
         ix0 300 add iy0 300 add ar 1.5 mul 0 360 arc closepath fill
                 /i1 nl l get def
                 twan i1 get dup dup 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

grestore

showpage
%%Trailer