%!PS-Adobe-3.0 EPSF-3.0 NG320-5
%%BoundingBox: 70 83 226 206
%old BoundingBox: 72 90 225 205
 
%START PDFDE011.EPS
/pdfmark05 where {pop} {userdict /pdfmark05 /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: NG320-5)
  /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:2010110112000)
  /ModDate (D:2010110112000)
/DOCINFO pdfmark05
[ /View [ /FitB ]
/DOCVIEW pdfmark05
%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


/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
 
%%EndProlog
gsave
%LANINDL2 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 0 def /lanind2 0 def} ifelse
lanind1 1 lanind2 {/lanind exch def %output showpage
gsave
%LANINDL2 END
 
5 /Times-ISOL1 FS
180 85 moveto
 (NG320-5, B8_20_1) show %    ( B8350_2, M8460-5, B8_20_1, N=8_20_1) show
 
72 90 translate
 
 
0.01 MM 0.01 MM scale  %d2:[rr.b4f]bausz8y.eps
/ausz 8 def
 
 3300 2000 translate
 
/q {100 mul exch 100 mul exch moveto 100 0 rlineto 0 100 rlineto -100 0 rlineto
closepath fill} bind def
 
0.0 0.0 1.0 0.0 setcmyk_olvcolor
 
  -12 1 11 {-12 q} for     %01
% -12 1 11 {-11 q} for     %02
% -12 1 11 {-10 q} for     %03
% -12 1 11 { -9 q} for     %04
% -12 1 11 { -8 q} for     %05
% -12 1 11 { -7 q} for     %06
% -12 1 11 { -6 q} for     %07
% -12 1 11 { -5 q} for     %08
% -12 1 11 { -4 q} for     %09
% -12 1 11 { -3 q} for     %10
% -12 1 11 { -2 q} for     %11
% -12 1 11 { -1 q} for     %12
% -12 1 11 {  0 q} for     %13
% -12 1 11 {  1 q} for     %14
% -12 1 11 {  2 q} for     %15
% -12 1 11 {  3 q} for     %16
% -12 1 11 {  4 q} for     %17
% -12 1 11 {  5 q} for     %18
% -12 1 11 {  6 q} for     %19
% -12 1 11 {  7 q} for     %20
% -12 1 11 {  8 q} for     %21
% -12 1 11 {  9 q} for     %22
% -12 1 11 { 10 q} for     %23
  -12 1 11 { 11 q} for     %24
 
-3300 -2000 translate
 
15 setlinewidth
0.0 0.0 0.0 1.0 setcmyk_olvcolor
 
0 0  moveto 5333 0 rlineto 0 4000 rlineto -5333 0 rlineto
closepath stroke
 
10 setlinewidth
350 /Times-ISOL1 FS
100 3250 moveto
(Raster ) showde                                                %08460-5 1
(raster ) showen                                                %18460-5 1
(Raster ) showes                                                %28460-5 1
(raster ) showfr                                                %38460-5 1
(raster ) showit                                                %48460-5 1
(raster ) showjp                                                %58460-5 1
 
350 /TimesI-ISOL1 FS
(Y) show
 
350 /Times-ISOL1 FS
100 2900 moveto
(24 \327 24) show
 
100 2550 moveto
(0\260) show
 
1000 /Times-ISOL1 FS
100 500 moveto
(1) show
 
1500 200 translate
 
%! 36 Linien horizontal
/y 100 36 mul def
0 100 y {%for
     dup -50 moveto
     y 50 add lineto
} for stroke
 
%! 36 Linien vertikal
/x 100 36 mul def
0 100 x {%for
     dup -50 exch moveto
     x 50 add exch lineto
} for stroke
 
%! Rastermittelpunkt
 
18 100 mul 18 100 mul translate
 
40 setlinewidth
 
%! fetteres Quadrat
 
-1200 -1200 moveto
2400 0 rlineto
0 2400 rlineto
-2400 0 rlineto
closepath stroke
 
%!Null-Kreuz
 
-1900     0 moveto
 3800     0 rlineto stroke
    0 -1900 moveto
    0  3800 rlineto stroke
 
%Randgrau rechts, oben
0.0 0.0 0.0 0.5 setcmyk_olvcolor
  -12 1 11 {12 exch q} for     %01
  -12 1 11 { 12     q} for     %02
 
showpage
grestore
} for %output with langind end
%%Trailer