%!PS-Adobe-3.0 EPSF-3.0 www.ps.bam.de/DE21/10T/T10E00NG.PS 20010401 
%%BoundingBox: 10 08 828 584

/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: www.ps.bam.de/DE21/DM21.HTM)
  /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1)
  /Subject (goto: www.ps.bam.de or http://o2.ps.bam.de)
  /Keywords (image reproduction, colour devices)
  /Creator (klaus.richter@bam.de)
  /CreationDate (D:2001040112000)
  /ModDate (D:2001040112000)
/DOCINFO pdfmark

[ /View [ /Fit ]
/DOCVIEW pdfmark

%BEG DM00/OUTLIN10.PS NO Output Linearization Method (LM) LAB* -> cmyolvnw* 20020401
%END DM00/OUTLIN10.PS NO Output Linearisation Method (LM) LAB* -> cmyolvnw* 20020401

/BeginEPSF {            % def   % Prepare for EPS file
/b4_Inc_state save def          % Save state for cleanup
/dict_count countdictstack def
/op_count count 1 sub def       % Count objects on op stack
userdict begin                  % Make userdict current dict
/showpage {} def
0 setgray 0 setlinecap
1 setlinewidth 0 setlinejoin
10 setmiterlimit [] 0 setdash newpath
/languagelevel where            % If level not equal to 1 then
 {pop languagelevel where       % If level not equal to 1 then
 1 ne
 {false setstrokeadjust false setoverprint
 } if
} if
} bind def

/EndEPSF {	% def
 count op_count sub {pop} repeat
 countdictstack dict_count sub {end} repeat	% Clean up dict stack
 b4_Inc_state restore
} bind def
         
/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
 
/proz1 {pop} bind def /proz2 {sqrt} bind def
 
/setgc {pop pop pop 1 exch sub setgray} bind def
/setgm {pop pop 1 exch sub setgray pop} bind def
/setgy {pop 1 exch sub setgray pop pop} bind def
/setgn {1 exch sub setgray pop pop pop} bind def
/setgf {/ncolor exch def /ycolor exch def
        /mcolor exch def /ccolor exch def
        0 ccolor eq 0 mcolor eq and 0 ycolor eq and {1 ncolor sub setgray}
                    {1 ccolor sub 0.71 mul
                     1 mcolor sub 0.22 mul add
                     1 ycolor sub 0.07 mul add setgray} ifelse
       } bind def
 
/setsc {075 135 {proz1} setscreen } bind def
/setsm {075 090 {proz1} setscreen } bind def
/setsy {075 000 {proz1} setscreen } bind def
/setsn {075 045 {proz1} setscreen } bind def
 
/setsf {075 135 {proz1} 075 090 {proz1} 075 000 {proz1}
        075 045 {proz1} setcolorscreen } bind def
 
/setcmykcolorf {setcmykcolor setsf} bind def %fuer PSL1/2-Farbgeraet
 
%ANFA HALBTON
/Halbt {     %wrbie:HALBTOA0.eps
 } 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
 
%ANFA setcmyK
 
/setcmyknew { %Ersatz setcolornew durch setcmykcolor1
 ausz 1 eq {setgc half 0 eq {setsc} if} if                %C
 ausz 2 eq {setgm half 0 eq {setsm} if} if                %M
 ausz 3 eq {setgy half 0 eq {setsy} if} if                %Y
 ausz 4 eq {pop pop pop /ccolor exch def ccolor 0 0 0
            /setcmykcolor where       %Abfrage Farb-/SW-Geraet
             {pop setcmykcolorf}      %PSL1/2-Farb-Geraet
             {setgc setsc}                   %PSL1-SW-Geraet
             ifelse
           } if                                           %Cbunt
 ausz 5 eq {pop pop /mcolor exch def pop 0 mcolor 0 0
            /setcmykcolor where       %Abfrage Farb-/SW-Geraet
             {pop setcmykcolorf}      %PSL1/2-Farb-Geraet
             {setgm setsm}                   %PSL1-SW-Geraet
             ifelse
           } if                                           %Mbunt
 ausz 6 eq {pop /ycolor exch def pop pop 0 0 ycolor 0
            /setcmykcolor where       %Abfrage Farb-/SW-Geraet
             {pop setcmykcolorf}      %PSL1/2-Farb-Geraet
             {setgy setsy}                   %PSL1-SW-Geraet
             ifelse
           } if                                           %Ybunt
 ausz 7 eq {setgn half 0 eq {setsn} if} if                %N
 ausz 8 ge {
            /setcmykcolor where        %Abfrage Farb-/SW-Geraet
            {pop setcmykcolorf}       %PSL1/2-Farb-Geraet
            {setgf setsn}                     %PSL1-SW-Geraet
            ifelse
           } if %bei ausz=8: Farb- oder SW-Ausdruck je nach Drucker
 
 } 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
 
/colrecfi %x y width heigth c m y n
  {setcmyknew rec fill} bind def
 
/colrecst %x y width heigth c m y n
  {setcmyknew 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
/tza {1.0 1.0 1.0 1.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 setcmyknew} bind def
/tfl {tzl setcmyknew} bind def
/tfv {tzv setcmyknew} bind def
/tfc {tzc setcmyknew} bind def
/tfm {tzm setcmyknew} bind def
/tfy {tzy setcmyknew} bind def
/tfa {tzy setcmyknew} bind def

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

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

/tfrz {tzrz setcmyknew} bind def
/tfgz {tzgz setcmyknew} bind def
/tfbz {tzbz setcmyknew} bind def
/tfjz {tzjz setcmyknew} 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 {setcmyknew show} bind def

/outrecfi { %x y width heigth c m y k
   setcmyknew 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
   setcmyknew lineto stroke} bind def

/outstroke { %px1 py1 curveto ... curveto c m y k
   setcmyknew stroke} bind def
            
/A4quer {598 0 translate 90 rotate} def
%0
%1
/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

/tzank [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 

%%EndProlog


%%BeginPageSetup
/#copies 1 def
1.0 1.0 scale

/pgsave save def
%%EndPageSetup
0.5 MM 0.5 MM translate %Verschiebung nach oben und links fuer Belichter
gsave

/SS$ [(G) (E) (S) (F) (I) (J) (M)] def
/SC$ [(N) (F) (S) (D) (T) (E)] def
/SX$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)] def
/SY$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)] def
%      0           1           2           3           4           5
%      6           7         
/EX$ [(A.PS/.TXT) (B.PS/.BMP) (G.PS/.GIF) (H.PS/.HTM) (I.PS/.HTM) (J.PS/.JPE)
      (P.PS/.PDF) (T.PS/.TIF)] def  
/lanindg1 1 def /lanindg2 1 def
/colormg1 0 def /colormg2 0 def
/xcolorg1 0 def /xcolorg2 0 def
/xchartg1 0 def /xchartg2 0 def
/lanindg lanindg1 def %no loops
/colormg colormg1 def
/xcolorg xcolorg1 def
/xchartg xchartg1 def
/GSS$ SS$ lanindg get def
/GSC$ SC$ colormg get def
/GSX$ SX$ xcolorg get def
/GSY$ SY$ xchartg get def
/GEX$ EX$ 2 get def

gsave
BeginEPSF
 28 MM 197 MM translate
  10 /Times-ISOL1 FS 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 10

%line 329

%%EndDocument
EndEPSF grestore gsave
                    
BeginEPSF
 28 MM 153 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 11

%line 339

%%EndDocument
EndEPSF grestore gsave

