12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127 |
- .currentglobal true .setglobal
- /pdfoptdict 200 dict def
- pdfoptdict begin
- /ifdaelse {
- 3 index type dup /dicttype eq {
- pop pop pop
- } {
- dup /arraytype ne exch /packedarraytype ne and {
- exch
- } if pop exch pop
- } ifelse exec
- } bind def
- /darray {
- dict
- } bind def
- /dadd {
- 1 index length exch put
- } bind def
- /daforall {
- /exch cvx /get cvx 3 -1 roll /exec cvx 5 packedarray cvx
- 0 1 2 index 0 get length 1 sub 4 -1 roll for
- } bind def
- /dacontents {
- [ exch { } daforall ]
- } bind def
- /dacontstring {
- 0 1 index { exch pop length add } forall string
- dup /NullEncode filter
-
- 3 -1 roll { 1 index exch writestring } daforall
- closefile
- } bind def
- /omforcenew {
- dup oforce 2 copy eq { pop true } { exch 0 get omapnew exch pop } ifelse
- } bind def
- /omforce {
- omforcenew pop
- } bind def
- /omget {
- get omforce
- } bind def
- /omvisit {
- omforcenew {
- { { omvisit omvisit } forall }
- { { omvisit } forall }
- { pop }
- ifdaelse
- } {
- pop
- } ifelse
- } bind def
- /omvisitnopage {
- dup oforce dup type /dicttype eq {
- /Type .knownget { /Page eq } { false } ifelse
- } {
- pop false
- } ifelse {
- pop
- } {
- omforcenew {
- { { omvisitnopage omvisitnopage } forall }
- { { omvisitnopage } forall }
- { pop }
- ifdaelse
- } {
- pop
- } ifelse
- } ifelse
- } bind def
- /omapped {
- RMap length array RMap {
- 2 index 3 1 roll 1 sub exch put
- } forall
- } bind def
- /visited {
- false currentomap 2 .execn
- omapped exch setomap
- } bind def
- .currentglobal false .setglobal
- userdict /clostreams 20 dict put
- .setglobal
- /clostream {
- 2 index 3 -1 roll /exec load 3 packedarray cvx
- /NullEncode filter
-
- clostreams 1 index 5 -2 roll 2 array astore put
- } bind def
- /closend {
- dup closefile clostreams exch
- 2 copy get 3 1 roll undef aload pop exec
- } bind def
- /msproc {
- 3 -1 roll dadd { 100 string } { () } ifelse
- } bind def
- /mstream {
- 10 darray {msproc} {dacontstring} clostream
- } bind def
- /mcontents {
- closend
- } bind def
- /posbuf 100 string def
- /posproc {
- 0 2 copy get 5 -1 roll length add put
- pop //posbuf
- } bind def
- /postream {
- [0] {posproc} {0 get} clostream
- } bind def
- /poslength {
- closend
- } bind def
- /bitstream {
- 4 dict begin /S exch def /N 8 def /B 0 def
- currentdict end
- } bind def
- /bitwrite {
- PDEBUG { ( ) print 1 index =only (:) print dup = } if
- 3 -1 roll begin
- N exch sub dup 0 ge {
- /N exch def N bitshift B add
- } {
- 2 copy bitshift B add S exch write
-
- { 8 add dup 0 ge { exit } if
- 2 copy bitshift 255 and S exch write
- } loop
- /N 1 index def bitshift 255 and
- } ifelse /B exch def
- end
- } bind def
- /bitflush {
- begin N 8 ne { S B write /B 0 def /N 8 def } if end
- } bind def
- /totemp {
- TFile fileposition OFile
- /OFile TFile def 3 .execn
- /OFile exch def
- TFile fileposition
- } bind def
- /tomemory {
- OFile /OFile mstream def 2 .execn
- OFile mcontents exch /OFile exch def
- } bind def
- /tolength {
- OFile /OFile postream def 2 .execn
- OFile poslength exch /OFile exch def
- } bind def
- /copyrange {
- TFile 2 index setfileposition
- exch sub 1024 string exch {
-
- 2 copy 1 index length .min 0 exch getinterval
- TFile exch readstring pop OFile exch writestring
- 1 index length sub dup 0 le { exit } if
- } loop pop pop
- } bind def
- /padto {
- OFile fileposition sub
- dup 0 lt {
- (ERROR: file position incorrect by ) print =
- /padto cvx /rangecheck signalerror
- } {
- { ( ) ows } repeat
- } ifelse
- } bind def
- /touch {
- {
- { touch touch } forall
- } {
- dup xcheck {
-
- dup 0 get resolved? { pop pop } { oforce touch } ifelse
- } {
- { touch } forall
- } ifelse
- } {
- pop
- } ifdaelse
- } bind def
- /replaceable? {
- dup type /integertype eq exch xcheck not and
- } bind def
- /replacement {
- dup oforce dup replaceable? { exch } if pop
- } bind def
- /replacerefs {
- {
- dup {
- 2 index 2 index undef
- exch replacement exch replacement
- 2 index 3 1 roll put
- } forall
- } {
- 0 1 2 index length 1 sub {
- 1 index exch 2 copy get replacement put
- } for
- } {
- } ifdaelse
- } bind def
- /replaceReferences {
- Objects { replacerefs pop } lforall
-
- 0 1 Objects llength 1 sub {
- Objects 1 index lget replaceable? {
- PDEBUG { (Deleting ) print dup = } if
- Generations 1 index 0 lput
- } if pop
- } for
- } bind def
- /createObjects {
- Objects llength dup
- dup 3 index length add growPDFobjects
-
- 3 1 roll exch {
- Objects 2 index 3 -1 roll lput
- Generations 1 index 1 lput
- 1 add
- } forall pop
- } bind def
- /nopropattrs <<
-
- /Type dup /Kids dup /Count dup /Parent dup
-
- /Resources dup
- >> def
- /mergeres {
-
- 1 index /Resources .knownget {
- 1 index /Resources .knownget {
-
- exch oforce exch oforce
-
- dup length dict .copydict
- exch {
-
- 2 index 2 index knownoget {
-
- exch oforce exch
-
- dup type /dicttype eq {
-
- exch dup length 2 index length add dict .copydict .copydict
- } {
-
-
- dup length 2 index length add dict begin
- exch { dup def } forall { dup def } forall
- mark currentdict end { pop } forall .packtomark
- } ifelse
- } if
- 2 index 3 1 roll put
- } forall
- } if /Resources exch put pop
- } {
- pop pop
- } ifelse
- } bind def
- /mergeattrs {
-
- 1 index {
-
- //nopropattrs 2 index known {
- pop pop
- } {
- 2 index 2 index known { pop pop } { 2 index 3 1 roll put } ifelse
- } ifelse
- } forall
- } bind def
- /proppage {
-
-
-
-
- dup /Kids knownoget {
-
- 3 1 roll
-
- dup length dict .copydict mergeattrs
- dup 3 1 roll mergeres
- exch { oforce 1 index exch proppage } forall pop
- } {
-
- mergeattrs mergeres
- } ifelse
- } bind def
- /propagateAttributes {
- 0 dict Trailer /Root oget /Pages oget proppage
- } bind def
- /identifyDocumentObjects {
- {
- Trailer /Root omget
- dup /PageMode .knownget { omvisit } if
-
- dup /OpenAction .knownget { omvisitnopage } if
- Trailer /Encrypt .knownget { omvisit } if
- dup /Threads .knownget {
- omforce { omforce } forall
- } if
- dup /AcroForm .knownget { omvisit } if
- pop
- } visited
- } bind def
- /identifyfont {
- omforce {
- exch /FontDescriptor eq {
- omforce dup /Flags .knownget { 32 and 0 ne } { false } ifelse
- exch {
- exch dup dup /FontFile eq exch /FontFile2 eq or
- exch /FontFile3 eq or 2 index and {
- fontfiles exch dadd
- } {
- omvisit
- } ifelse
- } forall pop
- } {
- omvisit
- } ifelse
- } forall
- } bind def
- /identifyPageObjects {
- pdffindpageref
- 4 dict begin
- /images 10 darray def
- /fontfiles 10 darray def
- {
- omforce
-
-
- exch omvisit
-
-
- dup /Annots .knownget { omvisit } if
-
- dup /B .knownget { omvisit } if
-
- dup /Resources .knownget {
- omforce dup {
-
- omforce pop pop
- } forall {
-
-
-
-
-
- exch dup /XObject eq {
- pop oforce {
- dup oforce /Subtype get /Image eq {
- images exch dadd
- } {
- omvisit
- } ifelse pop
- } forall
- } {
- /Font eq {
- oforce { identifyfont pop } forall
- } {
- oforce omvisit
- } ifelse
- } ifelse
- } forall
- } if
-
- dup /Contents .knownget { omvisit } if
-
-
- images { omvisit } daforall
-
-
- fontfiles { omvisit } daforall
- pop
- } visited end
- } bind def
- /identifyFirstPageObjects {
- Trailer /Root oget null
- 1 index /PageMode knownoget {
- /UseOutlines eq {
- 1 index /Outlines knownoget { exch pop } if
- } if
- } if exch pop
- 1 identifyPageObjects
- } bind def
- /identifyOtherPageObjects {
-
- 4 dict begin
- /marks lstring Objects llength lgrowto def
-
- [CatalogNs FirstPageNs] {
- { marks exch 255 lput } forall
- } forall
-
- [ 2 1 pdfpagecount { null exch identifyPageObjects } for ]
- dup {
- { marks exch 2 copy lget 1 add 254 min lput } forall
- } forall
- [ exch {
- [ exch {
- marks 1 index lget 1 ne { pop } if
- } forall ]
- } forall ]
- [ 1 1 marks llength 1 sub {
- marks 1 index lget dup 1 le exch 255 eq or { pop } if
- } for ]
- end
- } bind def
- /identifyNonPageObjects {
- 4 dict begin
- /marks lstring Objects llength lgrowto def
- [[[LPDictN PHSN] CatalogNs FirstPageNs SharedNs] OtherPageNs] {
- { { marks exch 1 lput } forall } forall
- } forall
-
- [ 1 1 Objects llength 1 sub {
- marks 1 index lget 0 eq {
- Generations 1 index lget 0 eq { pop } if
- } {
- pop
- } ifelse
- } for ]
- } bind def
- /assignObjectNumbers {
- OtherPageNs { { omap pop } forall } forall
- SharedNs { omap pop } forall
- NonPageNs { omap pop } forall
-
- LPDictN omap
- CatalogNs { omap pop } forall
- FirstPageNs { omap pop } forall
- PHSN omap pop
- } bind def
- /createLPDict {
-
- LPDict
- dup /Linearized 1 put
- dup /L 4 -1 roll put
- dup /T 4 -1 roll put
- dup /E 4 -1 roll put
- dup /H 5 -2 roll 1 index sub 2 array astore put
- dup /O 1 pdffindpageref 0 get omap put
- /N pdfpagecount put
- } bind def
- /adjustObjectPositions {
-
-
-
- XRef {
-
- dup 5 index ge { 2 } { 3 } ifelse index add
- XRef 3 1 roll put
- } forall pop pop pop
- XRef LPDictN omap HeaderLength put
- XRef PHSN omap PHSStart put
- } bind def
- /writeobjn {
- Generations 1 index lget pdfwriteobj
- } bind def
- /writeobjns {
- { writeobjn } forall
- } bind def
- /writePart {
- PDEBUG {
- dup print ( start=) print
- OFile { .fileposition } stopped { pop (???) } if =
- 2 .execn
- print ( end=) print
- OFile { .fileposition } stopped { pop (???) } if =
- } {
- pop exec
- } ifelse
- } bind def
- /writePart1 {
- {
- pdfwriteheader
- } (part1) writePart
- } bind def
- /writePart2 {
- {
- LPDictN writeobjn
- } (part2) writePart
- } bind def
- /writePart3 {
- {
- FirstPageXN NObjects 1 add 1 index sub pdfwritexref
- Trailer dup length 1 add dict copy
- dup /Size NObjects 1 add put
- dup /Prev 4 -1 roll put
- pdfwritetrailer
- 0 pdfwritestartxref
- } (part3) writePart
- } bind def
- /writePart4 {
- {
- CatalogNs writeobjns
- } (part4) writePart
- } bind def
- /writePart5 {
- {
- PHSN writeobjn
- } (part5) writePart
- } bind def
- /writePart6 {
- {
- FirstPageNs writeobjns
- } (part6) writePart
- } bind def
- /writePart7 {
- {
- [ OtherPageNs {
- OFile fileposition exch
- writeobjns OFile fileposition exch sub
- } forall ]
- } (part7) writePart
- } bind def
- /writePart8 {
- {
- SharedNs writeobjns
- } (part8) writePart
- } bind def
- /writePart9 {
- {
- NonPageNs writeobjns
- } (part9) writePart
- } bind def
- /writePart11xref {
- {
- 0 FirstPageXN pdfwritexref
- } (part11xref) writePart
- } bind def
- /writePart11rest {
- {
- << /Size FirstPageXN >> pdfwritetrailer
- pdfwritestartxref
- } (part11rest) writePart
- } bind def
- /bitsneeded {
- 0 exch { dup 0 eq { pop exit } if exch 1 add exch 2 idiv } loop
- } bind def
- /omstart {
- PDEBUG { (start\() print dup =only } if
- omap
- PDEBUG { (=>) print dup =only } if
- XRef exch get
- PDEBUG { (\) = ) print dup = } if
- } bind def
- /omend {
-
-
-
- PDEBUG { (end\() print dup =only } if
- omap
- PDEBUG { (=>) print dup =only } if
- 1 add
-
-
- PHSN omap 1 index eq { pop 1 } if
- XRef exch get
- PDEBUG { (\) = ) print dup = } if
- } bind def
- /omlength {
- dup omend exch omstart sub
- } bind def
- /contentsobjects {
- /Contents get
- dup oforce dup type /dicttype eq {
- pop dup
- } {
- dup 0 get exch dup length 1 sub get
- } ifelse
- exch 0 get exch 0 get
- } bind def
- /contentsstart {
- contentsobjects pop omstart
- } bind def
- /contentslength {
- contentsobjects omend exch omstart sub
- } bind def
- /writePageOffsetHints {
- PDEBUG { /writePageOffsetHints == } if
- 20 dict begin
- /bits OFile bitstream def
- /bwn { bits 3 1 roll bitwrite } def
-
- FirstPageLength OtherPageLengths { .min } forall
- /minpl exch def
-
- FirstPageNs 0 get Objects exch lget contentslength
- OtherPageNs { 0 get Objects exch lget contentslength .min } forall
- /mincl exch def
-
-
- /mincl 0 def
-
- FirstPageLength OtherPageLengths { .max } forall
- minpl sub bitsneeded /maxplbits exch def
-
- FirstPageNs 0 get Objects exch lget contentslength
- OtherPageNs { 0 get Objects exch lget contentslength .max } forall
- mincl sub bitsneeded /maxclbits exch def
-
-
- maxplbits maxclbits .max /maxplbits 1 index def /maxclbits exch def
-
- FirstPageNs length OtherPageNs { length .min } forall
- /minnop 1 index def 32 bwn
-
- FirstPageNs 0 get omap XRef exch get 32 bwn
-
- FirstPageNs length OtherPageNs { length .max } forall
- minnop sub bitsneeded /maxnopbits 1 index def 16 bwn
-
- minpl 32 bwn
-
- maxplbits 16 bwn
-
- 0
- /minsco 1 index def 32 bwn
-
-
- 0
- /maxscobits 1 index def 16 bwn
-
- mincl 32 bwn
-
- maxclbits 16 bwn
-
- 0
- /maxsorbits 1 index def 16 bwn
-
- 0
- /sobits 1 index def 16 bwn
-
- 0
- /numfbits 1 index def 16 bwn
-
-
- 255
- /denf 1 index def 16 bwn
-
- FirstPageNs length minnop sub maxnopbits bwn
- OtherPageNs {
- length minnop sub maxnopbits bwn
- } forall
-
- FirstPageLength minpl sub maxplbits bwn
- OtherPageLengths {
- minpl sub maxplbits bwn
- } forall
-
-
- OtherPageNs length 1 add { 0 maxsorbits bwn } repeat
-
-
-
- [FirstPageNs OtherPageNs aload pop] {
- 0 get Objects exch lget contentsstart minsco sub maxscobits bwn
- } forall
-
- [FirstPageNs OtherPageNs aload pop] {
- 0 get Objects exch lget contentslength mincl sub maxclbits bwn
- } forall
- bits bitflush end
- } bind def
- /writeSharedObjectHints {
- PDEBUG { /writeSharedObjectHints == } if
- 20 dict begin
- /bits OFile bitstream def
- /bwn { bits 3 1 roll bitwrite } def
-
-
-
-
-
- 0 32 bwn
-
-
-
-
- { pdfwriteheader } tomemory length 32 bwn
-
- FirstPageNs length 32 bwn
-
-
- FirstPageNs length 32 bwn
-
-
-
- 0 16 bwn
-
- 16#7fffffff FirstPageNs { omlength .min } forall
- /minsol 1 index def 32 bwn
-
-
- 0 FirstPageNs { omlength .max } forall
- minsol sub bitsneeded
- /maxsolbits 1 index def 16 bwn
-
- FirstPageNs { omlength minsol sub maxsolbits bwn } forall
-
- 0 1 bwn
- bits bitflush end
- } bind def
- /tmpprefix (/tmp/) def
- /pdfOptimize {
- realtime 3 1 roll
- exch pdfdict begin pdfopenfile dup begin
- 40 dict begin
- /IDict exch def
- /OFile exch def
- /starttime exch def
- /now {
- QUIET { pop } { print (, t = ) print realtime starttime sub = flush } ifelse
- } def
- omapinit
-
-
- null (w) .tempfile /TFile exch def /TFileName exch def
- .setsafe
-
- Trailer touch
- (Read objects) now
-
-
- replaceReferences
- (Replaced references) now
-
-
- /LPDict 10 dict def
- /PHS 10 dict cvx def
- [LPDict PHS] createObjects
- /LPDictN 1 index def 1 add
- /PHSN exch def
- PDEBUG { << /LPDictN LPDictN /PHSN PHSN >> === } if
-
- 0 0 1 Objects llength 1 sub {
- Generations exch lget 0 ne { 1 add } if
- } for
- /NObjects exch def
- QUIET not { NObjects =only ( objects total) = flush } if
-
- propagateAttributes
- (Propagated attributes) now
-
- identifyDocumentObjects /CatalogNs exch def
- QUIET not { CatalogNs === flush } if
- (Identified Catalog) now
-
-
- pdfopencache
- /FirstPageNs identifyFirstPageObjects def
- QUIET not { FirstPageNs === flush } if
- (Identified first page) now
-
-
- identifyOtherPageObjects
- /SharedNs exch def
- /OtherPageNs exch def
- QUIET not { OtherPageNs === flush SharedNs === flush } if
- (Identified other pages) now
-
- /NonPageNs identifyNonPageObjects def
- QUIET not { NonPageNs === flush } if
- (Identified non-pages) now
-
-
- /FirstPageXN assignObjectNumbers def
- (Assigned objects #s) now
-
- { writePart4 } totemp
- /CatalogTempEnd exch def /CatalogTempStart exch def
- (Wrote Catalog) now
-
- { writePart6 } totemp
- /FirstPageTempEnd exch def /FirstPageTempStart exch def
- (Wrote first page) now
-
- { writePart7 /OtherPageLengths exch def } totemp
- /OtherPageTempEnd exch def /OtherPageTempStart exch def
- (Wrote other pages) now
-
- { writePart8 } totemp
- /SharedTempEnd exch def /SharedTempStart exch def
- (Wrote shared objects) now
-
- { writePart9 } totemp
- /NonPageTempEnd exch def /NonPageTempStart exch def
-
-
-
- XRef LPDictN omap 0 put
- XRef PHSN omap 0 put
- /HeaderLength {
- writePart1
- } tolength def
- /CatalogLength
- CatalogTempEnd CatalogTempStart sub def
- /FirstPageLength
- FirstPageTempEnd FirstPageTempStart sub def
- /OtherObjectsLength
- NonPageTempEnd OtherPageTempStart sub def
- /ObjectsLength
- CatalogLength FirstPageLength add OtherObjectsLength add def
- /XrefLength {
-
-
- writePart11xref 1024 writePart11rest
- } tolength def
- /NominalFileLength
- HeaderLength ObjectsLength 3 mul add 10000 add 99999 max def
- /FirstPageXrefLength {
- NominalFileLength writePart3
- } tolength def
- /LPDictLength {
- NominalFileLength dup 2 mul 2 copy add 1 index dup createLPDict writePart2
- } tolength def
-
- /XrefBeginLength {
- (xref\n0 ) ows
- OFile FirstPageXN write=
- } tolength def
- HeaderLength LPDictLength add
- /FirstPageXrefStart 1 index def
- FirstPageXrefLength add
- /CatalogStart 1 index def
- CatalogLength add
- /PHSStart exch def
-
-
- 0 0 CatalogStart CatalogTempStart sub adjustObjectPositions
-
- XRef PHSN omap CatalogStart put
- (Adjusted positions) now
-
- { writePageOffsetHints } totemp
- pop /PHSTempStart exch def
- { writeSharedObjectHints } totemp
- exch PHSTempStart sub PHS /S 3 -1 roll put
- PHSTempStart sub /PHSTempLength exch def
- (Wrote hints) now
-
- TFile closefile
- /TFile TFileName (r) file def
- PHS
- dup /File TFile put
- dup /FilePosition PHSTempStart put
- dup /Length PHSTempLength put
- pop
- /PHSLength { writePart5 } tolength def
-
- PHSStart
- dup PHSLength add
- /FirstPageStart 1 index def
- dup FirstPageLength add
- dup OtherObjectsLength add
- /XrefStart 1 index def
- XrefBeginLength add
- dup XrefBeginLength sub XrefLength add
-
-
- 1024 .max
- /FileLength 1 index def
- createLPDict
-
- PHSStart 0 PHSLength adjustObjectPositions
- (Readjusted positions) now
-
- writePart1
- writePart2
- FirstPageXrefStart padto
- XrefStart writePart3
- CatalogStart padto
- CatalogTempStart CatalogTempEnd copyrange
- writePart5
- FirstPageStart padto
- FirstPageTempStart NonPageTempEnd copyrange
-
- XrefStart padto
- writePart11xref
- { FirstPageXrefStart writePart11rest } tomemory
- FileLength 1 index length sub padto ows
- (Wrote output file) now
-
- TFile closefile TFileName deletefile
- end
- end
- } bind def
- end
- .setglobal
- [ shellarguments {
- ] dup length 2 eq {
-
- /omapinit where { pop } { (pdfwrite.ps) runlibfile } ifelse
- save exch
- aload pop exch (r) file exch (w) file
- 3000000 setvmthreshold
- pdfoptdict begin pdfOptimize end
- restore
- } {
- (Usage: gs -dNODISPLAY -- pdfopt.ps input.pdf output.pdf) = flush quit
- } ifelse
- } {
- pop
- } ifelse
|