%!PS-Adobe-3.0 EPSF-3.0 INFIE10:IEAJ041.TXT 31.10.98 % aus B7219-7n.eps %%BoundingBox: 72 430 226 556 %ANFA PDFIE041.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 (Printer output of 300 dpi based on a vertical "HalftoneType 3"-definiton) /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 PDFIE041 %%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-I exch definefont pop /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 counttomark 2 idiv dup dict begin {def} repeat pop currentdict end sethalftone} if %Def.Dictionary %d2:[rr.p6f]COLOR03.EPS /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 %kein ANFA HALBTON siehe oben /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-I FS 172 83 350 add moveto %!2 (INFIE10:B7219-7N.eps *PDF) show (INFIE10:IEAJ041.TXT) show 72 1 add 90 1 add 350 add translate 0.01 MM 0.01 MM scale %d2:[rr.b4f]bausz8y.eps /ausz 7 def /half 3 def % Halbt 15 setlinewidth 0.0 0.0 0.0 1.0 setcmyknew 0 0 moveto 5333 0 rlineto 0 4000 rlineto -5333 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-I 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 %%Trailer