%!PS-Adobe-3.0 EPSF-3.0 www.ps.bam.de/DE49/10F/F49E00NA.PS 20011015 
%%BoundingBox: 14 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/DE49/DE49.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:2001101512000)
  /ModDate (D:2001101512000)
/DOCINFO pdfmark

[ /View [ /Fit ]
/DOCVIEW pdfmark

%BEG DM00/OUTLIN10.PS NO Output Linearization (OL) LAB* -> cmyolvnw* 20010901

%FILE PREPARED FOR MIXED MODE, e. g. input ORS and OUTPUT TLS
/ISYSLAB 0 def /i*p7 0 def %default transfer to setcmykcolor
/ISYSTEM 0 def %/i*p7 7 def %transfer to setgray

%/ISYSLAB 0 def %default input  for Offset Reflective System (ORS)
%/ISYSTEM 0 def %default output for Offset Reflective System (ORS)

%/ISYSLAB 1 def %input  for Television Luminous System (TLS)
%/ISYSTEM 1 def %output for Television Luminous System (TLS)

%/ISYSLAB 2 def %input  for Device Reflective measurement system (DRS)
%/ISYSTEM 2 def %output for Device Reflective measurement system (DRS)

%/ISYSLAB 3 def %input  for Television Luminous Reflection System (TLR)
%/ISYSTEM 3 def %output for Television Luminous Reflection System (TLR)

%/ISYSLAB 4 def %input  for Device Luminous measurement system (DLS)
%/ISYSTEM 4 def %output for Device Luminous measurement system (DLS)

%END DM00/OUTLIN10.PS NO Output Linearisation (OL) LAB* -> cmyolvnw* 20010901

/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
 
%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
/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 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
/tfa {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
            
/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 

%BEG 61 lines comment or new PS operators possible
%02
%03
%04
%05
%06
%07
%08
%09

%11
%12
%13
%14
%15
%16
%17
%18
%19

%21
%22
%23
%24
%25
%26
%27
%28
%29

%31
%32
%33
%34
%35
%36
%37
%38
%39

%41
%42
%43
%44
%45
%46
%47
%48
%49

%51
%52
%53
%54
%55
%56
%57
%58
%59

%END 61 lines comment or new PS operators possible

%%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) (C)] 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            8         
/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$ 0 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 1.5 sub MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 13

%line 359
%!PS-Adobe-3.0 EPSF-3.0 www.ps.bam.de/DE49/F10-3N.eps 20010915
%%BoundingBox: 50 80 780 320
 
%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: F10-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:2001091512000)
  /ModDate (D:2001091512000)
/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

%BEG CM_S0LCMYS.DAT Linearization Method (LM) LOCAL (L) cmyolvnw*S DATA 20020401
%CMYOLVNW4DL.PS 4dimensional series
%INCLUDES STANDARD (S) relative series a: cmyn-w and b: olv(cmy)-w

/tzaccmyw0l 64 array def
/tzamcmyw0l 64 array def
/tzaycmyw0l 64 array def
/tzancmyw0l 64 array def
 
/tzbocmyw0l 64 array def
/tzblcmyw0l 64 array def
/tzbvcmyw0l 64 array def
/tzbncmyw0l 64 array def
 
