%!PS-Adobe-2.0 EPSF-3.0 INFIE10:IEAJ031.TXT 31.10.98 aus C7219-7N.eps %%BoundingBox: 72 330 390 784 %ANFA PDFIE031.EPS /pdfmark where {pop} {userdict /pdfmark /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put } if [ /Title (PS-file with a definition of a vertical "HalftoneType 3"-raster cell used in DIN 33866) /Author (goto: http://o2.ps.bam.de or http://trappist.kb.bam.de/ps) /Subject (specifying image reproduction of colour devices) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@bam.de) /CreationDate (D:1998111212000) /ModDate (D:1998111212000) /DOCINFO pdfmark [ /View [ /FitB ] /DOCVIEW pdfmark %ENDE PDFIE031 %%Creator: K. Richter, BAM und TU Berlin, 1998.08.15 % !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 /Courier findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Courier-I exch definefont pop /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /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 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 {setcmykcolor setsf} bind def %fuer PSL1/2-Farbgeraet %ANFA HALBTON /Halbt { %wrbie:HALBTOA0.eps } bind def %ANFA SETCMYK /setcmyknew { %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 %%EndProlog gsave 5 /Times-ISOL1 FS 330 83 250 add moveto %!2 (INFIE10:C7219-7N.eps 2x4) show (INFIE10:IEAJ031.TXT) show 72 90 250 add translate /yhoe 15650 def 0.01 MM 0.01 MM scale /ausz 8 def /half 3 def Halbt 15 setlinewidth %2X4 0.0 0.0 0.0 1.0 setcmyknew 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 {290 /Courier-I 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 (PSL2\255Program code: raster cell\255threshold data (22 \327 22, DIN 33866) 13.10.98) show /yd24 {3600 13 div} bind def %y-Zeilenabstand /x0 200 def %untere x-Textecke /y0 200 def %untere y-Textecke x0 y0 yd24 93 39 sub TES %anz=54 (%!PS-Adobe-3.0 B7219-7n.eps raster cell 13.10.98) (%%BoundingBox: 72 90 226 204) (/FS {findfont exch scalefont setfont} bind def) (/MM {72 25.4 div mul} def /str {8 string } bind def) (/languagelevel where {pop languagelevel} {1} ifelse) (2 eq {[/HalftoneType 3 /Width 22 /Height 22 /Thresholds) (%see Annex G) ( counttomark 2 idiv dup dict begin {def} repeat) ( pop currentdict end sethalftone} if %Def.Dictionary) (%%EndProlog) ( ) (72 90 translate 0.01 MM 0.01 MM scale 15 setlinewidth) (0 0 moveto 5400 0 rlineto 0 4000 rlineto) ( -5400 0 rlineto closepath stroke) (/xyw {4000 24 div} bind def /xw {16 xyw mul} bind def) (/x0 {8 xyw mul} bind def /y0 {5 xyw mul} bind def) (0 1 15 {dup 0.0666 mul 1 exch sub setgray) ( xyw mul y0 add x0 exch moveto) ( xw 0 rlineto 0 xyw rlineto) ( xw neg 0 rlineto closepath fill} for) (200 /Times-ISOL1 FS 0 setgray /D16str (0123456789ABCDEF) def) (0 1 15 {/nr exch def nr xyw mul y0 add x0 250 sub exch) ( moveto D16str nr 1 getinterval show} for) ( ) ( xyw 3.5 xyw mul moveto) ((<> sethalftone %<<, >> compare PSL2-handbook, page 361) show) (showpage) TEA grestore showpage %%Trailer