BeginEPSF
 86 MM 153 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 12

%line 349

%%EndDocument
EndEPSF grestore gsave
                         
BeginEPSF
 28 MM 109 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 13

%line 359

%%EndDocument
EndEPSF grestore gsave
                         
BeginEPSF
 86 MM 109 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 10

%line 369

%%EndDocument
EndEPSF grestore gsave
                         
BeginEPSF
 28 MM 065 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 15

%line 379

%%EndDocument
EndEPSF grestore gsave

BeginEPSF
 86 MM 065 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 16

%line 389

%%EndDocument
EndEPSF grestore gsave
                         
BeginEPSF
 28 MM 021 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 17

%line 399

%%EndDocument
EndEPSF grestore gsave

BeginEPSF  86 MM 021 MM translate 12 /Times-ISOL1 FS -9 MM -7 MM  moveto
( ) show
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 18

%line 409

%%EndDocument
EndEPSF grestore gsave
                         
BeginEPSF
161 MM 197 MM translate
  10 /Times-ISOL1 FS  1 1 scale  -77 -91 translate
%%BeginDocument: Bild 12

%line 419

%%EndDocument
EndEPSF grestore gsave
                                        
BeginEPSF
161 MM 153 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 21

%line 429
%!PS-Adobe-3.0 EPSF-3.0 www.ps.bam.de/DE21/Y11-1N.eps 20010401
%%BoundingBox: 70 80 405 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-1N.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:2000010512000)
  /ModDate (D:2000010512000)
/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
 
/proz1 {pop} bind def /proz2 {sqrt} bind def
 
/setgc {pop pop pop 1 exch sub setgray} bind def
/setgm {pop pop 1 exch sub setgray pop} bind def
/setgy {pop 1 exch sub setgray pop pop} bind def
/setgn {1 exch sub setgray pop pop pop} bind def
/setgf {/ncolor exch def /ycolor exch def
        /mcolor exch def /ccolor exch def
        0 ccolor eq 0 mcolor eq and 0 ycolor eq and {1 ncolor sub setgray}
                    {1 ccolor sub 0.71 mul
                     1 mcolor sub 0.22 mul add
                     1 ycolor sub 0.07 mul add setgray} ifelse
       } bind def
 
/setsc {075 135 {proz1} setscreen } bind def
/setsm {075 090 {proz1} setscreen } bind def
/setsy {075 000 {proz1} setscreen } bind def
/setsn {075 045 {proz1} setscreen } bind def
 
/setsf {075 135 {proz1} 075 090 {proz1} 075 000 {proz1}
        075 045 {proz1} setcolorscreen } bind def
 
/setcmykcolorf {setcmykcolor setsf} bind def %fuer PSL1/2-Farbgeraet
 
%ANFA HALBTON
/Halbt {     %wrbie:HALBTOA0.eps
 } 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
 
%ANFA SETCMYK
 
/setcmyknew { %Ersatz setcolornew durch setcmykcolor1
 ausz 1 eq {setgc half 0 eq {setsc} if} if                %C
 ausz 2 eq {setgm half 0 eq {setsm} if} if                %M
 ausz 3 eq {setgy half 0 eq {setsy} if} if                %Y
 ausz 4 eq {pop pop pop /ccolor exch def ccolor 0 0 0
            /setcmykcolor where       %Abfrage Farb-/SW-Geraet
             {pop setcmykcolorf}      %PSL1/2-Farb-Geraet
             {setgc setsc}                   %PSL1-SW-Geraet
             ifelse
           } if                                           %Cbunt
 ausz 5 eq {pop pop /mcolor exch def pop 0 mcolor 0 0
            /setcmykcolor where       %Abfrage Farb-/SW-Geraet
             {pop setcmykcolorf}      %PSL1/2-Farb-Geraet
             {setgm setsm}                   %PSL1-SW-Geraet
             ifelse
           } if                                           %Mbunt
 ausz 6 eq {pop /ycolor exch def pop pop 0 0 ycolor 0
            /setcmykcolor where       %Abfrage Farb-/SW-Geraet
             {pop setcmykcolorf}      %PSL1/2-Farb-Geraet
             {setgy setsy}                   %PSL1-SW-Geraet
             ifelse
           } if                                           %Ybunt
 ausz 7 eq {setgn half 0 eq {setsn} if} if                %N
 ausz 8 ge {
            /setcmykcolor where        %Abfrage Farb-/SW-Geraet
            {pop setcmykcolorf}       %PSL1/2-Farb-Geraet
            {setgf setsn}                     %PSL1-SW-Geraet
            ifelse
           } if %bei ausz=8: Farb- oder SW-Ausdruck je nach Drucker
 
 } 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
 
/colrecfi %x y width heigth c m y n
  {setcmyknew rec fill} bind def
 
/colrecst %x y width heigth c m y n
  {setcmyknew 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 setcmyknew} bind def
/tfl {tzl setcmyknew} bind def
/tfv {tzv setcmyknew} bind def
/tfc {tzc setcmyknew} bind def
/tfm {tzm setcmyknew} bind def
/tfy {tzy setcmyknew} bind def

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

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

/tfrz {tzrz setcmyknew} bind def
/tfgz {tzgz setcmyknew} bind def
/tfbz {tzbz setcmyknew} bind def
/tfjz {tzjz setcmyknew} 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 {setcmyknew show} bind def

/outrecfi { %x y width heigth c m y k
   setcmyknew 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
   setcmyknew lineto stroke} bind def

