home *** CD-ROM | disk | FTP | other *** search
/ Boot Disc 12 / boot-disc-1997-08.iso / ILSTRATR / ARCHIVE.Z / ProcSets.aip / TEXT / 1020 < prev    next >
Text File  |  1997-05-07  |  7KB  |  592 lines
  1. %%BeginResource: procset Adobe_typography_AI5 1.0 1
  2. %%Title: (Typography Operators)
  3. %%Version: 1.0 1
  4. %%CreationDate:(6/10/1996) ()
  5. %%Copyright: ((C) 1987-1996 Adobe Systems Incorporated All Rights Reserved)
  6. currentpacking true setpacking
  7. userdict /Adobe_typography_AI5 68 dict dup begin
  8. put
  9. /initialize
  10. {
  11.  begin
  12.  begin
  13.     Adobe_typography_AI5 begin
  14.     Adobe_typography_AI5
  15.     {
  16.         dup xcheck
  17.         {
  18.             bind
  19.         } if
  20.         pop pop
  21.     } forall
  22.  end
  23.  end
  24.  end
  25.     Adobe_typography_AI5 begin
  26. } def
  27. /terminate
  28. {
  29.     currentdict Adobe_typography_AI5 eq
  30.     {
  31.      end
  32.     } if
  33. } def
  34. /modifyEncoding
  35. {
  36.     /_tempEncode exch ddef
  37.     /_pntr 0 ddef
  38.     {
  39.         counttomark -1 roll
  40.         dup type dup /marktype eq
  41.         {
  42.             pop pop exit
  43.         }
  44.         {
  45.             /nametype eq
  46.             {
  47.                 _tempEncode /_pntr dup load dup 3 1 roll 1 add ddef 3 -1 roll
  48.                 put
  49.             }
  50.             {
  51.                 /_pntr exch ddef
  52.             } ifelse
  53.         } ifelse
  54.     } loop
  55.     _tempEncode
  56. } def
  57. /havefont
  58. {
  59.     systemdict /languagelevel known
  60.         {
  61.         /Font resourcestatus dup
  62.             { exch pop exch pop }
  63.         if
  64.         }
  65.         {
  66.         systemdict /FontDirectory get 1 index known
  67.             { pop true }
  68.             {
  69.             systemdict /fileposition known
  70.                 {
  71.                 dup length 6 add exch
  72.                 Ss 6 250 getinterval
  73.                 cvs pop
  74.                 Ss exch 0 exch getinterval
  75.                 status
  76.                     { pop pop pop pop true }
  77.                     { false }
  78.                 ifelse
  79.                 }
  80.                 {
  81.                 pop false
  82.                 }
  83.             ifelse
  84.             }
  85.         ifelse
  86.         }
  87.     ifelse
  88. } def
  89. /TE
  90. {
  91.     StandardEncoding 256 array copy modifyEncoding
  92.     /_nativeEncoding exch def
  93. } def
  94. /subststring {
  95.     exch 2 index exch search
  96.     {
  97.         exch pop
  98.         exch dup () eq
  99.         {
  100.             pop exch concatstring
  101.         }
  102.         {
  103.             3 -1 roll
  104.             exch concatstring
  105.             concatstring
  106.         } ifelse
  107.         exch pop true
  108.     }
  109.     {
  110.         pop pop false
  111.     } ifelse
  112. } def
  113. /concatstring {
  114.     1 index length 1 index length
  115.     1 index add
  116.     string
  117.     dup 0 5 index putinterval
  118.     dup 2 index 4 index putinterval
  119.     4 1 roll pop pop pop
  120. } def
  121. %
  122. /TZ
  123. {
  124.     dup type /arraytype eq
  125.     {
  126.         /_wv exch def
  127.     }
  128.     {
  129.         /_wv 0 def
  130.     } ifelse
  131.     /_useNativeEncoding exch def
  132.     2 index havefont
  133.     {
  134.         3 index
  135.         255 string
  136.         cvs
  137.         
  138.         dup
  139.         (_Symbol_)
  140.         eq
  141.         {
  142.             pop
  143.             2 index
  144.             findfont
  145.             
  146.         }
  147.         {
  148.             dup length 1 sub
  149.             1 exch
  150.             getinterval
  151.             
  152.             cvn
  153.             findfont
  154.         } ifelse
  155.     }
  156.     {
  157.         dup 1 eq
  158.         {
  159.             2 index 64 string cvs
  160.             dup (-90pv-RKSJ-) (-83pv-RKSJ-) subststring
  161.             {
  162.                 exch pop dup havefont
  163.                 {
  164.                     findfont false
  165.                 }
  166.                 {
  167.                     pop true
  168.                 } ifelse
  169.             }
  170.             {
  171.                 pop    dup
  172.                 (-90ms-RKSJ-) (-Ext-RKSJ-) subststring
  173.                 {
  174.                     exch pop dup havefont
  175.                     {
  176.                         findfont false
  177.                     }
  178.                     {
  179.                         pop true
  180.                     } ifelse
  181.                 }
  182.                 {
  183.                     pop pop true
  184.                 } ifelse
  185.             } ifelse
  186.             {
  187.                 /Ryumin-Light-83pv-RKSJ-H havefont
  188.                     {/Ryumin-Light-83pv-RKSJ-H}
  189.                     {/Courier}
  190.                     ifelse
  191.                     findfont
  192.                     [1 0 0.5 1 0 0] makefont
  193.             } if
  194.         }
  195.         {
  196.             /Courier findfont
  197.         } ifelse
  198.     } ifelse
  199.     _wv type /arraytype eq
  200.     {
  201.         _wv makeblendedfont
  202.     } if
  203.     dup length 10 add dict
  204.  begin
  205.     mark exch
  206.     {
  207.         1 index /FID ne
  208.         {
  209.             def
  210.         } if
  211.         cleartomark mark
  212.     } forall
  213.     pop
  214.     /FontScript exch def
  215.     /FontDirection exch def
  216.     /FontRequest exch def
  217.     /FontName exch def
  218.     counttomark 0 eq
  219.     {
  220.         1 _useNativeEncoding eq
  221.         {
  222.             /Encoding _nativeEncoding def
  223.         } if
  224.         cleartomark
  225.     }
  226.     {
  227.         /Encoding load 256 array copy
  228.         modifyEncoding /Encoding exch def
  229.     } ifelse
  230.     FontName currentdict
  231.  end
  232.     definefont pop
  233. } def
  234. /tr
  235. {
  236.     _ax _ay 3 2 roll
  237. } def
  238. /trj
  239. {
  240.     _cx _cy _sp _ax _ay 6 5 roll
  241. } def
  242. /a0
  243. {
  244.     /Tx
  245.     {
  246.         dup
  247.         currentpoint 3 2 roll
  248.         tr _psf
  249.         newpath moveto
  250.         tr _ctm _pss
  251.     } ddef
  252.     /Tj
  253.     {
  254.         dup
  255.         currentpoint 3 2 roll
  256.         trj _pjsf
  257.         newpath moveto
  258.         trj _ctm _pjss
  259.     } ddef
  260. } def
  261. /a1
  262. {
  263. W B
  264. } def
  265. /e0
  266. {
  267.     /Tx
  268.     {
  269.         tr _psf
  270.     } ddef
  271.     /Tj
  272.     {
  273.         trj _pjsf
  274.     } ddef
  275. } def
  276. /e1
  277. {
  278. W F 
  279. } def
  280. /i0
  281. {
  282.     /Tx
  283.     {
  284.         tr sp
  285.     } ddef
  286.     /Tj
  287.     {
  288.         trj jsp
  289.     } ddef
  290. } def
  291. /i1
  292. {
  293.     W N
  294. } def
  295. /o0
  296. {
  297.     /Tx
  298.     {
  299.         tr sw rmoveto
  300.     } ddef
  301.     /Tj
  302.     {
  303.         trj swj rmoveto
  304.     } ddef
  305. } def
  306. /r0
  307. {
  308.     /Tx
  309.     {
  310.         tr _ctm _pss
  311.     } ddef
  312.     /Tj
  313.     {
  314.         trj _ctm _pjss
  315.     } ddef
  316. } def
  317. /r1
  318. {
  319. W S
  320. } def
  321. /To
  322. {
  323.     pop _ctm currentmatrix pop
  324. } def
  325. /TO
  326. {
  327.     iTe _ctm setmatrix newpath
  328. } def
  329. /Tp
  330. {
  331.     pop _tm astore pop _ctm setmatrix
  332.     _tDict begin
  333.     /W
  334.     {
  335.     } def
  336.     /h
  337.     {
  338.     } def
  339. } def
  340. /TP
  341. {
  342.  end
  343.     iTm 0 0 moveto
  344. } def
  345. /Tr
  346. {
  347.     _render 3 le
  348.     {
  349.         currentpoint newpath moveto
  350.     } if
  351.     dup 8 eq
  352.     {
  353.         pop 0
  354.     }
  355.     {
  356.         dup 9 eq
  357.         {
  358.             pop 1
  359.         } if
  360.     } ifelse
  361.     dup /_render exch ddef
  362.     _renderStart exch get load exec
  363. } def
  364. /iTm
  365. {
  366.     _ctm setmatrix _tm concat
  367.     _shift aload pop _lineorientation 1 eq { exch } if translate
  368.     _scale aload pop _lineorientation 1 eq _yokoorientation 1 eq or { exch } if scale
  369. } def
  370. /Tm
  371. {
  372.     _tm astore pop iTm 0 0 moveto
  373. } def
  374. /Td
  375. {
  376.     _mtx translate _tm _tm concatmatrix pop iTm 0 0 moveto
  377. } def
  378. /iTe
  379. {
  380.     _render -1 eq
  381.     {
  382.     }
  383.     {
  384.         _renderEnd _render get dup null ne
  385.         {
  386.             load exec
  387.         }
  388.         {
  389.             pop
  390.         } ifelse
  391.     } ifelse
  392.     /_render -1 ddef
  393. } def
  394. /Ta
  395. {
  396.     pop
  397. } def
  398. /Tf
  399. {
  400.     1 index type /nametype eq
  401.     {
  402.         dup 0.75 mul 1 index 0.25 mul neg
  403.     } if
  404.     /_fontDescent exch ddef
  405.     /_fontAscent exch ddef
  406.     /_fontSize exch ddef
  407.     /_fontRotateAdjust _fontAscent _fontDescent add 2 div neg ddef
  408.     /_fontHeight _fontSize ddef
  409.     findfont _fontSize scalefont setfont
  410. } def
  411. /Tl
  412. {
  413.     pop neg 0 exch
  414.     _leading astore pop
  415. } def
  416. /Tt
  417. {
  418.     pop
  419. } def
  420. /TW
  421. {
  422.     3 npop
  423. } def
  424. /Tw
  425. {
  426.     /_cx exch ddef
  427. } def
  428. /TC
  429. {
  430.     3 npop
  431. } def
  432. /Tc
  433. {
  434.     /_ax exch ddef
  435. } def
  436. /Ts
  437. {
  438.     0 exch
  439.     _shift astore pop
  440.     currentpoint
  441.     iTm
  442.     moveto
  443. } def
  444. /Ti
  445. {
  446.     3 npop
  447. } def
  448. /Tz
  449. {
  450.     count 1 eq { 100 } if
  451.     100 div exch 100 div exch
  452.     _scale astore pop
  453.     iTm
  454. } def
  455. /TA
  456. {
  457.     pop
  458. } def
  459. /Tq
  460. {
  461.     pop
  462. } def
  463. /Tg
  464. {
  465.     pop
  466. } def
  467. /TG
  468. {
  469.     pop
  470. } def
  471. /Tv
  472. {
  473.     /_lineorientation exch ddef
  474. } def
  475. /TV
  476. {
  477.     /_charorientation exch ddef
  478. } def
  479. /Ty
  480. {
  481.     dup /_yokoorientation exch ddef 1 sub neg Tv
  482. } def
  483. /TY
  484. {
  485.     pop
  486. } def
  487. /T~
  488. {
  489.     Tx
  490. } def
  491. /Th
  492. {
  493.     pop pop pop pop pop
  494. } def
  495. /TX
  496. {
  497.     pop
  498. } def
  499. /Tk
  500. {
  501.     _fontSize mul 1000 div
  502.     _lineorientation 0 eq { neg 0 } { 0 exch } ifelse
  503.     rmoveto
  504.     pop
  505. } def
  506. /TK
  507. {
  508.     2 npop
  509. } def
  510. /T*
  511. {
  512.     _leading aload pop
  513.     _lineorientation 0 ne { exch } if
  514.     Td
  515. } def
  516. /T*-
  517. {
  518.     _leading aload pop
  519.     _lineorientation 0 ne { exch } if
  520.     exch neg exch neg
  521.     Td
  522. } def
  523. /T-
  524. {
  525.     _ax neg 0 rmoveto
  526.     _lineorientation 1 eq _charorientation 0 eq and { 1 TV _hyphen Tx 0 TV } { _hyphen Tx } ifelse
  527. } def
  528. /T+
  529. {
  530. } def
  531. /TR
  532. {
  533.     _ctm currentmatrix pop
  534.     _tm astore pop
  535.     iTm 0 0 moveto
  536. } def
  537. /TS
  538. {
  539.     currentfont 3 1 roll
  540.     /_Symbol_ findfont _fontSize scalefont setfont
  541.     
  542.     0 eq
  543.     {
  544.         Tx
  545.     }
  546.     {
  547.         Tj
  548.     } ifelse
  549.     setfont
  550. } def
  551. /Xb
  552. {
  553.     pop pop
  554. } def
  555. /Tb /Xb load def
  556. /Xe
  557. {
  558.     pop pop pop pop
  559. } def
  560. /Te /Xe load def
  561. /XB
  562. {
  563. } def
  564. /TB /XB load def
  565. currentdict readonly pop
  566. end
  567. setpacking
  568. %
  569. /X^
  570. {
  571.     currentfont 5 1 roll
  572.     dup havefont
  573.         {
  574.         findfont _fontSize scalefont setfont
  575.         }
  576.         {
  577.         pop
  578.         exch
  579.         } ifelse
  580.     2 index 0 eq
  581.     {
  582.         Tx
  583.     }
  584.     {
  585.         Tj
  586.     } ifelse
  587.     pop    pop
  588.     setfont
  589. } def
  590. /T^    /X^    load def
  591. %%EndResource
  592.