%!PS-Adobe-3.0 EPSF-3.0 MN470-4
%%BoundingBox: 70 83 226 206

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


%SETCMYK_OLV.PS
/setcmyk_olvcolor %transfer cmyk to olv
{/ncolor exch def /ycolor exch def
 /mcolor exch def /ccolor exch def
 ncolor 0 eq {1 ccolor sub
              1 mcolor sub
              1 ycolor sub setrgbcolor
             }
             {ccolor 0 eq
              mcolor 0 eq and
              ycolor 0 eq and {%only black n
                               1 ncolor sub
                               dup
                               dup
                               setrgbcolor
                              }
                              {%cmy and black n
                               1 ccolor sub 1 ncolor sub mul
                               1 mcolor sub 1 ncolor sub mul
                               1 ycolor sub 1 ncolor sub mul
                               setrgbcolor
                              } ifelse
             } ifelse
} 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

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def /str {8 string } 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

%%EndProlog
gsave
%LANINDL2 START  20000505
/lanind 1 def
/lantex [(G) (E) (S) (F) (I) (J) (M)] def
/showde {0 lanind eq {show} {pop} ifelse} bind def
/showen {1 lanind eq {show} {pop} ifelse} bind def
/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

/lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def
                    /lanindd laninddf def}
               {/lanind1 5 def /lanind2 5 def} ifelse
/colormf where {pop /colorm1 colormf def /colorm2 colormf def
                    /colormd colormdf def}
               {/colorm1 0 def} ifelse
/deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def
                    /deintpd deintpdf def}
               {/deintp1 0 def} ifelse
/xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def
                    /xcolord xcolordf def}
               {/xcolor1 3 def} ifelse
/xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def
                    /xchartd xchartdf def
                    /xchartm xchart2f xchart1f sub 1 add def}
               {/xchart1 0 def /xchartm 1 def} ifelse
/xchart3f where {pop /xchart3 xchart3f def}
                {/xchart3 0 def} ifelse
/xchart4f where {pop /xchart4 xchart4f def}
                {/xchart4 0 def} ifelse
/pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def
                    /pchartd pchartdf def}
               {/pchart1 3 def} ifelse
/colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def
                    /colsepd colsepdf def}
               {/colsep1 0 def} ifelse
/pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def
                    /pmetamd pmetamdf def}
               {/pmetam1 0 def} ifelse

%either defaul values for xchart=0 or values for xchart=1
/lanind lanind1 def %
/colorm colorm1 def %
/deintp deintp1 def %
/xcolor xcolor1 def %
/xchart xchart1 def %
/pchart pchart1 def %
/colsep colsep1 def %
/pmetam pmetam1 def %

colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0
colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1
colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0
colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1
xchart 0 eq {/Txx (-) def /Fxx (-) def} if %always independent of intended output

5 /Times-ISOL1 FS
/cvishow {cvi 6 string cvs show} def
75 85 moveto
lanind cvishow (-) show
colorm cvishow
deintp cvishow
xcolor cvishow
xchart cvishow
pchart cvishow
colsep cvishow (-L) show pmetam cvishow

gsave
%LANINDL2 END

5 /Times-ISOL1 FS
180 85 moveto
(MN470-4) show
xchart 0 eq {(N) show}
            {deintp colorm 2 mul add cvishow} ifelse
(, BTe04) show %    ( B8264_6, M8630-4, BTe04, N=4) show

%cero point Bounding-Box
72 90 translate

% units in 0,01 mm and frame 5,4cm x 4,0cm
0.01 MM 0.01 MM scale

15 setlinewidth
0.0 0.0 0.0 0.0 setcmyk_olvcolor
0 0  moveto 5333 0 rlineto 0 4000 rlineto -5333 0 rlineto
closepath fill
0.0 0.0 0.0 1.0 setcmyk_olvcolor

0 0  moveto 5333 0 rlineto 0 4000 rlineto -5333 0 rlineto
closepath stroke

 250 /Times-ISOL1 FS
 100  800 moveto (72 300 div 20 mul dup scale) show
 100  500 moveto (1 8 t 1 O   1 13 t 10 O 2 @ 2 O   1 18 t 5 O) show
 100  200 moveto (20 1 22 { 2 exch t 16 O} for) show

%34 28.75 moveto (0) show
%34 33.50 moveto (1) show
%34 38.25 moveto (2) show
%34 43.00 moveto (3) show
%34 47.75 moveto (4) show
%34 52.50 moveto (5) show
%34 57.25 moveto (6) show
%34 62.00 moveto (7) show
%34 66.75 moveto (8) show
%34 71.50 moveto (9) show
%34 76.25 moveto (A) show
%34 81.00 moveto (B) show
%34 85.75 moveto (C) show
%34 91.50 moveto (D) show
%34 96.25 moveto (E) show
%34 101.0 moveto (F) show

grestore
gsave

%  Transformation Benutzer- -> Geraetekoordinaten
/Mt  {  %  x  y    snaptopixel    sx  sy
	transform
	.25 sub round .25 add exch
	.25 sub round .25 add exch
	itransform moveto} bind def
/HQR {  % Zeichnen Basis-Rechteck horizontal (x0 y0 w h)
        4 -2 roll Mt  %(x0,y0) untere linke Ecke Rechteck
        dtransform round exch round exch idtransform
        % Transform. Benutzer- -> Geraetekoordinaten
        dup 0 exch rlineto  %(0,h)  nach oben links
        exch 0 rlineto      %(w,0)  nach oben rechts
        neg 0 exch rlineto  %(0,-h) nach unten rechts
        closepath fill} bind def
/HQRr {HQR /x0 r x0 add def} bind def %r-fach Quadrat & x0-Transl.
/t { % x y -> x0 y0  Start Zeile, Spalte, Diagonale
     /y0 exch def /x0 exch def} bind def
/O { %voll gefuelltes Basis-Rechteck mit w=r h=1
     /r exch def %Wiederholungsfaktor r
     x0 y0 r 1 HQRr} bind def              %r-fach Quadrat
/@ {/r exch def /x0 r x0 add def} bind def %reine x0-Translation

180 85 moveto

72 90 translate


0.0 setlinewidth
72 300 div 20 mul dup scale

1 8 t 1 O   1 13 t 10 O 2 @ 2 O   1 18 t 5 O
20 1 22 { 2 exch t 16 O} for

showpage
grestore

%%Trailer