%!PS-Adobe-3.0 EPSF-3.0 DM94:Y11-7N.EPS  20020101
%%BoundingBox: 70 80 392 206

%START PDFDE011.EPS
/pdfmark where {pop} {userdict /pdfmark /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: Y11-7N.EPS)
  /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1)
  /Subject (goto: http://o2.ps.bam.de or http://www.ps.bam.de)
  /Keywords (image reproduction, colour devices)
  /Creator (klaus.richter@bam.de)
  /CreationDate (D:2002010112000)
  /ModDate (D:2002010112000)
/DOCINFO pdfmark
[ /View [ /FitB ]
/DOCVIEW pdfmark
%END  PDFDE011

%%Creator: K. Richter, BAM und TU Berlin, 2000.06.16
%%+Copyright (c) 1996 VDE-Verlag Berlin Offenbach

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def /str {8 string } bind def
/languagelevel where {pop languagelevel} {1} ifelse
                     /PSL12 exch def
/dictende {counttomark 2 idiv dup dict begin {def}
           repeat pop currentdict end} bind def
                                                    
% !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
 
/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 {350 /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
 
%ANFA CMYKDEF
%CMYKDEA0 (A0=Standard-Drucker-CMYKDEF) 15.3.97
/tzac [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533
       0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000
       1.000 0.750 0.500 0.250 0.000] def
/tzam [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533
       0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000
       1.000 0.750 0.500 0.250 0.000] def
/tzay [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533
       0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000
       1.000 0.750 0.500 0.250 0.000] def
/tzan [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533
       0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000
       1.000 0.750 0.500 0.250 0.000] def
/tza0 [0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000
       0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000
       0.000 0.000 0.000 0.000 0.000] def
/tza1 [1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000
       1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000
       1.000 1.000 1.000 1.000 1.000] def
%ENDE CMYKD
 
/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
 
/colrecfi %x y width heigth c m y n
  {setcmykcolor rec fill} bind def
 
/colrecst %x y width heigth c m y n
  {setcmykcolor rec stroke} bind def
 
/tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben
/tzl {1.0 0.0 1.0 0.0} bind def
/tzv {1.0 1.0 0.0 0.0} bind def
/tzc {1.0 0.0 0.0 0.0} bind def
/tzm {0.0 1.0 0.0 0.0} bind def
/tzy {0.0 0.0 1.0 0.0} bind def

/tzn {0.0 0.0 0.0 1.00} bind def %Graureihe
/tzd {0.0 0.0 0.0 0.75} bind def
/tzz {0.0 0.0 0.0 0.50} bind def
/tzh {0.0 0.0 0.0 0.25} bind def
/tzw {0.0 0.0 0.0 0.00} bind def

/tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben
/tzg {1.0 0.0 0.5 0.0} bind def
/tzb {1.0 0.5 0.0 0.0} bind def
/tzj {0.0 0.0 1.0 0.0} bind def

/tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut
/tzgz {1.0 0.0 0.5 0.5} bind def
/tzbz {1.0 0.5 0.0 0.5} bind def
/tzjz {0.0 0.0 1.0 0.5} bind def

/tfo {tzo setcmykcolor} bind def
/tfl {tzl setcmykcolor} bind def
/tfv {tzv setcmykcolor} bind def
/tfc {tzc setcmykcolor} bind def
/tfm {tzm setcmykcolor} bind def
/tfy {tzy setcmykcolor} bind def

/tfn {tzn setcmykcolor} bind def
/tfd {tzd setcmykcolor} bind def
/tfz {tzz setcmykcolor} bind def
/tfh {tzh setcmykcolor} bind def
/tfw {tzw setcmykcolor} bind def

/tfr {tzr setcmykcolor} bind def
/tfg {tzg setcmykcolor} bind def
/tfb {tzb setcmykcolor} bind def
/tfj {tzj setcmykcolor} bind def

/tfrz {tzrz setcmykcolor} bind def
/tfgz {tzgz setcmykcolor} bind def
/tfbz {tzbz setcmykcolor} bind def
/tfjz {tzjz setcmykcolor} bind def

%ANFA OUTLINO0 951204 
/pixf 1.0 def /ueg {1.6 pixf mul} bind def
/uek {0.8 pixf mul} bind def /ues {0.7 pixf mul} bind def
/pxd uek def /pyd uek def /pxwd ueg def /pywd ueg def
 
/outxshowf {show} bind def
 
/outxshow {show} bind def

/SK {250 16.67 div 1 sub pixf mul /Symbol FS} bind def
/SM {300 16.67 div 1 sub pixf mul /Symbol FS} bind def
/SG {350 16.67 div 1 sub pixf mul /Symbol FS} bind def

/outSK {250 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def
/outSM {300 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def
/outSG {350 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def
 
/outshowf {setcmykcolor show} bind def

/outrecfi { %x y width heigth c m y k
   setcmykcolor rec fill} bind def
 
/outrecfi4 { %x y width heigth c m y k
  outrecfi} bind def

/outrecfi3 { %x y width heigth c m y k
  outrecfi} bind def

/outrecfi2 { %x y width heigth c m y k
  outrecfi} bind def

/outlinetos { %px py c m y k
   setcmykcolor lineto stroke} bind def

/outstroke { %px1 py1 curveto ... curveto c m y k
   setcmykcolor stroke} bind def
            
%%EndProlog
gsave
 
%LANINDL0.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 eq {show} {pop} ifelse} bind def
/showes {3 lanind eq {show} {pop} ifelse} bind def
/showfr {2 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 ne {pop} if} bind def
/popes {3 lanind ne {pop} if} bind def
/popfr {2 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 3 lanind ne {n {pop} repeat} if} bind def
/popxfr {/n exch def 2 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
/xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def}
               {/xcolor1 0 def /xcolor2 0 def} ifelse
/xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def}
               {/xchart1 0 def /xchart2 0 def} ifelse
/lanind lanind1 def %no loops
/xcolor xcolor1 def
/xchart xchart1 def
%LANINDL0 END

/RK8   {8 /Times-Roman FS} bind def
/RIK8  {8 /Times-Italic FS} bind def
/RBK8  {8 /Times-Bold FS} bind def
/RBIK8 {8 /Times-BoldItalic FS} bind def

/TS8   {6 /Times-ISOL1 FS} bind def
/TK8   {8 /Times-ISOL1 FS} bind def
/TIK8  {8 /TimesI-ISOL1 FS} bind def
/TBK8  {8 /TimesB-ISOL1 FS} bind def
/TBIK8 {8 /TimesBI-ISOL1 FS} bind def

RK8 
72 83 moveto
%!2    (wrpos:Y11-7N.eps) show

TK8
(Bild D7: Landoltringe ) showde
RK8
(Picture D7: Landolt-rings ) showen
(Fig. D7: anillos de Landolt ) showes
(Fig. D7 : anneaux Landolt ) showfr
(Fig. D7: anelli di Landolt ) showit
(Figur D7: Landoltringer ) showjp

RBIK8
(W-V ) show
RK8
(und ) showde
(and ) showen
(y ) showes
(et ) showfr
(i ) showit
(og ) showjp

RBIK8
(W-N) show

TIK8
(; ) show

TIK8 (PS) show
RK8 (-) showde (Operator) showde
( operator:) showen
( operator:) showes
TK8
( op\351rateur :) showfr
( operator:) showit
( operator:) showjp

TIK8
( LAB* setcolor) show
TK8

72 90 translate

/pixf 16.67 def
0.1667 pixf div MM dup scale

15 setlinewidth

1 setgray
 0 0  moveto 11200 0 rlineto 0 4000 rlineto
            -11200 0 rlineto closepath fill

0 setgray
 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

/tzv4 64 array def
/tzn4 64 array def
/tza4 64 array def

 2 1 3 {/ncol exch def %V,N
0 1 15 {/j exch def

 [/CIEBasedABC <<    %Farbraum und Grenzen fuer D65
  /RangeABC [0 100 -128 127 -128 127]
  /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind]
  /MatrixABC [1 1 1 1 0 0 0 0 -1]
  /DecodeLMN
    [{dup 6 29 div ge {dup dup mul mul}
     {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind
     {dup 6 29 div ge {dup dup mul mul}
     {4 29 div sub 108 841 div mul} ifelse} bind
     {dup 6 29 div ge {dup dup mul mul}
     {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind]
    /WhitePoint  [0.9505 1 1.089]                %CIEXYZ fuer D65
 >>] setcolorspace

/ISYSLAB where {pop} {/ISYSLAB 0 def} ifelse
/ISYSTEM where {pop} {/ISYSTEM 0 def} ifelse

ISYSLAB 0 eq {0 ncol eq {/LABs0X [29.93  65.39  50.52] def} if %O
              1 ncol eq {/LABs0X [32.89 -62.83  34.96] def} if %L
              2 ncol eq {/LABs0X [ 7.71  31.10 -44.40] def} if %V
              3 ncol eq {/LABs0X [00.00   0.00   0.00] def} if %N
              /LABs0W [77.40   0.00   0.00] def %LABW100
              /L*NN 18.01 def /A*NN 0.5 def /B*NN -0.46 def
              /L*WW 95.41 def /A*WW -0.98 def /B*WW 4.76 def
             } if

ISYSLAB 1 eq {0 ncol eq {/LABs0X [50.49  76.92  64.55] def} if %O
              1 ncol eq {/LABs0X [83.62 -82.75  79.90] def} if %L
              2 ncol eq {/LABs0X [25.71  31.45 -44.29] def} if %V
              3 ncol eq {/LABs0X [00.00   0.00   0.00] def} if %N
              /LABs0W [95.40   0.00   0.00] def %LABW100
              /L*NN 18.00 def /A*NN 0.00 def /B*NN 0.00 def
              /L*WW 95.40 def /A*WW 0.00 def /B*WW 0.00 def
             } if

ISYSLAB 2 eq {0 ncol eq {/LABs0X [29.93  65.39  50.52] def} if %O
              1 ncol eq {/LABs0X [32.89 -62.83  34.96] def} if %L
              2 ncol eq {/LABs0X [ 7.71  31.10 -44.40] def} if %V
              3 ncol eq {/LABs0X [00.00   0.00   0.00] def} if %N
              /LABs0W [77.40   0.00   0.00] def %LABW100
              /L*NN 18.01 def /A*NN 0.5 def /B*NN -0.46 def
              /L*WW 95.41 def /A*WW -0.98 def /B*WW 4.76 def
             } if

ISYSLAB 3 eq {0 ncol eq {/LABs0X [34.99  71.79  50.18] def} if %O
              1 ncol eq {/LABs0X [66.29 -79.08  74.11] def} if %L
              2 ncol eq {/LABs0X [14.04  24.65 -37.54] def} if %V
              3 ncol eq {/LABs0X [00.00   0.00   0.00] def} if %N
              /LABs0W [77.70   0.00   0.00] def %LABW100
              /L*NN 17.70 def /A*NN 0.00 def /B*NN 0.00 def
              /L*WW 95.41 def /A*WW 0.00 def /B*WW 0.00 def
             } if
             
             /jmul j 15 div def
             /LSs0 LABs0X 0 get LABs0W 0 get LABs0X 0 get sub
             jmul mul add def
             /LS* LSs0 18.01 add def
             /l*CIE LS* L*NN sub L*WW L*NN sub 0.0001 add div def
             /ASs0 LABs0X 1 get LABs0W 1 get LABs0X 1 get sub
             jmul mul add def
             /AS* ASs0 A*NN A*WW A*NN sub l*CIE mul add add def
             /BSs0 LABs0X 2 get LABs0W 2 get LABs0X 2 get sub
             jmul mul add def
             /BS* BSs0 B*NN B*WW B*NN sub l*CIE mul add add def

ncol 2 eq {/j4 j 4 mul def
           tzv4 j4 LS* put 
           tzv4 j4 1 add AS* put
           tzv4 j4 2 add BS* put
          } if %O

ncol 3 eq {/j4 j 4 mul def
           tzn4 j4 LS* put
           tzn4 j4 1 add AS* put
           tzn4 j4 2 add BS* put
          } if %L

      } for %j=0,15
      } for %ncol=2,3


2 1 3 {/ncol exch def %=0,1,2,3 O,L,V,N

ncol 0 eq { %O
           /tza4 tzo4 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
           /tza4 tzl4 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
           /tza4 tzv4 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
           /tza4 tzn4 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

0 setgray
250 /Times-Roman FS
0 1 5 {/j exch def /iy0 500 j 600 mul add def
        5000 iy0 moveto nc j get show
       } for %j

[/CIEBasedABC <<    %Farbraum und Grenzen fuer D65
  /RangeABC [0 100 -128 127 -128 127]
  /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind]
  /MatrixABC [1 1 1 1 0 0 0 0 -1]
  /DecodeLMN
    [{dup 6 29 div ge {dup dup mul mul}
     {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind
     {dup 6 29 div ge {dup dup mul mul}
     {4 29 div sub 108 841 div mul} ifelse} bind
     {dup 6 29 div ge {dup dup mul mul}
     {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind]
    /WhitePoint  [0.9505 1 1.089]                %CIEXYZ fuer D65
 >>] setcolorspace
                    
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 /i4 i1 4 mul def
                  tza4 i4       get
                  tza4 i4 1 add get
                  tza4 i4 2 add get setcolor
        /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
                 /i4 i1 4 mul def
                  tza4 i4       get
                  tza4 i4 1 add get
                  tza4 i4 2 add get setcolor
         ix0 300 add iy0 300 add ar 2.5 mul 0 360 arc closepath fill
                 /i1 nl l get def /i4 i1 4 mul def
                  tza4 i4       get
                  tza4 i4 1 add get
                  tza4 i4 2 add get setcolor
         ix0 300 add iy0 300 add ar 1.5 mul 0 360 arc closepath fill
                 /i1 nl l get def /i4 i1 4 mul def
                  tza4 i4       get
                  tza4 i4 1 add get
                  tza4 i4 2 add get setcolor
         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

0 setgray
250 /Times-Roman FS
1500 50 moveto
(Landoltringe ) showde
250 /Times-ISOL1 FS
(Landolt-rings ) showen
(Anillos de Landolt ) showes
(Anneaux Landolt ) showfr
(Anelli di Landolt ) showit
(Landoltringer ) showjp

250 /Times-Italic FS
tef ncol get show
   5000 50 moveto (Code) show

xab 0 translate
50 0 translate

} for %ncol=0,1,2,3

grestore

showpage
%%Trailer