🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: adobe.postscript.programming
Article #1186

Re: Staple each Doc, concatenated PS file- PLZ HELP!!

#1186
From: Dan Piekarz
Date: Fri, 21 Mar 2003 16:48
81 lines
5138 bytes
line 53
line 54 g4rot 90 eq {612 0 translate 90 rotate}
line 55 {g4rot rotate} ifelse
line 56 posX posY translate
line 57 g4cols g4res div 72.0 mul scaleX mul g4rows g4res div 72.0 mul scaleY mul scale
line 58
line 59 % Filling the image from the upper left corner of the page
line 60 g4cols g4rows true [g4cols 0 0 g4rows neg 0 g4rows]
line 61 g4file g4dict /CCITTFaxDecode filter imagemask
line 62 {
line 63 needClose { g4file closefile exit } if
line 64 g4pos 0 gt { g4file g4pos setfileposition exit } if
line 65 g4file read {
line 66 37 eq
line 67 {/percSeen percSeen 1 add def percSeen 4 ge {exit} if}
line 68 {/percSeen 0 def}
line 69 ifelse
line 70 } {exit} ifelse
line 71 } loop
line 72 grestore
line 73 end
line 74 } bind def
line 75 %%BeginProlog
line 76 %%BeginResource: procset CompuSetDict 6.4 1
line 77 /AW {0.0 exch awidthshow} bind def /BK {0.0 0.0 0.0 setrgbcolor 0.0 setgray} bind
line 78 def /CF {closepath 1.0 setgray setrgbcolor fill grestore} bind def /D5 {.3 setlinewidth [.5 1.5] 0 setdash stroke grestore} bind
line 79 def /D6 {1 setlinewidth [1 1.5] 0 setdash stroke grestore} bind def /D7 {2 setlinewidth [2 2.5] 0 setdash stroke grestore} bind
line 80 def /DS {setlinewidth [4 4] 0 setdash stroke grestore} bind def /_DSC_DT {/setpagedevice {pop} def /setuserparams {pop} def
line 81 /letter {} def /halfletter {} def /ledger {} def /11x17 {} def /a0 {} def /a1 {} def /a2 {} def /a3 {} def /a4 {} def /a5 {} def
line 82 /a6 {} def /a7 {} def /a8 {} def /a9 {} def /a10 {} def /b0 {} def /b1 {} def /b2 {} def /b3 {} def /b4 {} def /b5 {} def
line 83 statusdict begin statusdict /setduplexmode {pop} put statusdict /setpapertray {pop} put statusdict /setjobtimeout {pop} put
line 84 statusdict /setmargins {pop pop} put statusdict /setpageparams {pop pop pop pop} put statusdict /setpage {pop pop pop} put
line 85 statusdict /setpagemargin {pop} put statusdict /lettertray {} put end userdict /letter {} put} bind def /FL {closepath setgray
line 86 fill grestore} bind def /FM {findfont exch makefont setfont} bind def /FN {findfont exch scalefont setfont} bind def /GR
line 87 /grestore load def /GS /gsave load def /IS 64 string def /L1 {findfont dup length dict begin{1 index /FID ne {def} {pop pop}
line 88 ifelse} forall /Encoding ISOLatin1Encoding def currentdict end} bind def /LD {exch definefont pop} bind def /LI /lineto load def
line 89 /MV /moveto load def /_DSC_NS {/showpage {} def} bind def /RG {1.0 setgray setrgbcolor} bind def /RM {0.0 rmoveto} bind def
line 90 /_DSC_RO /rotate load def /restore /restore load def /RU {setlinewidth stroke grestore} bind def /SC /scale load def /showpage
line 91 /showpage load def /SH /show load def /save /save load def /_DSC_TR /translate load def /WH {1.0 1.0 1.0 setrgbcolor 1.0
line 92 setgray} bind def /_DSC_WN {/pp 1 string def/s 1 string def/rn{currentfile s readhexstring{0 get}{pop exit}ifelse}def
line 93 /unpack{/DC 0 def /BC 0 def{DC bytestr length ge{exit}if rn /BC exch def BC 127 le{/BC BC 1 add def DC 1 DC BC add 1 sub{bytestr
line 94 exch rn put}for}{/BC BC 255 xor 2 add def rn /pp exch def DC 1 DC BC add 1 sub{bytestr exch pp put}for}ifelse /DC DC BC add
line 95 def}loop bytestr}bind def}bind def /WS {0.0 exch 32 exch widthshow} bind def
line 96 %%EndResource
line 97 %%EndProlog
line 98 %%BeginSetup
line 99 %%EndSetup
line 100 %%Page: 1 1
line 101 %%BeginPageSetup
line 102 %%PageMedia: Color Weight Type
line 103 %%EndPageSetup
line 104 save
line 105 28.0 /Frutiger-Bold FN 55.98 863.98 MV (Document 1 Page 1 Front)SH
line 106 restore
line 107 showpage
line 108 %%Page: 2 2
line 109 %%BeginPageSetup
line 110 %%PageMedia: Color Weight Type
line 111 %%EndPageSetup
line 112 save
line 113 28.0 /Frutiger-Bold FN 55.98 863.98 MV (Document 1 Page 1 Back)SH
line 114 restore
line 115 showpage
line 116 %%Page: 3 3
line 117 %%BeginPageSetup
line 118 %%PageMedia: Color Weight Type
line 119 %%EndPageSetup
line 120 save
line 121 28.0 /Frutiger-Bold FN 55.98 863.98 MV (Document 1 Page 2 Front)SH
line 122 restore
line 123 showpage
line 124 %%Page: 4 4
line 125 %%BeginPageSetup
line 126 %%PageMedia: Color Weight Type
line 127 %%EndPageSetup
line 128 save
line 129 28.0 /Frutiger-Bold FN 55.98 863.98 MV (Document 1 Page 2 Back)SH
line 130 restore
line 131 showpage
line 132 %%Trailer
line 133 %%EOF
Technical Details
Message-ID: <1de86603.0@WebX.la2eafNXanI>
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-03!sn-xit-01!sn-xit-08!supernews.com!news-out.visi.com!petbe.visi.com!eusc.inter.net!newsfeed01.sul.t-online.de!t-online.de!WebX
References: <1de86603.-1@WebX.la2eafNXanI>

Show Full Headers
Complete Article Headers
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 10c61a,75011e1e269e701,start
X-Google-Attributes: gid10c61a,public
X-Google-ArrivalTime: 2003-03-21 09:08:05 PST
From: "Dan Piekarz" <daniel_piekarz@medcohealth.com>
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-03!sn-xit-01!sn-xit-08!supernews.com!news-out.visi.com!petbe.visi.com!eusc.inter.net!newsfeed01.sul.t-online.de!t-online.de!WebX
Newsgroups: adobe.postscript.programming
Subject: Re: Staple each Doc, concatenated PS file- PLZ HELP!!
Message-ID: <1de86603.0@WebX.la2eafNXanI>
Date: Fri, 21 Mar 2003 08:48:08 -0800
References: <1de86603.-1@WebX.la2eafNXanI>
Lines: 107
MIME-Version: 1.0
Content-Type: text/plain; charset="ISO-8859-1"
Content-Transfer-Encoding: 8bit