%!PS-Adobe-3.0 EPSF-3.0 NE330-7
%%BoundingBox: 70 83 390 534
%old BoundingBox: 72 90 390 534
 
%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: NE330-7)
  /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 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


% 54 Zeilen + Titel-Rand (16) = 54*8+16 = 448; 90+442+16 = 538
% 150,0 mm = 158,0*72/25.4 = 448
% !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
 
%%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 1 def /lanind2 1 def} ifelse
lanind1 1 lanind2 {/lanind exch def %output showpage
gsave
%LANINDL2 END
5 /Times-ISOL1 FS
340 85 moveto
 (NE330-7, B8_23) show %    ( B8262_7, M8470-7, B8_23, N=8_23 2x4) show
 
72 90 translate
 
/yhoe 15650 def
0.01 MM 0.01 MM scale
 
/ausz 8 def
15 setlinewidth %2X4
0.2 0.0 0.0 0.0 setcmyk_olvcolor
0 0  moveto 11200 0 rlineto 0 yhoe rlineto -11200 0 rlineto
closepath fill
0.0 0.0 0.0 1.0 setcmyk_olvcolor
 
0 0  moveto 11200 0 rlineto 0 yhoe rlineto -11200 0 rlineto
closepath stroke
 
0 yhoe 450 sub moveto 11200 0 rlineto  0 450 rlineto -11200 0 rlineto
closepath stroke
 
/TES {300 /Courier FS
 /anz exch def /ydt exch def /y0t exch def /x0t exch def} bind def
/TEA {0 1 anz 1 sub {ydt mul y0t add x0t exch moveto show} for} bind def
 
%Titeltext
350 /Times-ISOL1 FS
 50 yhoe 350 sub moveto
 
(PSL1\255Programmcode: Horizontale ) showde                     %08470-7 1
(Rechteck\255Grafikelemente (16 Graustufen)) showde             %08470-7 11
(PSL1\255program code: horizontal ) showen                      %18470-7 1
(rectangular graphic elements (16 gray steps)) showen           %18470-7 11
(PSL1\255Lenguaje: Elementos graficos ) showes                  %28470-7 1
(Horizontal\255rectangular (16 pasos del gris)) showes          %28470-7 11
(PSL1\255program code: horizontal ) showfr                      %38470-7 1
(rectangular graphic elements (16 gray steps)) showfr           %38470-7 11
(PSL1\255program code: horizontal ) showit                      %48470-7 1
(rectangular graphic elements (16 gray steps)) showit           %48470-7 11
(PSL1\255program code: horizontal ) showjp                      %58470-7 1
(rectangular graphic elements (16 gray steps)) showjp           %58470-7 11
 
/yd24 {3600 13 div} bind def %y-Zeilenabstand
/x0 200 def %untere x-Textecke
/y0 200 def %untere y-Textecke
 
lanind 0 eq {%difde
x0 y0 yd24 93 39 sub TES %anz=54
(%!PS-Adobe-3.0 B8260-7n.eps             20.10.94)
(%%BoundingBox: 72 90 226 206)
(% Definitionen /Mt /HQR /HQRr, vgl. PSL1-Code B8262-6n.eps)
(/HQR1 {HQR /x0 1 x0 add def} bind def %Rechteck & x0-Transl.)
(%horizontale (HO) Raster, horizontales moveto)
(/HOIn {%Basis-Rechteck (w=r 1); Innenfeld weiss (w=r 0<h<1))
(       /r exch def    %Wiederholungsfaktor r)
(       x0 y0 r 1 HQR  %Schwarzes Rechteck (w=r h=1))
(       1.0 setgray)
(       x0 y0 xyh add r h HQRr  %Rechteck weiss (w=r 0<h<1))
(       0.0 setgray } bind def)
(/HORa {%Basis-Quadrat (w=r 1); Innenfeld weiss (w=r 0<h<1))
(       /r exch def    %Wiederholungsfaktor r)
(       x0 y0 r 1 HQR  %Schwarzes Rechteck (w=r h=1))
(       1.0 setgray)
(       x0 y0 xyh add r h HQR       %Rechteck weiss (r 0<h<1))
(       r {x0 xyw add y0 w 1 HQR1} repeat %Quer-Rechteck)
(       0.0 setgray } bind def)
(/HOMi {%Basis-Rechteck (w=r 1); Innenfeld weiss (0<w,h<1))
(       /r exch def    %Wiederholungsfaktor r)
(       x0 y0 r 1 HQR  %Schwarzes Randrechteck)
(       1.0 setgray)
(       r {x0 xyw add y0 xyh add w h HQR1} repeat %Quadrat)
(       0.0 setgray } bind def)
(/xyw{1 w sub 0.5 mul}bind def /xyh{1 h sub 0.5 mul}bind def)
(/O { /r exch def x0 y0 r 1 HQRr} bind def   %r-fach Quadrat)
(/N {/h 0.10 def /w 0.30 def HOMi} bind def)
(/M {/h 0.10 def /w 0.60 def HOMi} bind def)
(/L {/h 0.10 def HOIn} bind def)
(/K {/h 0.15 def HOIn} bind def)
(/J {/h 0.20 def HOIn} bind def)
(/I {/h 0.25 def HOIn} bind def)
(/H {/h 0.30 def HOIn} bind def)
(/G {/h 0.35 def HOIn} bind def)
(/F {/h 0.40 def HOIn} bind def)
(/E {/h 0.45 def HOIn} bind def)
(/D {/h 0.50 def HOIn} bind def)
(/C {/h 0.60 def HOIn} bind def)
(/B {/h 0.70 def HOIn} bind def)
(/A {/h 0.80 def /w 0.50 def HORa} bind def)
(/@ {/x0 exch x0 add def} bind def %reine x0-Translation)
(/t {/y0 exch def /x0 exch def} bind def  %Start x0, y0)
(1 1 scale 72 90 translate 0.0 setlinewidth %kleinste Linie)
(72 300 div 20 mul dup scale)
( 0 0 t 32 H )
( 1 1 6 {0 exch t 1 H 30 @ 1 H} for)
( 0 7 t 1 H 7 @ 16 A 7 @ 1 H )
( 0 8 t 1 H 7 @ 16 B 7 @ 1 H )
( % .....)
( 0 20 t 1 H 7 @ 16 N 7 @ 1 H)
( 0 21 t 1 H 7 @ 16 O 7 @ 1 H)
( 0 22 t 1 H 30 @ 1 H )
( 0 23 t 32 H )
(showpage)
TEA } if %ifde
 
lanind 1 ge {%difen
x0 y0 yd24 93 39 sub TES %anz=54
 (%!PS-Adobe-3.0 B8260-7n.eps             20.10.94)
(%%BoundingBox: 72 90 226 206)
(% Definitionen /Mt /HQR /HQRr, see PSL1-Code B8262-6n.eps)
(/HQR1 {HQR /x0 1 x0 add def} bind def %rectangle, x0-Transl.)
(%horizontal (HO) raster, horizontal moveto)
(/HOIn {%basis-rectangle (w=r 1); central field W (w=r 0<h<1))
(       /r exch def    %repeating factor r)
(       x0 y0 r 1 HQR  %black rectangle (w=r h=1))
(       1.0 setgray)
(       x0 y0 xyh add r h HQRr  %rectangle white (w=r 0<h<1))
(       0.0 setgray } bind def)
(/HORa {%Basis-square (w=r 1);   central field W (w=r 0<h<1))
(       /r exch def    %repeating factor r)
(       x0 y0 r 1 HQR  %black rectangle (w=r h=1))
(       1.0 setgray)
(       x0 y0 xyh add r h HQR     %rectangle white (r 0<h<1))
(       r {x0 xyw add y0 w 1 HQR1} repeat    %Quer-rectangle)
(       0.0 setgray } bind def)
(/HOMi {%basis-rectangle (w=r 1); central field W  (0<w,h<1))
(       /r exch def    %repeating factor r)
(       x0 y0 r 1 HQR  %black edge rectangle)
(       1.0 setgray)
(       r {x0 xyw add y0 xyh add w h HQR1} repeat %square)
(       0.0 setgray } bind def)
(/xyw{1 w sub 0.5 mul}bind def /xyh{1 h sub 0.5 mul}bind def)
(/O { /r exch def x0 y0 r 1 HQRr} bind def   %r-fold square)
(/N {/h 0.10 def /w 0.30 def HOMi} bind def)
(/M {/h 0.10 def /w 0.60 def HOMi} bind def)
(/L {/h 0.10 def HOIn} bind def)
(/K {/h 0.15 def HOIn} bind def)
(/J {/h 0.20 def HOIn} bind def)
(/I {/h 0.25 def HOIn} bind def)
(/H {/h 0.30 def HOIn} bind def)
(/G {/h 0.35 def HOIn} bind def)
(/F {/h 0.40 def HOIn} bind def)
(/E {/h 0.45 def HOIn} bind def)
(/D {/h 0.50 def HOIn} bind def)
(/C {/h 0.60 def HOIn} bind def)
(/B {/h 0.70 def HOIn} bind def)
(/A {/h 0.80 def /w 0.50 def HORa} bind def)
(/@ {/x0 exch x0 add def} bind def %only x0-translation)
(/t {/y0 exch def /x0 exch def} bind def  %start x0, y0)
(4 4 scale 72 90 translate 0.0 setlinewidth %thinnest line)
(72 300 div 20 mul dup scale)
( 0 0 t 32 H )
( 1 1 6 {0 exch t 1 H 30 @ 1 H} for)
( 0 7 t 1 H 7 @ 16 A 7 @ 1 H )
( 0 8 t 1 H 7 @ 16 B 7 @ 1 H )
( % .....)
( 0 20 t 1 H 7 @ 16 N 7 @ 1 H)
( 0 21 t 1 H 7 @ 16 O 7 @ 1 H)
( 0 22 t 1 H 30 @ 1 H )
( 0 23 t 32 H )
(showpage)
TEA } if %ifen
 
showpage
grestore
} for %output with langind end
%%Trailer