/tzaccmyw0l [ %Ccmyw0l01.dat
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
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 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 0.000 0.000 0.000 0.000 0.000 0.000
] def
/tzamcmyw0l [ %Mcmyw0l01.dat
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
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
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 0.000 0.000 0.000
0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000
] def
/tzaycmyw0l [ %Ycmyw0l01.dat
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 0.000 0.000 0.000
0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000
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
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
/tzancmyw0l [ %Ncmyw0l01.dat
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 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 0.000 0.000 0.000 0.000 0.000 0.000
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
] def
/tzbocmyw0l [ %Ocmyw0l01.dat
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
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.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
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
/tzblcmyw0l [ %Lcmyw0l01.dat
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
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
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
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
/tzbvcmyw0l [ %Vcmyw0l01.dat
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.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
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 0.000 0.000 0.000
0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000
] def
/tzbncmyw0l [ %CMYcmyw0l01.dat
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.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.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
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
%END CM_S0LCMYS.DAT Linearization Method (LM) LOCAL (L) cmyolvnw*S DATA 20010401
 
% !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
 
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def     %Umrechnung Inch -> mm
/A4quer {598 0 translate 90 rotate} def
/languagelevel where {pop languagelevel} {1} ifelse
                     /PSL12 exch def
/dictende {counttomark 2 idiv dup dict begin {def}
           repeat pop currentdict end} bind def
 
/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
 
/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

%LANINDL2.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
lanind1 1 lanind2 {/lanind exch def %output showpage
xcolor1 1 xcolor2 {/xcolor exch def %output showpage
xchart1 1 xchart2 {/xchart exch def %output showpage
gsave
%LANINDL2 END
 
8 /Times-Roman FS
72 83 moveto
%     (4x2, F10-3, ) show

%72 80 moveto
%10 /Times-ISOL1 FS
%(Bild B4 und/oder D4 der ISO/IEC\255Pr\374fvorlagen; ) showde
%(Figure B4 and/or D4 of the ISO/IEC\255test charts; ) showen
%(Figure B4 and/or D4 of the ISO/IEC\255test charts; ) showes
%(Figure B4 and/or D4 of the ISO/IEC\255test charts; ) showfr
%(Figure B4 and/or D4 of the ISO/IEC\255test charts; ) showit
%(Figure B4 and/or D4 of the ISO/IEC\255test charts; ) showjp
%(Figure B4 and/or D4 of the ISO/IEC\255test charts; ) showm

%10 /TimesI-ISOL1 FS
%(cmy* and LAB*(\255>cmy*): w* \255 cmy*; ) show

%10 /Times-ISOL1 FS 
%(16 visuell gleichabst\344ndige Stufen von Farbreihen) showde   %010-3 1
%(16 visual equidistant steps of colour series) showen           %110-3 1
%(16 visual equidistant steps of colour series) showes           %210-3 1
%(16 visual equidistant steps of colour series) showfr           %310-3 1
%(16 visual equidistant steps of colour series) showit           %410-3 1
%(16 visual equidistant steps of colour series) showjp           %510-3 1
%(16 visual equidistant steps of colour series) showm            %610-3 1
 
%10 /Times-Italic FS
%(: LAB* -> ) show
%10 /Symbol FS
%(D) show
%10 /Times-Italic FS
%(LAB*; ) show
%10 /Times-ISOL1 FS
%(LM methods: N, F, S, D, T, E) showde                           %010-3 2
%(LM methods: N, F, S, D, T, E) showen                           %110-3 2
%(LM methods: N, F, S, D, T, E) showes                           %210-3 2
%(LM methods: N, F, S, D, T, E) showfr                           %310-3 2
%(LM methods: N, F, S, D, T, E) showit                           %410-3 2
%(LM methods: N, F, S, D, T, E) showjp                           %510-3 2
%(LM methods: N, F, S, D, T, E) showm                            %610-3 2
 
72 90 translate

/pixf 16.67 def
0.1667 pixf div MM 2 mul dup scale
 
1200 0 translate
 
/nshow {180 /TimesI-ISOL1 FS show} def
/ishow {140 /Times-ISOL1 FS -100 -75 rmoveto show 50 75 rmoveto} def

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
 
/ntex* [(0) (1) (2) (3) (4) (5) (6) (7)
        (8) (9) (A) (B) (C) (D) (E) (F)] 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
       
/GSC$ where {pop /LSC$ GSC$ def}
            {/LSC$ (N) def} ifelse

0 1 3 {/ncol exch def %ncol=0,3
 
0 yab translate

/l 0 def
/iLAB 0 def
0 1 15 {/j exch def /ix0 15 j sub 700 mul def /iy0 0 def
        j 15 le { %16 Testfarben; Nr. 16 fuer weisse Linie

/i*p7 0 def %NO Transfer to gray
    
 [/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

             LS* AS* BS*
             setcolor
%             0 setcmykcolor

        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 %16 Testfarben; Nr. 16 fuer weisse Linie
 
       } for %j
 
tfn
-1600 500 moveto
LSC$ nshow (: ) nshow

0 ncol eq {(w* \255 x o*) nshow} if
1 ncol eq {(w* \255 x l*) nshow} if
2 ncol eq {(w* \255 x v*) nshow} if
3 ncol eq {(w* \255 x cmy*) nshow} if

LSC$ (C) eq LSC$ (F) eq or {
-1600 300 moveto
(LAB*) nshow
ISYSLAB 0 eq {((PR18)) nshow} if
ISYSLAB 1 eq {((TV00)) nshow} if
ISYSLAB 2 eq {((DEVI)) nshow} if
ISYSLAB 3 eq {((TV18)) nshow} if
( setcolor) nshow
-1600 100 moveto
(_to_cmy0*) nshow
ISYSTEM 0 eq {(PR18) nshow} if
ISYSTEM 1 eq {(TV00) nshow} if
ISYSTEM 2 eq {(DEVI) nshow} if
ISYSTEM 3 eq {(TV18) nshow} if
( \255>) nshow
-1600 -100 moveto
(cmy0*S setcmykcolor) nshow
           } if

LSC$ (N) eq {
-1600 300 moveto
(LAB*) nshow
ISYSLAB 0 eq {((PR18)) nshow} if
ISYSLAB 1 eq {((TV00)) nshow} if
ISYSLAB 2 eq {((DEVI)) nshow} if
ISYSLAB 3 eq {((TV18)) nshow} if
( setcolor) nshow
             } if

tfn TBM
ncol 3 eq { %N
           0 1 15 {/j exch def /ix0 250 j 700 mul add def /iy0 -400 def
                   ix0 iy0  moveto ntex* j get show
                  } for %j
          } if %N
 
} for %ncol=0,3
 
000 -550 translate
 
15 setlinewidth
tfn
0 0  moveto 11200 0 rlineto 0 4000 rlineto
           -11200 0 rlineto closepath stroke

showpage
grestore

} for %xchart=xchart1,1,xchart2 %output showpage
} for %xcolor=xcolor1,1,xcolor2 %output showpage
} for %lanind=lanind1,1,lanind2 %output showpage

%%Trailer

%%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 14

%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 1.5 add MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 17

%line 399
%!PS-Adobe-3.0 EPSF-3.0 www.ps.bam.de/DE49/F10-7N.eps 20010915
%%BoundingBox: 50 80 780 360
 
%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: F10-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:2001091512000)
  /ModDate (D:2001091512000)
/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

%BEG CM_S0LCMYS.DAT Linearization Method (LM) LOCAL (L) cmyolvnw*S DATA 20020401
%CMYOLVNW4DL.PS 4dimensional series
%INCLUDES STANDARD (S) relative series a: cmyn-w and b: olv(cmy)-w

/tzaccmyw0l 64 array def
/tzamcmyw0l 64 array def
/tzaycmyw0l 64 array def
/tzancmyw0l 64 array def
 
/tzbocmyw0l 64 array def
/tzblcmyw0l 64 array def
/tzbvcmyw0l 64 array def
/tzbncmyw0l 64 array def
 
/tzaccmyw0l [ %Ccmyw0l01.dat
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
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 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 0.000 0.000 0.000 0.000 0.000 0.000
] def
/tzamcmyw0l [ %Mcmyw0l01.dat
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
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
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 0.000 0.000 0.000
0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000
] def
/tzaycmyw0l [ %Ycmyw0l01.dat
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 0.000 0.000 0.000
0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000
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
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
/tzancmyw0l [ %Ncmyw0l01.dat
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 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 0.000 0.000 0.000 0.000 0.000 0.000
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
] def
/tzbocmyw0l [ %Ocmyw0l01.dat
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
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.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
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
/tzblcmyw0l [ %Lcmyw0l01.dat
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
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
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
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
/tzbvcmyw0l [ %Vcmyw0l01.dat
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.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
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 0.000 0.000 0.000
0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000
] def
/tzbncmyw0l [ %CMYcmyw0l01.dat
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.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.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
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
%END CM_S0LCMYS.DAT Linearization Method (LM) LOCAL (L) cmyolvnw*S DATA 20010401
 
% !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
 
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def     %Umrechnung Inch -> mm
/A4quer {598 0 translate 90 rotate} def
/languagelevel where {pop languagelevel} {1} ifelse
                     /PSL12 exch def
/dictende {counttomark 2 idiv dup dict begin {def}
           repeat pop currentdict end} bind def
 
/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
 
/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

%LANINDL2.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
lanind1 1 lanind2 {/lanind exch def %output showpage
xcolor1 1 xcolor2 {/xcolor exch def %output showpage
xchart1 1 xchart2 {/xchart exch def %output showpage
gsave
%LANINDL2 END
 
8 /Times-Roman FS
72 83 moveto
%     (4x2, F10-7, ) show

72 80 moveto
10 /Times-ISOL1 FS
(Bild B4 und/oder D4 der ISO/IEC\255Pr\374fvorlagen; ) showde
(Figure B4 and/or D4 of the ISO/IEC\255test charts; ) showen
(Figure B4 and/or D4 of the ISO/IEC\255test charts; ) showes
(Figure B4 and/or D4 of the ISO/IEC\255test charts; ) showfr
(Figure B4 and/or D4 of the ISO/IEC\255test charts; ) showit
(Figure B4 and/or D4 of the ISO/IEC\255test charts; ) showjp
(Figure B4 and/or D4 of the ISO/IEC\255test charts; ) showm

10 /TimesI-ISOL1 FS
(w* \255 cmyn*; w* \255 olv(cmy)*; ) show

10 /Times-ISOL1 FS 
(16 visuell gleichabst\344ndige Stufen von Farbreihen) showde   %010-7 1
(16 visual equidistant steps of colour series) showen           %110-7 1
(16 visual equidistant steps of colour series) showes           %210-7 1
(16 visual equidistant steps of colour series) showfr           %310-7 1
(16 visual equidistant steps of colour series) showit           %410-7 1
(16 visual equidistant steps of colour series) showjp           %510-7 1
(16 visual equidistant steps of colour series) showm            %610-7 1
 
10 /Times-Italic FS
(: LAB* -> ) show
10 /Symbol FS
(D) show
10 /Times-Italic FS
(LAB*; ) show
10 /Times-ISOL1 FS
(LM methods: N, F, S, D, T, E) showde                           %010-7 2
(LM methods: N, F, S, D, T, E) showen                           %110-7 2
(LM methods: N, F, S, D, T, E) showes                           %210-7 2
(LM methods: N, F, S, D, T, E) showfr                           %310-7 2
(LM methods: N, F, S, D, T, E) showit                           %410-7 2
(LM methods: N, F, S, D, T, E) showjp                           %510-7 2
(LM methods: N, F, S, D, T, E) showm                            %610-7 2
 
72 90 translate

/pixf 16.67 def
0.1667 pixf div MM 2 mul dup scale
 
1200 0 translate
 
15 setlinewidth
/nshow {180 /TimesI-ISOL1 FS show} def
/ishow {140 /Times-ISOL1 FS -100 -75 rmoveto show 50 75 rmoveto} def

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

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
       
/GSC$ where {pop /LSC$ GSC$ def}
            {/LSC$ (N) def} ifelse
 
0 1 3 {/ncol exch def %ncol=0,3
 
0 yab translate
 
/l 0 def
0 1 15 {/j exch def /ix0 15 j sub 700 mul def /iy0 0 def
        j 15 le { %16 Testfarben; Nr. 16 fuer weisse Linie

/i*p7 0 def %NO Transfer to gray

                  0 ncol eq {tzbocmyw0l j        get
                             tzbocmyw0l j 16 add get
                             tzbocmyw0l j 32 add get
                             tzbocmyw0l j 48 add get setcmykcolor} if
                  1 ncol eq {tzblcmyw0l j        get
                             tzblcmyw0l j 16 add get
                             tzblcmyw0l j 32 add get
                             tzblcmyw0l j 48 add get setcmykcolor} if
                  2 ncol eq {tzbvcmyw0l j        get
                             tzbvcmyw0l j 16 add get
                             tzbvcmyw0l j 32 add get
                             tzbvcmyw0l j 48 add get setcmykcolor} if
                  3 ncol eq {/i*p7 0 def %NO Transfer to gray
                             tzbncmyw0l j        get
                             tzbncmyw0l j 16 add get
                             tzbncmyw0l j 32 add get
                             tzbncmyw0l j 48 add get setcmykcolor} if
                          
        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 %16 Testfarben; Nr. 16 fuer weisse Linie
 
       } for %j
 
tfn
-1600 500 moveto
LSC$ nshow (: ) nshow

0 ncol eq {(w* \255 x o*) nshow} if
1 ncol eq {(w* \255 x l*) nshow} if
2 ncol eq {(w* \255 x v*) nshow} if
3 ncol eq {(w* \255 x cmy*) nshow} if

-1600 300 moveto
(cmy0*S setcmykcolor) nshow

tfn TBM
ncol 3 eq { %N
           0 1 15 {/j exch def /ix0 250 j 700 mul add def /iy0 -400 def
                   ix0 iy0  moveto n* j get show
                  } for %j
          } if %N
 
} for %ncol=0,3
 
000 -550 translate
 
tfw %change
0 3950  moveto 11200 0 rlineto 0 700 rlineto
              -11200 0 rlineto closepath fill
 
tfn
0 3950  moveto 11200 0 rlineto 0 700 rlineto
              -11200 0 rlineto closepath stroke
0 25 add 3950 moveto
0  700 rlineto -50 0 rlineto
0 -700 rlineto closepath fill
11200 25 add 3950 moveto
0  700 rlineto -50 0 rlineto
0 -700 rlineto closepath fill
 
0 1 7 {/j exch def %8 black squares
       0 j 1400 mul add 3950 moveto 700 0 rlineto 0 700 rlineto
                                   -700 0 rlineto closepath fill
      } for %8 black squares
 
showpage
grestore

} for %xchart=xchart1,1,xchart2 %output showpage
} for %xcolor=xcolor1,1,xcolor2 %output showpage
} for %lanind=lanind1,1,lanind2 %output showpage

%%Trailer

%%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

%%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

%%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

%%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

%%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 DE49 20011015
%%BoundingBox: 0 0 598 845

%%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

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

/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       
 
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 {0.0 0.0 tzan j get 0.0 setcmykcolor 
         ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if
         0.0 0.0 tzan j get 0.0 setcmykcolor
         ix0 iy0 s s rec fill

         /ix0 xru 43 MM sub j0 7 MM mul add def /iy0 yru 8 MM sub def
j 16 eq {tzan j get dup dup 0 setcmykcolor 
         ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if
         tzan j get dup dup 0 setcmykcolor
         ix0 iy0 s s  rec fill

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

         /ix0 xro 43 MM sub j0 7 MM mul add def /iy0 yro 1 MM add def
j 16 eq {0.0 tzan j get 0.0 0.0 setcmykcolor
         ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if
         0.0 tzan j get 0.0 0.0 setcmykcolor
         ix0 iy0 s s rec fill

%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
(16 Farben nach) showde
(16 colours according to) showen
(16 colours according to) showes
(16 colours according to) showfr
(16 colours according to) showit
(16 colours according to) showjp
(16 colours according to) showm

( ISO/IEC 15775 and 19839\255X;) show
( setcolor \255> setcmykcolor, but NO setgray) show

 62 MM 198.5 MM  moveto
(www.ps.bam.de/D) show LSS$ show (49/10F/F49) show
LSS$ show LSX$ show LSY$ show
LSC$ show LEX$ show (; ) show

LSC$ (N) eq {
(Start\255Ausgabe ohne LAB* Transfer und ohne OL: ) showde
(start output with no LAB* transfer and no OL) showen
(start output with no LAB* transfer and no OL) showes
(start output with no LAB* transfer and no OL) showfr
(start output with no LAB* transfer and no OL) showit
(start output with no LAB* transfer and no OL) showjp
(start output with no LAB* transfer and no OL) showm
           } if
LSC$ (C) eq {
(Start\255Ausgabe mit LAB* Transfer und ohne OL) showde
(start output with LAB* transfer and no OL) showen
(start output with LAB* transfer and no OL) showes
(start output with LAB* transfer and no OL) showfr
(start output with LAB* transfer and no OL) showit
(start output with LAB* transfer and no OL) showjp
(start output with LAB* transfer and no OL) showm
           } if
LSC$ (F) eq {
(Linearisierte\255Ausgabe mit LAB* Transfer und OL) showde
(linearized output with LAB* transfer and OL) showen
(linearized output with LAB* transfer and OL) showes
(linearized output with LAB* transfer and OL) showfr
(linearized output with LAB* transfer and OL) showit
(linearized output with LAB* transfer and OL) showjp
(linearized output with LAB* transfer and OL) showm
           } if

 62 MM 194 MM  moveto
LSC$ (N) eq LSC$ (C) eq or {
(N: Keine Ausgabe\255Linearisierung (OL) in Datei (F), Startup (S), Ger\344t (D)) showde
(N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showen
(N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showes
(N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showfr
(N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showit
(N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showjp
(N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showm
           }
           {LSC$ show (: ) show
(Ausgabe\255Linearisierung (OL\255Daten) ) showde
(Output Linearization (OL) data ) showen
(Output Linearization (OL) data ) showes
(Output Linearization (OL) data ) showfr
(Output Linearization (OL) data ) showit
(Output Linearization (OL) data ) showjp
(Output Linearization (OL) data ) showm
(D) show LSS$ show (49/10F/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
(Information, Bestellung: ) showde
(Information and Order: ) showen
(Informaci\363n t\351cnica en: ) showes
(Information and Order: ) showfr
(Information and Order: ) showit
(Information and Order: ) showjp
(Information and Order: ) showm
(http://www.ps.bam.de) show
 90 rotate

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


281 MM 185 MM moveto
-90 rotate
(BAM\255Registrierung: 20011015\255DE49/10F/F49) showde
(BAM registration: 20011015\255DE49/10F/F49) showen
(BAM registration: 20011015\255DE49/10F/F49) showes
(BAM registration: 20011015\255DE49/10F/F49) showfr
(BAM registration: 20011015\255DE49/10F/F49) showit
(BAM registration: 20011015\255DE49/10F/F49) showjp
(BAM registration: 20011015\255DE49/10F/F49) 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