/outstroke { %px1 py1 curveto ... curveto c m y k
   setcmyknew 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 {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
/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 {2 lanind ne {pop} if} bind def
/popfr {3 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 2 lanind ne {n {pop} repeat} if} bind def
/popxfr {/n exch def 3 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

 
8 /Times-Roman FS
72 83 moveto
%!2    (wrpos:Y11-1N.eps) show

8 /Times-ISOL1 FS
(Bild D4: 16 visuell gleichabst\344ndige Stufen der Farbreihen ) showde
(Picture D4: 16 visual equidistant steps of colour series ) showen

8 /Times-BoldItalic FS
(W-O, W-L, W-V ) show
8 /Times-Roman FS
(und ) showde
(and ) showen
8 /Times-BoldItalic FS
(W-N) show

8 /Times-ISOL1 FS
 
72 90 translate

/pixf 16.67 def 0.1667 pixf div MM 0.1667 pixf div MM scale

/ausz 8 def /half 0 def Halbt      %Farbauszug 1=C, 2=M, 3=Y, 7=N, 8=F

/setgc {setcmykcolor} bind def
/setgm {setcmykcolor} bind def
/setgy {setcmykcolor} bind def
/setgn {setcmykcolor} bind def
/setgf {setcmykcolor} bind def

15 setlinewidth

/tzo4 64 array def
/tzl4 64 array def
/tzv4 64 array def
/tzn4 64 array def
/tza4 64 array def

0 1 15 {/nfar exch def /nfar4 nfar 4 mul def
        tzo4 nfar4        0.0            put
        tzo4 nfar4 1 add  tzam nfar get  put
        tzo4 nfar4 2 add  tzay nfar get  put
        tzo4 nfar4 3 add  0.0            put

        tzl4 nfar4        tzac nfar get  put
        tzl4 nfar4 1 add  0.0            put
        tzl4 nfar4 2 add  tzay nfar get  put
        tzl4 nfar4 3 add  0.0            put
                                                 
        tzv4 nfar4        tzac nfar get  put
        tzv4 nfar4 1 add  tzam nfar get  put
        tzv4 nfar4 2 add  0.0  put
        tzv4 nfar4 3 add  0.0            put

        tzn4 nfar4        0.0            put
        tzn4 nfar4 1 add  0.0            put
        tzn4 nfar4 2 add  0.0            put
        tzn4 nfar4 3 add  tzan nfar get  put} for
                                                  
tfw
0 0  moveto 11200 0 rlineto 0 4000 rlineto
           -11200 0 rlineto closepath fill
                                      
tfn
0 0  moveto 11200 0 rlineto 0 4000 rlineto
           -11200 0 rlineto closepath stroke

/yab -850 def
000 3950 translate

/n* [(0) (1) (2) (3) (4) (5) (6) (7)
     (8) (9) (A) (B) (C) (D) (E) (F)] def

/tef [(O) (L) (V) (N)] def
/cola [tzo4 tzl4 tzv4 tzn4] def

tfn
0 1 16 {/j exch def /ix0 j 700 mul def /iy0 -850 def %j=0,16
        ix0 25 add iy0 3100 sub moveto
        000  4000 rlineto -50 000 rlineto
        000 -4000 rlineto closepath fill
       } for %j=0,16


0 1 3 {/ncol exch def %=0,3 für C, M, Y, N

0 ncol eq {/tza4 tzo4 def} if
1 ncol eq {/tza4 tzl4 def} if
2 ncol eq {/tza4 tzv4 def} if
3 ncol eq {/tza4 tzn4 def} if

0 yab translate

%0 1 01 {/l exch def
/l 0 def
0 1 15 {/j exch def /j4 15 j sub 4 mul def /ix0 j 700 mul def /iy0 0 def
        j 15 le { %16 Testfarben; Nr. 16 fuer weisse Linie
                  tza4 j4       get
                  tza4 j4 1 add get
                  tza4 j4 2 add get
                  tza4 j4 3 add get setcmyknew

        l 0 eq {/ixd 700 def /iyd 700 def %ixd,iyd
               ix0 iy0 moveto
               ixd 000 rlineto 000 iyd rlineto
               ixd neg 000 rlineto closepath fill
               } if %ixd,iyd

        } if

       } for %j
%       } for %l

tfn TBIG
11350 300 moveto tef ncol get show

tfn TBM
ncol 3 eq { %N
           0 1 15 {/j exch def /ix0 250 j 700 mul add def /iy0 -350 def
                   ix0 iy0  moveto n* j get show
                  } for %j
          } if %N

} for %ncol=0,1,2,3 für O, L, V, N

000 -550 translate

15 setlinewidth
tfn
0 0  moveto 11200 0 rlineto 0 4000 rlineto
           -11200 0 rlineto closepath stroke

showpage
%%Trailer

%%EndDocument
EndEPSF grestore gsave

BeginEPSF
219 MM 153 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 22

%line 439

%%EndDocument
EndEPSF grestore gsave
                         
BeginEPSF
161 MM 109 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 23

%line 449
%!PS-Adobe-3.0 EPSF-3.0 www.ps.bam.de/DE21/Y11-3N.eps 20010401
%%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-3N.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:2000010512000)
  /ModDate (D:2000010512000)
/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
 
/proz1 {pop} bind def /proz2 {sqrt} bind def
 
/setgc {pop pop pop 1 exch sub setgray} bind def
/setgm {pop pop 1 exch sub setgray pop} bind def
/setgy {pop 1 exch sub setgray pop pop} bind def
/setgn {1 exch sub setgray pop pop pop} bind def
/setgf {/ncolor exch def /ycolor exch def
        /mcolor exch def /ccolor exch def
        0 ccolor eq 0 mcolor eq and 0 ycolor eq and {1 ncolor sub setgray}
                    {1 ccolor sub 0.71 mul
                     1 mcolor sub 0.22 mul add
                     1 ycolor sub 0.07 mul add setgray} ifelse
       } bind def
 
/setsc {075 135 {proz1} setscreen } bind def
/setsm {075 090 {proz1} setscreen } bind def
/setsy {075 000 {proz1} setscreen } bind def
/setsn {075 045 {proz1} setscreen } bind def
 
/setsf {075 135 {proz1} 075 090 {proz1} 075 000 {proz1}
        075 045 {proz1} setcolorscreen } bind def
 
/setcmykcolorf {setcmykcolor setsf} bind def %fuer PSL1/2-Farbgeraet
 
%ANFA HALBTON
/Halbt {     %wrbie:HALBTOA0.eps
 } 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
 
%ANFA SETCMYK
 
/setcmyknew { %Ersatz setcolornew durch setcmykcolor1
 ausz 1 eq {setgc half 0 eq {setsc} if} if                %C
 ausz 2 eq {setgm half 0 eq {setsm} if} if                %M
 ausz 3 eq {setgy half 0 eq {setsy} if} if                %Y
 ausz 4 eq {pop pop pop /ccolor exch def ccolor 0 0 0
            /setcmykcolor where       %Abfrage Farb-/SW-Geraet
             {pop setcmykcolorf}      %PSL1/2-Farb-Geraet
             {setgc setsc}                   %PSL1-SW-Geraet
             ifelse
           } if                                           %Cbunt
 ausz 5 eq {pop pop /mcolor exch def pop 0 mcolor 0 0
            /setcmykcolor where       %Abfrage Farb-/SW-Geraet
             {pop setcmykcolorf}      %PSL1/2-Farb-Geraet
             {setgm setsm}                   %PSL1-SW-Geraet
             ifelse
           } if                                           %Mbunt
 ausz 6 eq {pop /ycolor exch def pop pop 0 0 ycolor 0
            /setcmykcolor where       %Abfrage Farb-/SW-Geraet
             {pop setcmykcolorf}      %PSL1/2-Farb-Geraet
             {setgy setsy}                   %PSL1-SW-Geraet
             ifelse
           } if                                           %Ybunt
 ausz 7 eq {setgn half 0 eq {setsn} if} if                %N
 ausz 8 ge {
            /setcmykcolor where        %Abfrage Farb-/SW-Geraet
            {pop setcmykcolorf}       %PSL1/2-Farb-Geraet
            {setgf setsn}                     %PSL1-SW-Geraet
            ifelse
           } if %bei ausz=8: Farb- oder SW-Ausdruck je nach Drucker
 
 } 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
 
/colrecfi %x y width heigth c m y n
  {setcmyknew rec fill} bind def
 
/colrecst %x y width heigth c m y n
  {setcmyknew 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
/tza {1.0 1.0 1.0 1.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 setcmyknew} bind def
/tfl {tzl setcmyknew} bind def
/tfv {tzv setcmyknew} bind def
/tfc {tzc setcmyknew} bind def
/tfm {tzm setcmyknew} bind def
/tfy {tzy setcmyknew} bind def
/tfa {tzy setcmyknew} bind def

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

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

/tfrz {tzrz setcmyknew} bind def
/tfgz {tzgz setcmyknew} bind def
/tfbz {tzbz setcmyknew} bind def
/tfjz {tzjz setcmyknew} 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 {setcmyknew show} bind def

/outrecfi { %x y width heigth c m y k
   setcmyknew 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
   setcmyknew lineto stroke} bind def

/outstroke { %px1 py1 curveto ... curveto c m y k
   setcmyknew stroke} bind def

/A4quer {595 0 translate 90 rotate} 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 {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
/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 {2 lanind ne {pop} if} bind def
/popfr {3 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 2 lanind ne {n {pop} repeat} if} bind def
/popxfr {/n exch def 3 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

 
8 /Times-Roman FS
72 83 moveto
%!2    (wrpos:Y11-3N.eps) show

8 /Times-ISOL1 FS
(Bild D5: Schrift und Landoltringe in vier Gr\366\337en ) showde
(Picture D5: Script and Landolt\255rings in four sizes ) showen
(und in Farben ) showde
(and in colours ) showen
8 /TimesI-ISOL1 FS
(N, O, L ) show
8 /Times-ISOL1 FS
(und ) showde
(and ) showen
8 /TimesI-ISOL1 FS
(V) show
8 /Times-ISOL1 FS
 
72 90 translate

/pixf 16.67 def 0.1667 pixf div MM 0.1667 pixf div MM scale

/ausz 8 def /half 0 def Halbt      %Farbauszug 1=C, 2=M, 3=Y, 7=N, 8=F

/setgc {setcmykcolor} bind def
/setgm {setcmykcolor} bind def
/setgy {setcmykcolor} bind def
/setgn {setcmykcolor} bind def
/setgf {setcmykcolor} bind def

15 setlinewidth

tfn
0 0  moveto 11200 0 rlineto 0 4000 rlineto
           -11200 0 rlineto closepath stroke

/na [(+-:.) (xyz;) (tuvw) (pqrs) (lmno) (hijk) (defg) (!abc)
     (lmno) (hijk) (defg) (!abc) (+-:.) (xyz;) (tuvw) (pqrs)
     (pqrs) (lmno) (hijk) (+-:.) (xyz;) (tuvw) (defg) (!abc)
     (tuvw) (pqrs) (lmno) (hijk) (+-:.) (!abc) (xyz;) (defg)] def

/ar 72 def
/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  1 2 5 8 4 3 6 7  5 3 2 8 7 6 1 4
     6 4 1 2 7 3 5 8  7 1 8 5 2 6 3 4  7 6 3 4 8 5 2 1  7 6 1 4 5 3 2 8
     4 3 2 8 7 1 5 6  2 1 4 6 8 5 3 7  8 2 7 1 4 5 3 6  6 7 8 2 5 3 1 4] def
/nf [(N) (O) (L) (V)] def
/ng [(10) (  8) (  6) (  4)] def
/mg -1 def
/xtrans [0 3500 3000 2500] def
/cola [{tfo} {tfl} {tfv} {tfc} {tfm} {tfy}] def

200 000 translate
/igroe -1 def 
10 -2 04 {/n exch def /mg mg 1 add def /igroe igroe 1 add def

/n480 40 n mul def
/n600 45 n mul def
/n300 25 n mul def
/n150 15 n mul def
/n360 30 n mul def
/nar   6 n mul def 
/n6000 480 n mul def
/n5000 400 n mul def

xtrans mg get 0 translate
/ix0 0 def
n480 /Times-Roman FS tfn
0 1 07 {/j exch def /iy0   3500 j n600 mul sub def
        ix0 100 add iy0 200 add moveto
        na j igroe 8 mul add get exec show
        j 7 eq { %Zusatz Schriftgroesse 10, 8, 6, 4
        ix0 100 add iy0 200 add n600 sub moveto
        ng mg get exec show} if
       } for

0 1 03 {/ncol exch def /ix0 n600 2 mul ncol n600 mul add def
        /iy0 3500 8 n600 mul sub

0 1 07 {/j exch def /iy0 3500 j n600 mul sub def
        /k ncol 8 mul j add igroe 32 mul add def
        n setlinewidth
        ncol 0 eq {tfn} {cola ncol 1 sub get exec} ifelse
        newpath nar setlinewidth
        ix0 300 add iy0 300 add nar 2.5 mul 0 360 arc closepath fill
        tfw
        ix0 300 add iy0 300 add nar 1.5 mul 0 360 arc closepath fill
        tfw
        ix0 300 add iy0 300 add moveto
        /m ak k get exec def
        m 1 eq {nar 2.6 mul             0
                rlineto closepath stroke} if %0
        m 2 eq {nar 2.6 mul 45 sin mul  nar 2.6 mul 45 cos mul
                rlineto closepath stroke} if %45
        m 3 eq {0                       nar 2.6 mul
                rlineto closepath stroke} if %90
        m 4 eq {nar 2.6 mul 135 sin mul  nar 2.6 mul 135 cos mul
                rlineto closepath stroke} if %135
        m 5 eq {nar 2.6 mul neg            0
                rlineto closepath stroke} if %0
        m 6 eq {nar 2.6 mul 235 sin mul  nar 2.6 mul 235 cos mul
                rlineto closepath stroke} if %45
        m 7 eq {0                        nar 2.6 mul neg
                rlineto closepath stroke} if %0
        m 8 eq {nar 2.6 mul 315 sin mul  nar 2.6 mul 315 cos mul
                rlineto closepath stroke} if %45

       } for %j acht Orientierungen

        tfn
        ix0 300 add n150 sub iy0 300 add n600 sub n150 sub moveto
        nf ncol get show
          
       } for %ncol=N,O,L,V

       } for %n vier Schrift-Groessen

showpage
%%Trailer

%%EndDocument
EndEPSF grestore gsave
                         
BeginEPSF
219 MM 109 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 24

%line 459

%%EndDocument
EndEPSF grestore gsave
                         
BeginEPSF
161 MM 065 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 25

%line 469
%!PS-Adobe-3.0 EPSF-3.0 www.ps.bam.de/DE21/Y11-5N.eps 20010401
%%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-5N.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:2000010512000)
  /ModDate (D:2000010512000)
/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
 
/proz1 {pop} bind def /proz2 {sqrt} bind def
 
/setgc {pop pop pop 1 exch sub setgray} bind def
/setgm {pop pop 1 exch sub setgray pop} bind def
/setgy {pop 1 exch sub setgray pop pop} bind def
/setgn {1 exch sub setgray pop pop pop} bind def
/setgf {/ncolor exch def /ycolor exch def
        /mcolor exch def /ccolor exch def
        0 ccolor eq 0 mcolor eq and 0 ycolor eq and {1 ncolor sub setgray}
                    {1 ccolor sub 0.71 mul
                     1 mcolor sub 0.22 mul add
                     1 ycolor sub 0.07 mul add setgray} ifelse
       } bind def
 
/setsc {075 135 {proz1} setscreen } bind def
/setsm {075 090 {proz1} setscreen } bind def
/setsy {075 000 {proz1} setscreen } bind def
/setsn {075 045 {proz1} setscreen } bind def
 
/setsf {075 135 {proz1} 075 090 {proz1} 075 000 {proz1}
        075 045 {proz1} setcolorscreen } bind def
 
/setcmykcolorf {setcmykcolor setsf} bind def %fuer PSL1/2-Farbgeraet
 
%ANFA HALBTON
/Halbt {     %wrbie:HALBTOA0.eps
 } 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
 
%ANFA SETCMYK
 
/setcmyknew { %Ersatz setcolornew durch setcmykcolor1
 ausz 1 eq {setgc half 0 eq {setsc} if} if                %C
 ausz 2 eq {setgm half 0 eq {setsm} if} if                %M
 ausz 3 eq {setgy half 0 eq {setsy} if} if                %Y
 ausz 4 eq {pop pop pop /ccolor exch def ccolor 0 0 0
            /setcmykcolor where       %Abfrage Farb-/SW-Geraet
             {pop setcmykcolorf}      %PSL1/2-Farb-Geraet
             {setgc setsc}                   %PSL1-SW-Geraet
             ifelse
           } if                                           %Cbunt
 ausz 5 eq {pop pop /mcolor exch def pop 0 mcolor 0 0
            /setcmykcolor where       %Abfrage Farb-/SW-Geraet
             {pop setcmykcolorf}      %PSL1/2-Farb-Geraet
             {setgm setsm}                   %PSL1-SW-Geraet
             ifelse
           } if                                           %Mbunt
 ausz 6 eq {pop /ycolor exch def pop pop 0 0 ycolor 0
            /setcmykcolor where       %Abfrage Farb-/SW-Geraet
             {pop setcmykcolorf}      %PSL1/2-Farb-Geraet
             {setgy setsy}                   %PSL1-SW-Geraet
             ifelse
           } if                                           %Ybunt
 ausz 7 eq {setgn half 0 eq {setsn} if} if                %N
 ausz 8 ge {
            /setcmykcolor where        %Abfrage Farb-/SW-Geraet
            {pop setcmykcolorf}       %PSL1/2-Farb-Geraet
            {setgf setsn}                     %PSL1-SW-Geraet
            ifelse
           } if %bei ausz=8: Farb- oder SW-Ausdruck je nach Drucker
 
 } 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
 
/colrecfi %x y width heigth c m y n
  {setcmyknew rec fill} bind def
 
/colrecst %x y width heigth c m y n
  {setcmyknew 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 setcmyknew} bind def
/tfl {tzl setcmyknew} bind def
/tfv {tzv setcmyknew} bind def
/tfc {tzc setcmyknew} bind def
/tfm {tzm setcmyknew} bind def
/tfy {tzy setcmyknew} bind def

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

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

/tfrz {tzrz setcmyknew} bind def
/tfgz {tzgz setcmyknew} bind def
/tfbz {tzbz setcmyknew} bind def
/tfjz {tzjz setcmyknew} 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 {setcmyknew show} bind def

/outrecfi { %x y width heigth c m y k
   setcmyknew 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
   setcmyknew lineto stroke} bind def

/outstroke { %px1 py1 curveto ... curveto c m y k
   setcmyknew 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 {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
/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 {2 lanind ne {pop} if} bind def
/popfr {3 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 2 lanind ne {n {pop} repeat} if} bind def
/popxfr {/n exch def 3 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

8 /Times-Roman FS
72 83 moveto
%!2    (wrpos:Y11-5N.eps) show

8 /Times-Roman FS
(Bild D6: Landoltringe ) showde
(Picture D6: Landolt-rings ) showen

8 /Times-BoldItalic FS
(W-O ) show
8 /Times-Roman FS
(und ) showde
(and ) showen
8 /Times-BoldItalic FS
(W-L) show

8 /Times-ISOL1 FS

72 90 translate

/pixf 16.67 def 0.1667 pixf div MM 0.1667 pixf div MM scale

/ausz 8 def /half 0 def Halbt      %Farbauszug 1=C, 2=M, 3=Y, 7=N, 8=F

/setgc {setcmykcolor} bind def
/setgm {setcmykcolor} bind def
/setgy {setcmykcolor} bind def
/setgn {setcmykcolor} bind def
/setgf {setcmykcolor} bind def

15 setlinewidth

/iz 18 def
/tfz {0.0 0.0 0.0 tzan iz get setcmyknew} bind def

/tzo4 64 array def
/tzl4 64 array def
/tzv4 64 array def
/tzn4 64 array def
/tza4 64 array def

0 1 15 {/nfar exch def /nfar4 nfar 4 mul def
        tzo4 nfar4        0.0            put
        tzo4 nfar4 1 add  tzam nfar get  put
        tzo4 nfar4 2 add  tzay nfar get  put
        tzo4 nfar4 3 add  0.0            put

        tzl4 nfar4        tzac nfar get  put
        tzl4 nfar4 1 add  0.0            put
        tzl4 nfar4 2 add  tzay nfar get  put
        tzl4 nfar4 3 add  0.0            put

        tzv4 nfar4        tzac nfar get  put
        tzv4 nfar4 1 add  tzam nfar get  put
        tzv4 nfar4 2 add  0.0  put
        tzv4 nfar4 3 add  0.0            put

        tzn4 nfar4        0.0            put
        tzn4 nfar4 1 add  0.0            put
        tzn4 nfar4 2 add  0.0            put
        tzn4 nfar4 3 add  tzan nfar get  put} for
tfw
 0 0  moveto 11200 0 rlineto 0 4000 rlineto
            -11200 0 rlineto closepath fill

tfn
 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
           /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

tfn
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

TK
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
                  tza4 i4 3 add get setcmyknew
        /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
                  tza4 i4 3 add get setcmyknew
         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
                  tza4 i4 3 add get setcmyknew
         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
                  tza4 i4 3 add get setcmyknew
         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

tfn
250 /Times-Roman FS
1500 50 moveto
(Landoltringe ) showde
(Landolt-rings ) showen

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

%%EndDocument
EndEPSF grestore gsave

BeginEPSF
219 MM 065 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 26

%line 479

%%EndDocument
EndEPSF grestore gsave
                         
BeginEPSF
161 MM 021 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 27

%line 489
%!PS-Adobe-3.0 EPSF-3.0 www.ps.bam.de/DE21/Y11-7N.eps 20010401
%%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:2000010512000)
  /ModDate (D:2000010512000)
/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
 
/proz1 {pop} bind def /proz2 {sqrt} bind def
 
/setgc {pop pop pop 1 exch sub setgray} bind def
/setgm {pop pop 1 exch sub setgray pop} bind def
/setgy {pop 1 exch sub setgray pop pop} bind def
/setgn {1 exch sub setgray pop pop pop} bind def
/setgf {/ncolor exch def /ycolor exch def
        /mcolor exch def /ccolor exch def
        0 ccolor eq 0 mcolor eq and 0 ycolor eq and {1 ncolor sub setgray}
                    {1 ccolor sub 0.71 mul
                     1 mcolor sub 0.22 mul add
                     1 ycolor sub 0.07 mul add setgray} ifelse
       } bind def
 
/setsc {075 135 {proz1} setscreen } bind def
/setsm {075 090 {proz1} setscreen } bind def
/setsy {075 000 {proz1} setscreen } bind def
/setsn {075 045 {proz1} setscreen } bind def
 
/setsf {075 135 {proz1} 075 090 {proz1} 075 000 {proz1}
        075 045 {proz1} setcolorscreen } bind def
 
/setcmykcolorf {setcmykcolor setsf} bind def %fuer PSL1/2-Farbgeraet
 
%ANFA HALBTON
/Halbt {     %wrbie:HALBTOA0.eps
 } 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
 
%ANFA SETCMYK
 
/setcmyknew { %Ersatz setcolornew durch setcmykcolor1
 ausz 1 eq {setgc half 0 eq {setsc} if} if                %C
 ausz 2 eq {setgm half 0 eq {setsm} if} if                %M
 ausz 3 eq {setgy half 0 eq {setsy} if} if                %Y
 ausz 4 eq {pop pop pop /ccolor exch def ccolor 0 0 0
            /setcmykcolor where       %Abfrage Farb-/SW-Geraet
             {pop setcmykcolorf}      %PSL1/2-Farb-Geraet
             {setgc setsc}                   %PSL1-SW-Geraet
             ifelse
           } if                                           %Cbunt
 ausz 5 eq {pop pop /mcolor exch def pop 0 mcolor 0 0
            /setcmykcolor where       %Abfrage Farb-/SW-Geraet
             {pop setcmykcolorf}      %PSL1/2-Farb-Geraet
             {setgm setsm}                   %PSL1-SW-Geraet
             ifelse
           } if                                           %Mbunt
 ausz 6 eq {pop /ycolor exch def pop pop 0 0 ycolor 0
            /setcmykcolor where       %Abfrage Farb-/SW-Geraet
             {pop setcmykcolorf}      %PSL1/2-Farb-Geraet
             {setgy setsy}                   %PSL1-SW-Geraet
             ifelse
           } if                                           %Ybunt
 ausz 7 eq {setgn half 0 eq {setsn} if} if                %N
 ausz 8 ge {
            /setcmykcolor where        %Abfrage Farb-/SW-Geraet
            {pop setcmykcolorf}       %PSL1/2-Farb-Geraet
            {setgf setsn}                     %PSL1-SW-Geraet
            ifelse
           } if %bei ausz=8: Farb- oder SW-Ausdruck je nach Drucker
 
 } 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
 
/colrecfi %x y width heigth c m y n
  {setcmyknew rec fill} bind def
 
/colrecst %x y width heigth c m y n
  {setcmyknew 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 setcmyknew} bind def
/tfl {tzl setcmyknew} bind def
/tfv {tzv setcmyknew} bind def
/tfc {tzc setcmyknew} bind def
/tfm {tzm setcmyknew} bind def
/tfy {tzy setcmyknew} bind def

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

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

/tfrz {tzrz setcmyknew} bind def
/tfgz {tzgz setcmyknew} bind def
/tfbz {tzbz setcmyknew} bind def
/tfjz {tzjz setcmyknew} 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 {setcmyknew show} bind def

/outrecfi { %x y width heigth c m y k
   setcmyknew 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
   setcmyknew lineto stroke} bind def

/outstroke { %px1 py1 curveto ... curveto c m y k
   setcmyknew 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 {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
/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 {2 lanind ne {pop} if} bind def
/popfr {3 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 2 lanind ne {n {pop} repeat} if} bind def
/popxfr {/n exch def 3 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

8 /Times-Roman FS
72 83 moveto
%!2    (wrpos:Y11-7N.eps) show

8 /Times-Roman FS
(Bild D7: Landoltringe ) showde
(Picture D7: Landolt-rings ) showen

8 /Times-BoldItalic FS
(W-V ) show
8 /Times-ISOL1 FS
(und ) showde
(and ) showen
8 /Times-BoldItalic FS
(W-N) show

8 /Times-ISOL1 FS

72 90 translate

/pixf 16.67 def 0.1667 pixf div MM 0.1667 pixf div MM scale

/ausz 8 def /half 0 def Halbt      %Farbauszug 1=C, 2=M, 3=Y, 7=N, 8=F

/setgc {setcmykcolor} bind def
/setgm {setcmykcolor} bind def
/setgy {setcmykcolor} bind def
/setgn {setcmykcolor} bind def
/setgf {setcmykcolor} bind def

15 setlinewidth

/iz 18 def
/tfz {0.0 0.0 0.0 tzan iz get setcmyknew} bind def

/tzo4 64 array def
/tzl4 64 array def
/tzv4 64 array def
/tzn4 64 array def
/tza4 64 array def

0 1 15 {/nfar exch def /nfar4 nfar 4 mul def
        tzo4 nfar4        0.0            put
        tzo4 nfar4 1 add  tzam nfar get  put
        tzo4 nfar4 2 add  tzay nfar get  put
        tzo4 nfar4 3 add  0.0            put

        tzl4 nfar4        tzac nfar get  put
        tzl4 nfar4 1 add  0.0            put
        tzl4 nfar4 2 add  tzay nfar get  put
        tzl4 nfar4 3 add  0.0            put

        tzv4 nfar4        tzac nfar get  put
        tzv4 nfar4 1 add  tzam nfar get  put
        tzv4 nfar4 2 add  0.0  put
        tzv4 nfar4 3 add  0.0            put

        tzn4 nfar4        0.0            put
        tzn4 nfar4 1 add  0.0            put
        tzn4 nfar4 2 add  0.0            put
        tzn4 nfar4 3 add  tzan nfar get  put} for
tfw
 0 0  moveto 11200 0 rlineto 0 4000 rlineto
            -11200 0 rlineto closepath fill

tfn
 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

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

tfn
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

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
                  tza4 i4 3 add get setcmyknew
        /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
                  tza4 i4 3 add get setcmyknew
         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
                  tza4 i4 3 add get setcmyknew
         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
                  tza4 i4 3 add get setcmyknew
         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

tfn
250 /Times-Roman FS
1500 50 moveto
(Landoltringe ) showde
(Landolt-rings ) showen

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

%%EndDocument
EndEPSF grestore gsave

BeginEPSF
219 MM 021 MM translate 12 /Times-ISOL1 FS -9 MM -7 MM  moveto ( ) show
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 28

%line 499

%%EndDocument
EndEPSF grestore gsave

BeginEPSF
219 MM 080 MM add 008 MM translate %80 MM Breite von TestStreifen
  10 /Times-ISOL1 FS  53 MM 1 MM moveto () show 1 1 scale -77 21 MM sub -91 translate
%%BeginDocument: Bild 29 Teststreifen Ueberlaenge

%line 509

%%EndDocument
EndEPSF grestore gsave

BeginEPSF
-0.5 MM -0.5 MM translate %xy-Verschiebung Rechteckrahmen nach innen%

%%BeginDocument: Bild 30 %Rechteckrahmen

%line 519
%!PS-Adobe-3.0 EPSF-3.0 Frame arround with Internet text DM21 20010401
%%BoundingBox: 0 0 598 845

%Special !!

/setgc {setcmykcolor} bind def
/setgm {setcmykcolor} bind def
/setgy {setcmykcolor} bind def
/setgn {setcmykcolor} bind def
/setgf {setcmykcolor} bind def

%ANFA setcmyK
 
/setcmyknew { %Ersatz setcolornew durch setcmykcolor1
 ausz 1 eq {setgc half 0 eq {setsc} if} if                %C
 ausz 2 eq {setgm half 0 eq {setsm} if} if                %M
 ausz 3 eq {setgy half 0 eq {setsy} if} if                %Y
 ausz 4 eq {pop pop pop /ccolor exch def ccolor 0 0 0
            /setcmykcolor where       %Abfrage Farb-/SW-Geraet
             {pop setcmykcolorf}      %PSL1/2-Farb-Geraet
             {setgc setsc}                   %PSL1-SW-Geraet
             ifelse
           } if                                           %Cbunt
 ausz 5 eq {pop pop /mcolor exch def pop 0 mcolor 0 0
            /setcmykcolor where       %Abfrage Farb-/SW-Geraet
             {pop setcmykcolorf}      %PSL1/2-Farb-Geraet
             {setgm setsm}                   %PSL1-SW-Geraet
             ifelse
           } if                                           %Mbunt
 ausz 6 eq {pop /ycolor exch def pop pop 0 0 ycolor 0
            /setcmykcolor where       %Abfrage Farb-/SW-Geraet
             {pop setcmykcolorf}      %PSL1/2-Farb-Geraet
             {setgy setsy}                   %PSL1-SW-Geraet
             ifelse
           } if                                           %Ybunt
 ausz 7 eq {setgn half 0 eq {setsn} if} if                %N
 ausz 8 ge {
            /setcmykcolor where        %Abfrage Farb-/SW-Geraet
            {pop setcmykcolorf}       %PSL1/2-Farb-Geraet
            {setgf setsn}                     %PSL1-SW-Geraet
            ifelse
           } if %bei ausz=8: Farb- oder SW-Ausdruck je nach Drucker
 
 } bind def


%%EndProlog
gsave

/lanind 1 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
/showm {6 lanind eq {show} {pop} ifelse} bind def
/lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def}
               {/lanind1 1 def /lanind2 1 def} ifelse
/colormg where {pop /colorm1 colormg def /colorm2 colormg def}
               {/colorm1 0 def /colorm2 0 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
lanind1 1 lanind2 {/lanind exch def %output showpage
colorm1 1 colorm2 {/colorm exch def %output showpage
xcolor1 1 xcolor2 {/xcolor exch def %output showpage
xchart1 1 xchart2 {/xchart exch def %output showpage

/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

gsave

/ausz 7 def /half 3 def Halbt

0 setgray

1.0 1.0  scale

0.5 MM 0.5 MM translate

0.15 MM setlinewidth

/x 20 array def
/y 20 array def
/d 20 array def

/x [000 296 296 000  002 294 294 002  004 292 292 004
    006 290 290 006  008 288 288 008 ] def
/y [000 000 210 210  002 002 208 208  004 004 206 206
    006 006 204 204  008 008 202 202 ] def 
/d [060 017 -60 -17  058 015 -58 -15  056 013 -56 -13
    054 011 -54 -11  052 009 -52 -09 ] def

/xlu 017 MM def /ylu 017 MM def
/xro 279 MM def /yro 193 MM def
/xlo 017 MM def /ylo 193 MM def
/xru 279 MM def /yru 017 MM def

xlu 8 MM sub ylu moveto  16 MM 0 rlineto stroke
xlu ylu 8 MM sub moveto 0  58 MM rlineto stroke
xro 8 MM add yro moveto -58 MM 0 rlineto stroke
xro yro 8 MM add moveto 0 -58 MM rlineto stroke

xru 8 MM sub yru moveto  16 MM 0 rlineto stroke
xru yru 8 MM sub moveto 0  16 MM rlineto stroke
xlo 8 MM add ylo moveto -16 MM 0 rlineto stroke
xlo ylo 8 MM add moveto 0 -16 MM rlineto stroke

1 2 7 {/i exch def %Zentrierkreise
xlu ylu i MM 0 360 arc stroke
xro yro i MM 0 360 arc stroke
xru yru i MM 0 360 arc stroke
xlo ylo i MM 0 360 arc stroke
      } for %i

12 4 16 {/i exch def /i0 i def %i=0,16
%0 4 16 {/i exch def /i0 i def %i=0,16
        /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def

i 16 eq {0.30 MM setlinewidth} {0.15 MM setlinewidth} ifelse

0 setgray        
x i0 get MM y i0 get MM moveto x i1 get MM y i1 get MM lineto
x i2 get MM y i2 get MM lineto x i3 get MM y i3 get MM lineto
x i0 get MM y i0 get MM lineto stroke

i 16 eq {6 /Times-ISOL1 FS
         /x00 67 def /xdif 32 def /y0o 202.3 def /y0u 6.3 def  
         /x0l 6.1 def /x0r 288 def /y00 22 def /ydif 32 def
         x00 xdif 0 mul add MM y0o MM moveto (V) show
         x00 xdif 0 mul add MM y0u MM moveto (C) show
         x00 xdif 1 mul add MM y0o MM moveto (L) show
         x00 xdif 1 mul add MM y0u MM moveto (M) show
         x00 xdif 2 mul add MM y0o MM moveto (O) show
         x00 xdif 2 mul add MM y0u MM moveto (Y) show
         x00 xdif 3 mul add MM y0o MM moveto (Y) show
         x00 xdif 3 mul add MM y0u MM moveto (O) show
         x00 xdif 4 mul add MM y0o MM moveto (M) show
         x00 xdif 4 mul add MM y0u MM moveto (L) show
         x00 xdif 5 mul add MM y0o MM moveto (C) show
         x00 xdif 5 mul add MM y0u MM moveto (V) show

         x0l MM y00 ydif 0 mul add MM moveto (V) show
         x0r MM y00 ydif 0 mul add MM moveto (C) show
         x0l MM y00 ydif 1 mul add MM moveto (L) show
         x0r MM y00 ydif 1 mul add MM moveto (M) show
         x0l MM y00 ydif 2 mul add MM moveto (O) show
         x0r MM y00 ydif 2 mul add MM moveto (Y) show
         x0l MM y00 ydif 3 mul add MM moveto (Y) show
         x0r MM y00 ydif 3 mul add MM moveto (O) show
         x0l MM y00 ydif 4 mul add MM moveto (M) show
         x0r MM y00 ydif 4 mul add MM moveto (L) show
         x0l MM y00 ydif 5 mul add MM moveto (C) show
         x0r MM y00 ydif 5 mul add MM moveto (V) show
        } if

       } for %i=0,16

0 1 10 {/j0 exch def /j1 j0 1 add def %j0
 
         j0 0 eq {tfc} if
         j0 1 eq {tfn} if
         j0 2 eq {tfm} if
         j0 3 eq {tfn} if
         j0 4 eq {tfy} if
         j0 5 eq {tfn} if
         j0 6 eq {tfo} if
         j0 7 eq {tfn} if
         j0 8 eq {tfl} if
         j0 9 eq {tfn} if
         j0 10 eq {tfv} if

12 4 16 {/i exch def /i0 i def %i=0,16
%0 4 16 {/i exch def /i0 i def %i=0,16
        /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def

i 16 eq {0.30 MM setlinewidth} {0.15 MM setlinewidth} ifelse         

x i0 get d i0 get add 16 j0 mul add MM y i0 get MM moveto
x i0 get d i0 get add 16 j1 mul add MM y i0 get MM lineto stroke

x i1 get MM y i1 get d i1 get add 16 j0 mul add MM moveto
x i1 get MM y i1 get d i1 get add 16 j1 mul add MM lineto stroke

x i2 get d i2 get add 16 j0 mul sub MM y i2 get MM moveto
x i2 get d i2 get add 16 j1 mul sub MM y i2 get MM lineto stroke

x i3 get MM y i3 get d i3 get add 16 j0 mul sub MM moveto
x i3 get MM y i3 get d i3 get add 16 j1 mul sub MM lineto stroke

       } for %i=0,16

       } for %j0

0.15 MM setlinewidth
/s 7 MM def /s1 8 MM def /s5 36 MM def
16 1 20 {/j exch def /j0 j 16 sub def
         /ix0 xlu  8 MM add j0 7 MM mul add def /iy0 ylu 8 MM sub def
j 16 eq {ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 
         0.0 0.0 tzan j get 0.0 outrecfi} if
         ix0 iy0 s s 0.0 0.0 tzan j get 0.0 outrecfi

         /ix0 xru 43 MM sub j0 7 MM mul add def /iy0 yru 8 MM sub def
j 16 eq {ix0 0.5 MM sub iy0 0.5 MM sub s5 s1
         0.0 0.0 0.0 tzan j get outrecfi} if
         ix0 iy0 s s 0.0 0.0 0.0 tzan j get outrecfi

         /ix0 xlo  8 MM add j0 7 MM mul add def /iy0 ylo 1 MM add def
j 16 eq {ix0 0.5 MM sub iy0 0.5 MM sub s5 s1
         tzan j get 0.0 0.0 0.0 outrecfi} if
         ix0 iy0 s s tzan j get 0.0 0.0 0.0 outrecfi

         /ix0 xro 43 MM sub j0 7 MM mul add def /iy0 yro 1 MM add def
j 16 eq {ix0 0.5 MM sub iy0 0.5 MM sub s5 s1
         0.0 tzan j get 0.0 0.0 outrecfi} if
         ix0 iy0 s s 0.0 tzan j get 0.0 0.0 outrecfi
%j 20 eq {tfn ix0 s add iy0 moveto 0 s rlineto stroke} if
        } for %j
                           
0 setgray
018 MM 008.2 MM moveto 6 /Times-Roman FS (-8) show
018 MM 006.2 MM moveto 6 /Times-Roman FS (-6) show

276 MM 008.2 MM moveto 6 /Times-Roman FS (-8) show
276 MM 006.2 MM moveto 6 /Times-Roman FS (-6) show

018 MM 202.2 MM moveto 6 /Times-Roman FS (-8) show
018 MM 204.2 MM moveto 6 /Times-Roman FS (-6) show

276 MM 202.2 MM moveto 6 /Times-Roman FS (-8) show
276 MM 204.2 MM moveto 6 /Times-Roman FS (-6) show

0 setgray
12 /Times-ISOL1 FS
 61 MM 12 MM  moveto
(Ausgabe\255Linearisierung von 16 Farbstufen nach) showde
(Output linearization of 16 colour steps according to) showen
(Output linearization of 16 colour steps according to) showes
(Output linearization of 16 colour steps according to) showfr
(Output linearization of 16 colour steps according to) showit
(Output linearization of 16 colour steps according to) showjp
(Output linearization of 16 colour steps according to) showm

( ISO/IEC 15775; PS operator cmyn* setcmykcolor) show

 62 MM 198.5 MM  moveto
(www.ps.bam.de/D) show LSS$ show (21/10T/T10) show
LSS$ show LSX$ show LSY$ show
LSC$ show LEX$ show (; ) show

LSC$ (N) eq {
(Start Ausgabe ohne Linearisierungs\255Methode) showde
(start output with no LM) showen
(start output with no LM) showes
(start output with no LM) showfr
(start output with no LM) showit
(start output with no LM) showjp
(start output with no LM) showm
           } %start output
           { %Linearized output
(Linearisierte Ausgabe mit globalem LM) showde
(Linearized output with global LM) showen
(Linearized output with global LM) showes
(Linearized output with global LM) showfr
(Linearized output with global LM) showit
(Linearized output with global LM) showjp
(Linearized output with global LM) showm
           } ifelse %Linearized output
 
LSC$ (T) eq LSC$ (E) eq or {(; Simulation:) show } if

 62 MM 193.5 MM  moveto
LSC$ (N) eq {
(N: Keine Linearisierungs\255Daten in Datei (F), Startup (S), Ger\344t (D)) showde
(N: No Linearization Method (LM) data in File (F), Startup (S) or Device (D)) showen
(N: No Linearization Method (LM) data in File (F), Startup (S) or Device (D)) showes
(N: No Linearization Method (LM) data in File (F), Startup (S) or Device (D)) showfr
(N: No Linearization Method (LM) data in File (F), Startup (S) or Device (D)) showit
(N: No Linearization Method (LM) data in File (F), Startup (S) or Device (D)) showjp
(N: No Linearization Method (LM) data in File (F), Startup (S) or Device (D)) showm
           }
           {LSC$ show (: ) show
(Linearisierungs\255Daten (CM\255Daten) ) showde
(Linearization Method (LM) data ) showen
(Linearization Method (LM) data ) showes
(Linearization Method (LM) data ) showfr
(Linearization Method (LM) data ) showit
(Linearization Method (LM) data ) showjp
(Linearization Method (LM) data ) showm
(D) show LSS$ show (14/10T/OUTLIN) show LSC$ show LEX$ show 
          } ifelse
LSC$ (F) eq {
( in der Datei (F)) showde
( in File (F)) showen
( in File (F)) showes
( in File (F)) showfr
( in File (F)) showit
( in File (F)) showjp
( in File (F)) showm
           } if
LSC$ (S) eq {
( im Distiller Startup (S) Directory) showde
( in Distiller Startup (S) Directory) showen
( in Distiller Startup (S) Directory) showes
( in Distiller Startup (S) Directory) showfr
( in Distiller Startup (S) Directory) showit
( in Distiller Startup (S) Directory) showjp
( in Distiller Startup (S) Directory) showm
           } if
LSC$ (D) eq {
( in PostScript Device (D)) showde
( in PostScript Device (D)) showen
( in PostScript Device (D)) showes
( in PostScript Device (D)) showfr
( in PostScript Device (D)) showit
( in PostScript Device (D)) showjp
( in PostScript Device (D)) showm
           } if
LSC$ (T) eq {
( von Distiller Startup (S) Directory) showde
( of Distiller Startup (S) Directory) showen
( of Distiller Startup (S) Directory) showes
( of Distiller Startup (S) Directory) showfr
( of Distiller Startup (S) Directory) showit
( of Distiller Startup (S) Directory) showjp
( of Distiller Startup (S) Directory) showm
           } if
LSC$ (E) eq {
( von PostScript Device (D)) showde
( of PostScript Device (D)) showen
( of PostScript Device (D)) showes
( of PostScript Device (D)) showfr
( of PostScript Device (D)) showit
( of PostScript Device (D)) showjp
( of PostScript Device (D)) showm
           } if

 12 MM 185 MM moveto
-90 rotate
(Technische Informationen: ) showde
(Technical information: ) showen
(Informaci\363n t\351cnica en: ) showes
(Technical information: ) showfr
(Technical information: ) showit
(Technical information: ) showjp
(Technical information: ) showm
(http://o2.ps.bam.de) show
 90 rotate

 12 MM 103 MM moveto
-90 rotate
(Bilddatei\255Version 1.4, 20010401\255DE21) showde
(Image file version 1.4, 20010401\255DE21) showen
(Image file version 1.4, 20010401\255DE21) showes
(Image file version 1.4, 20010401\255DE21) showfr
(Image file version 1.4, 20010401\255DE21) showit
(Image file version 1.4, 20010401\255DE21) showjp
(Image file version 1.4, 20010401\255DE21) showm
 90 rotate


281 MM 185 MM moveto
-90 rotate
(BAM\255Registrierung: 20010401\255DE21/10T/T10) showde
(BAM registration: 20010401\255DE21/10T/T10) showen
(BAM registration: 20010401\255DE21/10T/T10) showes
(BAM registration: 20010401\255DE21/10T/T10) showfr
(BAM registration: 20010401\255DE21/10T/T10) showit
(BAM registration: 20010401\255DE21/10T/T10) showjp
(BAM registration: 20010401\255DE21/10T/T10) showm
LSS$ show LSX$ show LSY$ show
LSC$ show LEX$ show
90 rotate

281 MM 74 MM moveto
-90 rotate
(BAM\255Material: Code=rha4ra) showde
(BAM material: code=rha4ra) showen
(BAM material: code=rha4ra) showes
(BAM material: code=rha4ra) showfr
(BAM material: code=rha4ra) showit
(BAM material: code=rha4ra) showjp
(BAM material: code=rha4ra) showm
90 rotate

showpage
grestore

} for %output with xchart end
} for %output with colorm end
} for %output with xcolor end
} for %output with langind end

%%Trailer

%%EndDocument
EndEPSF grestore gsave
                                                        
showpage
grestore

%%Trailer