%!PS-Adobe-3.0 EPSF-3.0 MI970-7
%%BoundingBox: 70 83 226 206

%START PDFDE011.EPS
/pdfmark07 where {pop} {userdict /pdfmark07 /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: MI97)
  /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:2016010112000)
  /ModDate (D:2016010112000)
/DOCINFO pdfmark07
[ /View [ /FitB ]
/DOCVIEW pdfmark07
%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

/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

%%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
/showfr {2 lanind eq {show} {pop} ifelse} bind def
/showes {3 lanind eq {show} {pop} ifelse} bind def
/showit {4 lanind eq {show} {pop} ifelse} bind def
/showjp {5 lanind eq {show} {pop} ifelse} bind def
/showm  {6 lanind eq {show} {pop} ifelse} bind def

/lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def
                    /lanindd laninddf def}
               {/lanind1 4 def /lanind2 4 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
(MI970-7) show
xchart 0 eq {(N) show}
            {deintp colorm 2 mul add cvishow} ifelse
 (, BTe06_2) show %    ( B9485_4, M8630-7, BTe06_2, N=6_2) show

%cero point Bounding-Box
72 90 translate

%start special
/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 1 ncolor sub mul 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 {setcmyk_olvcolor setsf} bind def %fuer PSL1/2-Farbgeraet

%ANFA HALBTON
/Halbt {     %wrbie:HALBTOA0.eps
 } bind def

%ANFA SETCMYK


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

0.01 MM dup scale
30 setlinewidth
TBM

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

0.0 0.0 0.0 0.5 setcmykcolor %Z
0 0  moveto 5400 0 rlineto 0 4000 rlineto
           -5400 0 rlineto closepath fill

0.0 0.0 0.0 0.0 setcmykcolor %W
100 3600 moveto
(Grund\255, Mischfarben, Fl\344chendeckung) showde              %0MI970-7 0097#
(basic, mixed colors, area cover) showen                        %1MI970-7 0097#
(Colores basicos, mezclados, sobrepuestos) showes               %2MI970-7 0097#
(couleurs et m\351lang\351es, couverture de surface) showfr     %3MI970-7 0097#
(colori fondamentali, mescolati, coperchio di area) showit      %4MI970-7 0097#
(basis, blandingsfarger, flatedekning) showjp                   %5MI970-7 0097#

/xyw {4000 12 div} bind def /xw {5 xyw mul} bind def
/x01 {5 xyw mul} bind def /y0 {1.2 xyw mul} bind def
/x02 {10 xyw mul} bind def

/colors1           %CMYN der Farbstreifen von unten nach oben
[{1.0 0.0 0.0 0.0} {0.0 1.0 0.0 0.0} {0.0 0.0 1.0 0.0}
 {0.0 1.0 1.0 0.0} {1.0 0.0 1.0 0.0} {1.0 1.0 0.0 0.0}
 {1.0 1.0 1.0 0.0} {0.0 0.0 0.0 0.0} {0.0 0.0 0.0 1.0}] def

/colors2 %Achtung 0.5 -> 0.7 mit sqrt
[{0.5 0.0 0.0 0.0} {0.0 0.5 0.0 0.0} {0.0 0.0 0.5 0.0}
 {0.0 0.5 0.5 0.0} {0.5 0.0 0.5 0.0} {0.5 0.5 0.0 0.0}
 {0.5 0.5 0.5 0.0} {0.0 0.0 0.0 0.0} {0.0 0.0 0.0 0.5}] def

0 1 8 {dup /i exch def xyw mul y0 add x01 exch   %08 Farbstreifen
            xw xyw
            colors1 i get exec setcmykcolor rec fill} for

0 1 8 {dup /i exch def xyw mul y0 add x02 exch   %08 Farbstreifen
            xw xyw
            colors2 i get exec setcmykcolor rec fill} for

0.0 0.0 0.0 0.0 setcmykcolor %W

%        123456123456123456123456123456123456123456123456123456
/N81str (C     M     Y     O=M+Y L=C+Y V=C+M C+M+Y W     N     ) def

TBIM
0 1 8  {/nr exch def nr xyw mul y0 add x01 1300 sub exch
        moveto 40 0 N81str nr 6 mul 6 getinterval ashow} for

TBM
x01  400 add  y0 300 sub moveto (100) show 30 0 rmoveto (%) show
x02  600 add  y0 300 sub moveto (70) show 30 0 rmoveto (%) show

ausz 3 le {5 setlinewidth} {30 setlinewidth} ifelse
0 0 5400 4000 1.0 1.0 1.0 1.0 setcmykcolor rec stroke

showpage
grestore

%%Trailer