%!PS-Adobe-3.0 EPSF-3.0 SI200-1
%%BoundingBox: 70 83 418 206
 
%START PDFDE011.EPS
/pdfmark01 where {pop} {userdict /pdfmark01 /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: SI200-1)
  /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@me.com)
  /CreationDate (D:2013030112000)
  /ModDate (D:2013030112000)
/DOCINFO pdfmark01
[ /View [ /FitB ]
/DOCVIEW pdfmark01
%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

/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
 
%%EndProlog
gsave
/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
/showea {1 lanind le {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 0 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 xchart3 lt {/Txx (-) def /Fxx (-) def} if

gsave
%LANINDL2 END

5 /Times-ISOL1 FS
130 85 moveto
lanind cvishow (-) show
colorm cvishow
deintp cvishow
xcolor cvishow
xchart cvishow
pchart cvishow
colsep cvishow (-L) show

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

180 85 moveto
(SI200-7) show
xchart 0 eq {(N) show}
            {deintp colorm 2 mul add cvishow} ifelse

72 90 translate

/yhoe  4000 def
/xhoe 12100 def

0.01 MM 0.01 MM scale

15 setlinewidth

0.0 0.0 0.0 1.0 setcmykcolor
0 0 moveto xhoe 0 rlineto 0 yhoe rlineto
           xhoe neg 0 rlineto closepath stroke
0 3200  moveto xhoe 0 rlineto closepath stroke
 
/yd 350 def %y-Zeilenabstand
%Spalten
/S1 0050 def
/S2 1200 def
/S3 2400 def
/S4 6300 def
/S5 8150 def
/S6 9900 def

/yhom yhoe 400 sub def
 S2 50 sub yhoe moveto 0 yhoe neg rlineto closepath stroke
 S3 50 sub yhoe moveto 0 yhoe neg rlineto closepath stroke
 S4 200 sub yhom moveto 0 yhom neg rlineto closepath stroke
 S5 50 sub yhom moveto 0 yhom neg rlineto closepath stroke
 S6 50 sub yhoe moveto 0 yhoe neg rlineto closepath stroke
 

/yz 350 def
/yu0 200 def
/yu1 {yu0 yz 0.5 mul add} bind def
/yu2 {yu1 yz 2.6 mul add} bind def
/yu3 {yu2 yz 2.3 mul add} bind def
/yu4 {yu3 yz 2.0 mul add} bind def
/yu5 {yu4 yz 2.6 mul add} bind def

TBM
S1 yu5 moveto
(Eingabe) showde
(Input) showea

S2 yu5 moveto
(Ausgabe) showde
(Output) showea

S3 yu5 moveto
(Ein\255 und Ausgabemedien sowie Anwendungen) showde
(Input and output media and applications) showea

S3 yu5 yd sub moveto
(Eingabemedium) showde
(Input media) showea

S4 150 sub yu5 yd sub moveto
(Ausgabe) showde
(Output media) showea

S5 yu5 yd sub moveto
(Anwendung) showde
(Application) showea

S6 yu5 moveto
(Norm) showde
(Standard) showea

TM
%new line yu4
S1 yu4 moveto TBM (-) show
S2 yu4 moveto TBM (-) show
S3 yu4 moveto TM (-) show
S4 yu4 moveto TM (-) show
S5 yu4 moveto TBM
(Grundlagen) showde
(Basis) showea
S6 yu4 moveto TBM
(DIN 33866-1) show

%new line yu3
S1 yu3 moveto TBM
(analog) showde
(analog) showea
S2 yu3 moveto TBM
(analog) showde
(analog) showea
S3 yu3 moveto TM
(DIN\255Pr\374fvorlage (Hardcopy)) showde
(DIN\255test chart (hardcopy)) showea
S4 yu3 moveto TM
(Hardcopy) showde
(Hardcopy) showea
S5 yu3 moveto TBM
(Kopierer) showde
(Copier) showea
S6 yu3 moveto TBM
(DIN 33866-2) show

%new line yu2
S1 yu2 moveto TBM
(analog) showde
(analog) showea
S2 yu2 moveto TBM
(digital) showde
(digital) showea
S3 yu2 moveto TM
(DIN\255Pr\374fvorlage (Hardcopy)) showde
(DIN\255test chart (hardcopy)) showea
S4 yu2 moveto TM
(Datei) showde
(File) showea
S5 yu2 moveto TBM
(Scanner) showde
(Scanner) showea
S6 yu2 moveto TBM
(DIN 33866-4) show

%new line yu1
S1 yu1 moveto TBM
(digital) showde
(digital) showea
S2 yu1 moveto TBM
(analog) showde
(analog) showea
S3 yu1 moveto TM
(DIN\255Pr\374fvorlage (Datei)) showde
(DIN\255test chart (File)) showea

S4 yu1 200 add moveto TM
(Hardcopy) showde
(Hardcopy) showea
S5 yu1 200 add moveto TBM
(Drucker) showde
(Printer) showea
S6 yu1 200 add moveto TBM
(DIN 33866-3) show

S4 yu1 200 sub moveto TM
(Softcopy) showde
(Softcopy) showea
S5 yu1 200 sub moveto TBM
(Display) showde
(Display) showea
S6 yu1 200 sub moveto TBM
(DIN 33866-5) show

 S4 170 sub yu1 200 add moveto 300 /Symbol FS
(\354) show
 S4 170 sub yu1 moveto 300 /Symbol FS
(\355) show
 S4 170 sub yu1 200 sub moveto 300 /Symbol FS
(\356) show

showpage
grestore

%} for %xcharti=00,10

%} for %colsep=0,1

%} for %pchart=0,0

%} for %xchart=0,18

%} for %xcolor=3,3

%} for %deintp=0,1

%} for %colorm=0,1

%} for %lanind=0,0

%%Trailer