home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 August / PCWorld_1999-08_cd.bin / Novinky / adobe / Instal / archive.z / AIRes.dll / TEXT / 1020 < prev    next >
Text File  |  1998-10-05  |  7KB  |  607 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.             1 index 0 eq
  149.             {
  150.                 dup length 1 sub
  151.                 1 exch
  152.                 getinterval
  153.                 
  154.                 cvn
  155.                 findfont
  156.             }
  157.             {
  158.                 pop 2 index findfont
  159.             } ifelse
  160.         } ifelse
  161.     }
  162.     {
  163.         dup 1 eq
  164.         {
  165.             2 index 64 string cvs
  166.             dup (-90pv-RKSJ-) (-83pv-RKSJ-) subststring
  167.             {
  168.                 exch pop dup havefont
  169.                 {
  170.                     findfont false
  171.                 }
  172.                 {
  173.                     pop true
  174.                 } ifelse
  175.             }
  176.             {
  177.                 pop    dup
  178.                 (-90ms-RKSJ-) (-Ext-RKSJ-) subststring
  179.                 {
  180.                     exch pop dup havefont
  181.                     {
  182.                         findfont false
  183.                     }
  184.                     {
  185.                         pop true
  186.                     } ifelse
  187.                 }
  188.                 {
  189.                     pop pop true
  190.                 } ifelse
  191.             } ifelse
  192.             {
  193.                 1 index 1 eq
  194.                 {
  195.                     /Ryumin-Light-Ext-RKSJ-V havefont
  196.                     {/Ryumin-Light-Ext-RKSJ-V}
  197.                     {/Courier}
  198.                     ifelse
  199.                 }
  200.                 {
  201.                     /Ryumin-Light-83pv-RKSJ-H havefont
  202.                     {/Ryumin-Light-83pv-RKSJ-H}
  203.                     {/Courier}
  204.                     ifelse
  205.                 } ifelse
  206.                 findfont
  207.                 [1 0 0.5 1 0 0] makefont
  208.             } if
  209.         }
  210.         {
  211.             /Courier findfont
  212.         } ifelse
  213.     } ifelse
  214.     _wv type /arraytype eq
  215.     {
  216.         _wv makeblendedfont
  217.     } if
  218.     dup length 10 add dict
  219.  begin
  220.     mark exch
  221.     {
  222.         1 index /FID ne
  223.         {
  224.             def
  225.         } if
  226.         cleartomark mark
  227.     } forall
  228.     pop
  229.     /FontScript exch def
  230.     /FontDirection exch def
  231.     /FontRequest exch def
  232.     /FontName exch def
  233.     counttomark 0 eq
  234.     {
  235.         1 _useNativeEncoding eq
  236.         {
  237.             /Encoding _nativeEncoding def
  238.         } if
  239.         cleartomark
  240.     }
  241.     {
  242.         /Encoding load 256 array copy
  243.         modifyEncoding /Encoding exch def
  244.     } ifelse
  245.     FontName currentdict
  246.  end
  247.     definefont pop
  248. } def
  249. /tr
  250. {
  251.     _ax _ay 3 2 roll
  252. } def
  253. /trj
  254. {
  255.     _cx _cy _sp _ax _ay 6 5 roll
  256. } def
  257. /a0
  258. {
  259.     /Tx
  260.     {
  261.         dup
  262.         currentpoint 3 2 roll
  263.         tr _psf
  264.         newpath moveto
  265.         tr _ctm _pss
  266.     } ddef
  267.     /Tj
  268.     {
  269.         dup
  270.         currentpoint 3 2 roll
  271.         trj _pjsf
  272.         newpath moveto
  273.         trj _ctm _pjss
  274.     } ddef
  275. } def
  276. /a1
  277. {
  278. W B
  279. } def
  280. /e0
  281. {
  282.     /Tx
  283.     {
  284.         tr _psf
  285.     } ddef
  286.     /Tj
  287.     {
  288.         trj _pjsf
  289.     } ddef
  290. } def
  291. /e1
  292. {
  293. W F 
  294. } def
  295. /i0
  296. {
  297.     /Tx
  298.     {
  299.         tr sp
  300.     } ddef
  301.     /Tj
  302.     {
  303.         trj jsp
  304.     } ddef
  305. } def
  306. /i1
  307. {
  308.     W N
  309. } def
  310. /o0
  311. {
  312.     /Tx
  313.     {
  314.         tr sw rmoveto
  315.     } ddef
  316.     /Tj
  317.     {
  318.         trj swj rmoveto
  319.     } ddef
  320. } def
  321. /r0
  322. {
  323.     /Tx
  324.     {
  325.         tr _ctm _pss
  326.     } ddef
  327.     /Tj
  328.     {
  329.         trj _ctm _pjss
  330.     } ddef
  331. } def
  332. /r1
  333. {
  334. W S
  335. } def
  336. /To
  337. {
  338.     pop _ctm currentmatrix pop
  339. } def
  340. /TO
  341. {
  342.     iTe _ctm setmatrix newpath
  343. } def
  344. /Tp
  345. {
  346.     pop _tm astore pop _ctm setmatrix
  347.     _tDict begin
  348.     /W
  349.     {
  350.     } def
  351.     /h
  352.     {
  353.     } def
  354. } def
  355. /TP
  356. {
  357.  end
  358.     iTm 0 0 moveto
  359. } def
  360. /Tr
  361. {
  362.     _render 3 le
  363.     {
  364.         currentpoint newpath moveto
  365.     } if
  366.     dup 8 eq
  367.     {
  368.         pop 0
  369.     }
  370.     {
  371.         dup 9 eq
  372.         {
  373.             pop 1
  374.         } if
  375.     } ifelse
  376.     dup /_render exch ddef
  377.     _renderStart exch get load exec
  378. } def
  379. /iTm
  380. {
  381.     _ctm setmatrix _tm concat
  382.     _shift aload pop _lineorientation 1 eq { exch } if translate
  383.     _scale aload pop _lineorientation 1 eq _yokoorientation 1 eq or { exch } if scale
  384. } def
  385. /Tm
  386. {
  387.     _tm astore pop iTm 0 0 moveto
  388. } def
  389. /Td
  390. {
  391.     _mtx translate _tm _tm concatmatrix pop iTm 0 0 moveto
  392. } def
  393. /iTe
  394. {
  395.     _render -1 eq
  396.     {
  397.     }
  398.     {
  399.         _renderEnd _render get dup null ne
  400.         {
  401.             load exec
  402.         }
  403.         {
  404.             pop
  405.         } ifelse
  406.     } ifelse
  407.     /_render -1 ddef
  408. } def
  409. /Ta
  410. {
  411.     pop
  412. } def
  413. /Tf
  414. {
  415.     1 index type /nametype eq
  416.     {
  417.         dup 0.75 mul 1 index 0.25 mul neg
  418.     } if
  419.     /_fontDescent exch ddef
  420.     /_fontAscent exch ddef
  421.     /_fontSize exch ddef
  422.     /_fontRotateAdjust _fontAscent _fontDescent add 2 div neg ddef
  423.     /_fontHeight _fontSize ddef
  424.     findfont _fontSize scalefont setfont
  425. } def
  426. /Tl
  427. {
  428.     pop neg 0 exch
  429.     _leading astore pop
  430. } def
  431. /Tt
  432. {
  433.     pop
  434. } def
  435. /TW
  436. {
  437.     3 npop
  438. } def
  439. /Tw
  440. {
  441.     /_cx exch ddef
  442. } def
  443. /TC
  444. {
  445.     3 npop
  446. } def
  447. /Tc
  448. {
  449.     /_ax exch ddef
  450. } def
  451. /Ts
  452. {
  453.     0 exch
  454.     _shift astore pop
  455.     currentpoint
  456.     iTm
  457.     moveto
  458. } def
  459. /Ti
  460. {
  461.     3 npop
  462. } def
  463. /Tz
  464. {
  465.     count 1 eq { 100 } if
  466.     100 div exch 100 div exch
  467.     _scale astore pop
  468.     iTm
  469. } def
  470. /TA
  471. {
  472.     pop
  473. } def
  474. /Tq
  475. {
  476.     pop
  477. } def
  478. /Tg
  479. {
  480.     pop
  481. } def
  482. /TG
  483. {
  484.     pop
  485. } def
  486. /Tv
  487. {
  488.     /_lineorientation exch ddef
  489. } def
  490. /TV
  491. {
  492.     /_charorientation exch ddef
  493. } def
  494. /Ty
  495. {
  496.     dup /_yokoorientation exch ddef 1 sub neg Tv
  497. } def
  498. /TY
  499. {
  500.     pop
  501. } def
  502. /T~
  503. {
  504.     Tx
  505. } def
  506. /Th
  507. {
  508.     pop pop pop pop pop
  509. } def
  510. /TX
  511. {
  512.     pop
  513. } def
  514. /Tk
  515. {
  516.     _fontSize mul 1000 div
  517.     _lineorientation 0 eq { neg 0 } { 0 exch } ifelse
  518.     rmoveto
  519.     pop
  520. } def
  521. /TK
  522. {
  523.     2 npop
  524. } def
  525. /T*
  526. {
  527.     _leading aload pop
  528.     _lineorientation 0 ne { exch } if
  529.     Td
  530. } def
  531. /T*-
  532. {
  533.     _leading aload pop
  534.     _lineorientation 0 ne { exch } if
  535.     exch neg exch neg
  536.     Td
  537. } def
  538. /T-
  539. {
  540.     _ax neg 0 rmoveto
  541.     _lineorientation 1 eq _charorientation 0 eq and { 1 TV _hyphen Tx 0 TV } { _hyphen Tx } ifelse
  542. } def
  543. /T+
  544. {
  545. } def
  546. /TR
  547. {
  548.     _ctm currentmatrix pop
  549.     _tm astore pop
  550.     iTm 0 0 moveto
  551. } def
  552. /TS
  553. {
  554.     currentfont 3 1 roll
  555.     /_Symbol_ findfont _fontSize scalefont setfont
  556.     
  557.     0 eq
  558.     {
  559.         Tx
  560.     }
  561.     {
  562.         Tj
  563.     } ifelse
  564.     setfont
  565. } def
  566. /Xb
  567. {
  568.     pop pop
  569. } def
  570. /Tb /Xb load def
  571. /Xe
  572. {
  573.     pop pop pop pop
  574. } def
  575. /Te /Xe load def
  576. /XB
  577. {
  578. } def
  579. /TB /XB load def
  580. currentdict readonly pop
  581. end
  582. setpacking
  583. %
  584. /X^
  585. {
  586.     currentfont 5 1 roll
  587.     dup havefont
  588.         {
  589.         findfont _fontSize scalefont setfont
  590.         }
  591.         {
  592.         pop
  593.         exch
  594.         } ifelse
  595.     2 index 0 eq
  596.     {
  597.         Tx
  598.     }
  599.     {
  600.         Tj
  601.     } ifelse
  602.     pop    pop
  603.     setfont
  604. } def
  605. /T^    /X^    load def
  606. %%EndResource
  607.