home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 October A / Pcwk10a98.iso / Corel / Ventura8 / Programs / PLACEDPDF.DLL / PSPROCSET / 6 < prev    next >
Encoding:
Text File  |  1998-04-06  |  11.5 KB  |  728 lines
  1. %%BeginFile: pdftext.prc
  2. %%Copyright: Copyright 1987-1997 Adobe Systems Incorporated. All Rights Reserved.
  3. PDF /PDFText 65 dict dup begin put
  4. /initialize { PDFText begin } bd
  5. /terminate { end } bd
  6. /pdf_has_composefont? systemdict /composefont known def
  7. /CopyFont {
  8. {
  9. 1 index /FID ne 2 index /UniqueID ne and
  10. { def } { pop pop } ifelse
  11. } forall
  12. } bd
  13. /Type0CopyFont
  14. {
  15. exch
  16. dup length dict
  17. begin
  18. CopyFont
  19. [
  20. exch
  21. FDepVector
  22. {
  23. dup /FontType get 0 eq
  24. {
  25. 1 index Type0CopyFont
  26. /_pdfType0 exch definefont
  27. }
  28. {
  29. /_pdfBaseFont exch
  30. 2 index exec
  31. }
  32. ifelse
  33. exch
  34. }
  35. forall
  36. pop
  37. ]
  38. /FDepVector exch def
  39. currentdict
  40. end
  41. } bd
  42. /cHexEncoding
  43. [/c00/c01/c02/c03/c04/c05/c06/c07/c08/c09/c0A/c0B/c0C/c0D/c0E/c0F/c10/c11/c12
  44. /c13/c14/c15/c16/c17/c18/c19/c1A/c1B/c1C/c1D/c1E/c1F/c20/c21/c22/c23/c24/c25
  45. /c26/c27/c28/c29/c2A/c2B/c2C/c2D/c2E/c2F/c30/c31/c32/c33/c34/c35/c36/c37/c38
  46. /c39/c3A/c3B/c3C/c3D/c3E/c3F/c40/c41/c42/c43/c44/c45/c46/c47/c48/c49/c4A/c4B
  47. /c4C/c4D/c4E/c4F/c50/c51/c52/c53/c54/c55/c56/c57/c58/c59/c5A/c5B/c5C/c5D/c5E
  48. /c5F/c60/c61/c62/c63/c64/c65/c66/c67/c68/c69/c6A/c6B/c6C/c6D/c6E/c6F/c70/c71
  49. /c72/c73/c74/c75/c76/c77/c78/c79/c7A/c7B/c7C/c7D/c7E/c7F/c80/c81/c82/c83/c84
  50. /c85/c86/c87/c88/c89/c8A/c8B/c8C/c8D/c8E/c8F/c90/c91/c92/c93/c94/c95/c96/c97
  51. /c98/c99/c9A/c9B/c9C/c9D/c9E/c9F/cA0/cA1/cA2/cA3/cA4/cA5/cA6/cA7/cA8/cA9/cAA
  52. /cAB/cAC/cAD/cAE/cAF/cB0/cB1/cB2/cB3/cB4/cB5/cB6/cB7/cB8/cB9/cBA/cBB/cBC/cBD
  53. /cBE/cBF/cC0/cC1/cC2/cC3/cC4/cC5/cC6/cC7/cC8/cC9/cCA/cCB/cCC/cCD/cCE/cCF/cD0
  54. /cD1/cD2/cD3/cD4/cD5/cD6/cD7/cD8/cD9/cDA/cDB/cDC/cDD/cDE/cDF/cE0/cE1/cE2/cE3
  55. /cE4/cE5/cE6/cE7/cE8/cE9/cEA/cEB/cEC/cED/cEE/cEF/cF0/cF1/cF2/cF3/cF4/cF5/cF6
  56. /cF7/cF8/cF9/cFA/cFB/cFC/cFD/cFE/cFF] def
  57. /modEnc {
  58. /_enc xdd
  59. /_icode 0 dd
  60. counttomark 1 sub -1 0
  61. {
  62. index
  63. dup type /nametype eq
  64. {
  65. _enc _icode 3 -1 roll put
  66. _icode 1 add
  67. }
  68. if
  69. /_icode xdd
  70. } for
  71. cleartomark
  72. _enc
  73. } bd
  74. /trEnc {
  75. /_enc xdd
  76. 255 -1 0 {
  77. exch dup -1 eq
  78. { pop /.notdef }
  79. { Encoding exch get }
  80. ifelse
  81. _enc 3 1 roll put
  82. } for
  83. pop
  84. _enc
  85. } bd
  86. /TE {
  87. /_i xdd
  88. StandardEncoding 256 array copy modEnc
  89. _pdfEncodings exch _i exch put
  90. } bd
  91. /TZ
  92. {
  93. /_usePDFEncoding xdd
  94. findfont
  95. dup length 2 add dict
  96. begin
  97. {
  98. 1 index /FID ne { def } { pop pop } ifelse
  99. } forall
  100. /FontName exch def
  101. _usePDFEncoding 0 ge
  102. {
  103. /Encoding _pdfEncodings _usePDFEncoding get def
  104. pop
  105. }
  106. {
  107. _usePDFEncoding -1 eq
  108. {
  109. counttomark 0 eq
  110. { pop }
  111. {
  112. Encoding 256 array copy
  113. modEnc /Encoding exch def
  114. }
  115. ifelse
  116. }
  117. {
  118. 256 array
  119. trEnc /Encoding exch def
  120. }
  121. ifelse
  122. }
  123. ifelse
  124. FontName currentdict
  125. end
  126. definefont pop
  127. }
  128. bd
  129. /Level2?
  130. systemdict /languagelevel known
  131. {systemdict /languagelevel get 2 ge}
  132. {false}
  133. ifelse
  134. def
  135. Level2?
  136. {
  137. /_pdfFontStatus
  138. {
  139. currentglobal exch
  140. /Font resourcestatus
  141. {pop pop true}
  142. {false}
  143. ifelse
  144. exch setglobal
  145. } bd
  146. }
  147. {
  148. /_pdfFontStatusString 50 string def
  149. _pdfFontStatusString 0 (fonts/) putinterval
  150. /_pdfFontStatus
  151. {
  152. _pdfFontStatusString 6 42 getinterval
  153. cvs length 6 add
  154. _pdfFontStatusString exch 0 exch getinterval
  155. status
  156. { pop pop pop pop true}
  157. { false }
  158. ifelse
  159. } bd
  160. }
  161. ifelse
  162. Level2?
  163. {
  164. /_pdfCIDFontStatus
  165. {
  166. /CIDFont /Category resourcestatus
  167. {
  168. pop pop
  169. /CIDFont resourcestatus
  170. {pop pop true}
  171. {false}
  172. ifelse
  173. }
  174. { pop false }
  175. ifelse
  176. } bd
  177. }
  178. if
  179. /_pdfString100 100 string def
  180. /_pdfComposeFontName
  181. {
  182. dup length 1 eq
  183. {
  184. 0 get
  185. 1 index
  186. type /nametype eq
  187. {
  188. _pdfString100 cvs
  189. length dup dup _pdfString100 exch (-) putinterval
  190. _pdfString100 exch 1 add dup _pdfString100 length exch sub getinterval
  191. 2 index exch cvs length
  192. add 1 add _pdfString100 exch 0 exch getinterval
  193. exch pop
  194. true
  195. }
  196. {
  197. pop pop
  198. false
  199. }
  200. ifelse
  201. }
  202. {
  203. false
  204. }
  205. ifelse
  206. } bd
  207. pdf_has_composefont?
  208. {
  209. /_pdfComposeFont
  210. {
  211. 1 index /CMap resourcestatus
  212. {pop pop true}
  213. {false}
  214. ifelse
  215. 1 index true exch
  216. {
  217. _pdfCIDFontStatus not
  218. {pop false exit}
  219. if
  220. }
  221. forall
  222. and
  223. { 3 -1 roll pop composefont true}
  224. {
  225. 4 -1 roll pop
  226. _pdfComposeFontName
  227. {
  228. dup _pdfFontStatus
  229. { findfont definefont true }
  230. {
  231. pop
  232. dup _pdfFontStatus
  233. { findfont true }
  234. { pop false }
  235. ifelse
  236. }
  237. ifelse
  238. }
  239. {
  240. dup _pdfFontStatus
  241. { findfont true }
  242. { pop false }
  243. ifelse
  244. }
  245. ifelse
  246. }
  247. ifelse
  248. } bd
  249. }
  250. {
  251. /_pdfComposeFont
  252. {
  253. 4 -1 roll pop
  254. _pdfComposeFontName not
  255. {
  256. dup
  257. }
  258. if
  259. 2 copy _pdfFontStatus
  260. {pop findfont exch pop true}
  261. {
  262. eq
  263. {pop false}
  264. {
  265. dup _pdfFontStatus
  266. {findfont true}
  267. {pop false}
  268. ifelse
  269. }
  270. ifelse
  271. }
  272. ifelse
  273. } bd
  274. }
  275. ifelse
  276. /_pdfFaceByStyleDict 4 dict dup begin
  277. Level2?
  278. {
  279. /Serif
  280. /HeiseiMin-W3-83pv-RKSJ-H _pdfFontStatus
  281. {/HeiseiMin-W3}
  282. {/Ryumin-Light}
  283. ifelse
  284. def
  285. /SansSerif
  286. /HeiseiKakuGo-W5-83pv-RKSJ-H _pdfFontStatus
  287. {/HeiseiKakuGo-W5}
  288. {/GothicBBB-Medium}
  289. ifelse
  290. def
  291. /HeiseiMaruGo-W4-83pv-RKSJ-H _pdfFontStatus
  292. {/HeiseiMaruGo-W4}
  293. {
  294. /Jun101-Light-RKSJ-H _pdfFontStatus
  295. { /Jun101-Light }
  296. { SansSerif }
  297. ifelse
  298. }
  299. ifelse
  300. /RoundSansSerif exch def
  301. /Default Serif def
  302. }
  303. {
  304. /Serif /Ryumin-Light def
  305. /SansSerif /GothicBBB-Medium def
  306. {
  307. (fonts/Jun101-Light-83pv-RKSJ-H) status
  308. }stopped
  309. {pop}{
  310. { pop pop pop pop /Jun101-Light }
  311. { SansSerif }
  312. ifelse
  313. /RoundSansSerif exch def
  314. }ifelse
  315. /Default Serif def
  316. }
  317. ifelse
  318. end
  319. def
  320. /_pdf_Adobe-Japan1-2 (Adobe-Japan1-2) def
  321. /_pdfConcatNames
  322. {
  323. exch
  324. _pdfString100 cvs
  325. length dup dup _pdfString100 exch (-) putinterval
  326. _pdfString100 exch 1 add dup _pdfString100 length exch sub getinterval
  327. 3 -1 roll exch cvs length
  328. add 1 add _pdfString100 exch 0 exch getinterval
  329. } bind def
  330. /_pdfSubSetFontByStyleDict 4 dict dup begin
  331. _pdfFaceByStyleDict
  332. {
  333. _pdf_Adobe-Japan1-2 _pdfConcatNames
  334. dup _pdfFontStatus
  335. { def }
  336. {
  337. {
  338. pop
  339. dup /SansSerif eq
  340. {
  341. /HeiseiKakuGo-W5-Adobe-Japan1-2 dup _pdfFontStatus
  342. { def exit }
  343. { pop }
  344. ifelse
  345. }
  346. if
  347. dup /Serif eq
  348. {
  349. /HeiseiMin-W3-Adobe-Japan1-2 dup _pdfFontStatus
  350. { def exit }
  351. { pop }
  352. ifelse
  353. }
  354. if
  355. pop exit
  356. }
  357. loop
  358. }
  359. ifelse
  360. }
  361. forall
  362. end def
  363. /TZzero
  364. {
  365. /_fyAdj xdd
  366. /_wmode xdd
  367. /_styleArr xdd
  368. 4 copy
  369. _pdfComposeFont
  370. {exch pop exch pop exch pop}
  371. {
  372. [
  373. 0 1 _styleArr length 1 sub
  374. {
  375. _styleArr exch get
  376. _pdfFaceByStyleDict exch 2 copy known not
  377. { pop /Default }
  378. if
  379. get
  380. }
  381. for
  382. ]
  383. exch pop
  384. 3 index 3 index 4 2 roll
  385. _pdfComposeFont
  386. {exch pop}
  387. {
  388. findfont
  389. }
  390. ifelse
  391. }
  392. ifelse
  393. dup /FontType get 3 eq _wmode 1 eq and
  394. {
  395. _pdfVerticalRomanT3Font dup length dict copy
  396. begin
  397. /_basefont exch def
  398. /Encoding _basefont /Encoding get def
  399. }
  400. {
  401. dup length 2 add dict
  402. begin
  403. {1 index /FID ne {def}{pop pop} ifelse }
  404. forall
  405. } ifelse
  406. /WMode _wmode def
  407. /BaseLineAdj _fyAdj def
  408. FontType 0 ne
  409. {
  410. /Encoding Encoding dup length array copy dup 16#5c /yen put def
  411. /_fauxfont true def
  412. } if
  413. currentdict
  414. end
  415. definefont pop
  416. }
  417. bd
  418. /swj {
  419. dup 4 1 roll
  420. dup length exch stringwidth
  421. exch 5 -1 roll 3 index mul add
  422. 4 1 roll 3 1 roll mul add
  423. 6 2 roll /_cnt 0 dd
  424. {1 index eq {/_cnt _cnt 1 add dd} if} forall pop
  425. exch _cnt mul exch _cnt mul 2 index add 4 1 roll 2 index add 4 1 roll pop pop
  426. } bd
  427. /jss {
  428. 4 1 roll
  429. {
  430. 2 npop
  431. (0) exch 2 copy 0 exch put
  432. gsave
  433. 32 eq
  434. {
  435. exch 6 index 6 index 6 index 5 -1 roll widthshow
  436. currentpoint
  437. }
  438. {
  439. false charpath currentpoint
  440. 4 index setmatrix stroke
  441. }
  442. ifelse
  443. grestore
  444. moveto
  445. 2 copy rmoveto
  446. } exch cshow
  447. 6 npop
  448. } def
  449. /jsfTzero {
  450. {
  451. 2 npop
  452. (0) exch 2 copy 0 exch put
  453. exch show
  454. 32 eq
  455. {
  456. 4 index 4 index rmoveto
  457. }
  458. if
  459. 2 copy rmoveto
  460. } exch cshow
  461. 5 npop
  462. } def
  463. /jsp
  464. {
  465. {
  466. 2 npop
  467. (0) exch 2 copy 0 exch put
  468. 32 eq
  469. { exch 5 index 5 index 5 index 5 -1 roll widthshow }
  470. { false charpath }
  471. ifelse
  472. 2 copy rmoveto
  473. } exch cshow
  474. 5 npop
  475. } bd
  476. /trj { _cx 0 fWModeProc 32 _ax 0 fWModeProc 6 5 roll } bd
  477. /pjsf { trj sfc fawidthshowProc } bd
  478. /pjss { trj _ctm ssc jss } bd
  479. /pjsc { trj jsp } bd
  480. /_Tjdef [
  481. /pjsf load
  482. /pjss load
  483. {
  484. dup
  485. currentpoint 3 2 roll
  486. pjsf
  487. newpath moveto
  488. pjss
  489. } bind
  490. {
  491. trj swj rmoveto
  492. } bind
  493. {
  494. dup currentpoint 4 2 roll gsave
  495. pjsf
  496. grestore 3 1 roll moveto
  497. pjsc
  498. } bind
  499. {
  500. dup currentpoint 4 2 roll
  501. currentpoint gsave newpath moveto
  502. pjss
  503. grestore 3 1 roll moveto
  504. pjsc
  505. } bind
  506. {
  507. dup currentpoint 4 2 roll gsave
  508. dup currentpoint 3 2 roll
  509. pjsf
  510. newpath moveto
  511. pjss
  512. grestore 3 1 roll moveto
  513. pjsc
  514. } bind
  515. /pjsc load
  516. ] def
  517. /BT
  518. {
  519. /_inT true dd
  520. _ctm currentmatrix pop matrix _tm copy pop
  521. 0 _rise _baselineadj add translate _hs 1 scale
  522. 0 0 moveto
  523. } bd
  524. /ET
  525. {
  526. /_inT false dd
  527. _tr 3 gt {clip} if
  528. _ctm setmatrix newpath
  529. } bd
  530. /Tr {
  531. _inT { _tr 3 le {currentpoint newpath moveto} if } if
  532. dup /_tr xdd
  533. _Tjdef exch get /_Tj xdd
  534. } bd
  535. /Tj {
  536. userdict /$$copystring 2 index put
  537. _Tj
  538. } bd
  539. /iTm { _ctm setmatrix _tm concat 0 _rise _baselineadj add translate _hs 1 scale } bd
  540. /Tm { _tm astore pop iTm 0 0 moveto } bd
  541. /Td { _mtx translate _tm _tm concatmatrix pop iTm 0 0 moveto } bd
  542. /TD { dup /_ld xdd Td } bd
  543. /_nullProc {} bd
  544. /Tf {
  545. dup 1000 div /_fScl xdd
  546. exch findfont dup
  547. /_nullProc exch
  548. /WMode known
  549. {
  550. 1 index /WMode get 1 eq
  551. {pop /exch}
  552. if
  553. }
  554. if
  555. load /fWModeProc xdd
  556. dup
  557. /FontType get 0 eq dup _cx 0 ne and
  558. { /jsfTzero }
  559. { /awidthshow }
  560. ifelse
  561. load /fawidthshowProc xdd
  562. /_fTzero xdd
  563. dup /BaseLineAdj known
  564. { dup /BaseLineAdj get _fScl mul }
  565. { 0 }
  566. ifelse
  567. /_baselineadj xdd
  568. currentpoint iTm moveto
  569. exch scalefont setfont
  570. } bd
  571. /TL { neg /_ld xdd } bd
  572. /Tw {
  573. /_cx xdd
  574. _cx 0 ne _fTzero and
  575. { /jsfTzero }
  576. { /awidthshow }
  577. ifelse
  578. load /fawidthshowProc xdd
  579. } bd
  580. /Tc { /_ax xdd } bd
  581. /Ts { /_rise xdd currentpoint iTm moveto } bd
  582. /Tz { 100 div /_hs xdd iTm } bd
  583. /Tk { exch pop _fScl mul neg 0 fWModeProc rmoveto } bd
  584. /T* { 0 _ld Td } bd
  585. /' { T* Tj } bd
  586. /" { exch Tc exch Tw ' } bd
  587. /TJ {
  588. {
  589. dup type /stringtype eq
  590. { Tj }
  591. { 0 exch Tk }
  592. ifelse
  593. } forall
  594. } bd
  595. /T- { _hy Tj } bd
  596. /d0/setcharwidth ld
  597. /d1 { setcachedevice /sfc{}dd /ssc{}dd } bd
  598. /nND {{/.notdef} repeat} bd
  599. /T3Defs {
  600. /BuildChar
  601. {
  602. 1 index /Encoding get exch get
  603. 1 index /BuildGlyph get exec
  604. }
  605. def
  606. /BuildGlyph {
  607. exch begin
  608. GlyphProcs exch get exec
  609. end
  610. } def
  611. } bd
  612. /_pdfBoldRomanWidthProc
  613. {
  614. stringwidth 1 index 0 ne { exch .03 add exch }if setcharwidth
  615. } bd
  616. /_pdfType0WidthProc
  617. {
  618. dup stringwidth 0 0 moveto
  619. 2 index true charpath pathbbox
  620. 0 -1
  621. 7 index 2 div .88
  622. setcachedevice2
  623. pop
  624. } bd
  625. /_pdfBoldBaseFont
  626. 10 dict begin
  627. /FontType 3 def
  628. /FontMatrix[1 0 0 1 0 0]def
  629. /FontBBox[0 0 1 1]def
  630. /Encoding cHexEncoding def
  631. /_setwidthProc /_pdfBoldRomanWidthProc load def
  632. /_bcstr1 1 string def
  633. /BuildChar
  634. {
  635. exch begin
  636. _basefont setfont
  637. _bcstr1 dup 0 4 -1 roll put
  638. dup
  639. _setwidthProc
  640. 0 0 moveto
  641. dup show
  642. _basefonto setfont
  643. 0 0 moveto
  644. show
  645. end
  646. }bd
  647. currentdict
  648. end
  649. def
  650. /_pdfVerticalRomanT3Font
  651. 10 dict begin
  652. /FontType 3 def
  653. /FontMatrix[1 0 0 1 0 0]def
  654. /FontBBox[0 0 1 1]def
  655. /_bcstr1 1 string def
  656. /BuildChar
  657. {
  658. exch begin
  659. _basefont setfont
  660. _bcstr1 dup 0 4 -1 roll put
  661. dup
  662. _pdfType0WidthProc
  663. 0 0 moveto
  664. show
  665. end
  666. }bd
  667. currentdict
  668. end
  669. def
  670. /MakeBoldFont
  671. {
  672. dup dup length 2 add dict
  673. begin
  674. CopyFont
  675. /PaintType 2 def
  676. /StrokeWidth .03 0 FontMatrix idtransform pop def
  677. /dummybold currentdict
  678. end
  679. definefont
  680. _pdfBoldBaseFont 8 dict copy begin
  681. /_basefont exch def
  682. /_basefonto exch def
  683. currentdict
  684. end
  685. definefont
  686. } bd
  687. /MakeBold {
  688. findfont dup
  689. /FontType get 0 eq
  690. {
  691. _pdfBoldBaseFont /_setwidthProc /_pdfType0WidthProc load put
  692. {MakeBoldFont} Type0CopyFont definefont
  693. }
  694. {
  695. dup /_fauxfont known not
  696. {
  697. _pdfBoldBaseFont /_setwidthProc /_pdfBoldRomanWidthProc load put
  698. MakeBoldFont
  699. }
  700. { definefont }
  701. ifelse
  702. }
  703. ifelse
  704. pop
  705. }bd
  706. /MakeItalic {
  707. findfont
  708. dup /WMode 2 copy known
  709. {
  710. get 1 eq
  711. { _italMtx_WMode1 }
  712. { _italMtx }
  713. ifelse
  714. }
  715. { pop pop _italMtx }
  716. ifelse
  717. makefont
  718. definefont pop
  719. }bd
  720. /MakeBoldItalic {
  721. /dummybold exch
  722. MakeBold
  723. /dummybold
  724. MakeItalic
  725. }bd
  726. currentdict readonly pop end
  727. %%EndFile
  728.