home *** CD-ROM | disk | FTP | other *** search
/ Boot Disc 12 / boot-disc-1997-08.iso / ILSTRATR / ARCHIVE.Z / ProcSets.aip / TEXT / 1013 < prev    next >
Text File  |  1997-05-07  |  5KB  |  432 lines
  1. %%BeginResource: procset Adobe_typography_AI5 1.0 1
  2. %%Title: (Typography Operators)
  3. %%Version: 1.0 1
  4. %%CreationDate:(03/26/93) ()
  5. %%Copyright: ((C) 1987-1996 Adobe Systems Incorporated All Rights Reserved)
  6. currentpacking true setpacking
  7. userdict /Adobe_typography_AI5 54 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. /TE
  58. {
  59.     StandardEncoding 256 array copy modifyEncoding
  60.     /_nativeEncoding exch def
  61. } def
  62. %
  63. /TZ
  64. {
  65.     dup type /arraytype eq
  66.     {
  67.         /_wv exch def
  68.     }
  69.     {
  70.         /_wv 0 def
  71.     } ifelse
  72.     /_useNativeEncoding exch def
  73.     pop pop
  74.     findfont _wv type /arraytype eq
  75.     {
  76.         _wv makeblendedfont
  77.     } if
  78.     dup length 2 add dict
  79.  begin
  80.     mark exch
  81.     {
  82.         1 index /FID ne
  83.         {
  84.             def
  85.         } if
  86.         cleartomark mark
  87.     } forall
  88.     pop
  89.     /FontName exch def
  90.     counttomark 0 eq
  91.     {
  92.         1 _useNativeEncoding eq
  93.         {
  94.             /Encoding _nativeEncoding def
  95.         } if
  96.         cleartomark
  97.     }
  98.     {
  99.         /Encoding load 256 array copy
  100.         modifyEncoding /Encoding exch def
  101.     } ifelse
  102.     FontName currentdict
  103.  end
  104.     definefont pop
  105. } def
  106. /tr
  107. {
  108.     _ax _ay 3 2 roll
  109. } def
  110. /trj
  111. {
  112.     _cx _cy _sp _ax _ay 6 5 roll
  113. } def
  114. /a0
  115. {
  116.     /Tx
  117.     {
  118.         dup
  119.         currentpoint 3 2 roll
  120.         tr _psf
  121.         newpath moveto
  122.         tr _ctm _pss
  123.     } ddef
  124.     /Tj
  125.     {
  126.         dup
  127.         currentpoint 3 2 roll
  128.         trj _pjsf
  129.         newpath moveto
  130.         trj _ctm _pjss
  131.     } ddef
  132. } def
  133. /a1
  134. {
  135.     /Tx
  136.     {
  137.         dup currentpoint 4 2 roll gsave
  138.         dup currentpoint 3 2 roll
  139.         tr _psf
  140.         newpath moveto
  141.         tr _ctm _pss
  142.         grestore 3 1 roll moveto tr sp
  143.     } ddef
  144.     /Tj
  145.     {
  146.         dup currentpoint 4 2 roll gsave
  147.         dup currentpoint 3 2 roll
  148.         trj _pjsf
  149.         newpath moveto
  150.         trj _ctm _pjss
  151.         grestore 3 1 roll moveto tr jsp
  152.     } ddef
  153. } def
  154. /e0
  155. {
  156.     /Tx
  157.     {
  158.         tr _psf
  159.     } ddef
  160.     /Tj
  161.     {
  162.         trj _pjsf
  163.     } ddef
  164. } def
  165. /e1
  166. {
  167.     /Tx
  168.     {
  169.         dup currentpoint 4 2 roll gsave
  170.         tr _psf
  171.         grestore 3 1 roll moveto tr sp
  172.     } ddef
  173.     /Tj
  174.     {
  175.         dup currentpoint 4 2 roll gsave
  176.         trj _pjsf
  177.         grestore 3 1 roll moveto tr jsp
  178.     } ddef
  179. } def
  180. /i0
  181. {
  182.     /Tx
  183.     {
  184.         tr sp
  185.     } ddef
  186.     /Tj
  187.     {
  188.         trj jsp
  189.     } ddef
  190. } def
  191. /i1
  192. {
  193.     W N
  194. } def
  195. /o0
  196. {
  197.     /Tx
  198.     {
  199.         tr sw rmoveto
  200.     } ddef
  201.     /Tj
  202.     {
  203.         trj swj rmoveto
  204.     } ddef
  205. } def
  206. /r0
  207. {
  208.     /Tx
  209.     {
  210.         tr _ctm _pss
  211.     } ddef
  212.     /Tj
  213.     {
  214.         trj _ctm _pjss
  215.     } ddef
  216. } def
  217. /r1
  218. {
  219.     /Tx
  220.     {
  221.         dup currentpoint 4 2 roll currentpoint gsave newpath moveto
  222.         tr _ctm _pss
  223.         grestore 3 1 roll moveto tr sp
  224.     } ddef
  225.     /Tj
  226.     {
  227.         dup currentpoint 4 2 roll currentpoint gsave newpath moveto
  228.         trj _ctm _pjss
  229.         grestore 3 1 roll moveto tr jsp
  230.     } ddef
  231. } def
  232. /To
  233. {
  234.     pop _ctm currentmatrix pop
  235. } def
  236. /TO
  237. {
  238.     iTe _ctm setmatrix newpath
  239. } def
  240. /Tp
  241. {
  242.     pop _tm astore pop _ctm setmatrix
  243.     _tDict begin
  244.     /W
  245.     {
  246.     } def
  247.     /h
  248.     {
  249.     } def
  250. } def
  251. /TP
  252. {
  253.  end
  254.     iTm 0 0 moveto
  255. } def
  256. /Tr
  257. {
  258.     _render 3 le
  259.     {
  260.         currentpoint newpath moveto
  261.     } if
  262.     dup 8 eq
  263.     {
  264.         pop 0
  265.     }
  266.     {
  267.         dup 9 eq
  268.         {
  269.             pop 1
  270.         } if
  271.     } ifelse
  272.     dup /_render exch ddef
  273.     _renderStart exch get load exec
  274. } def
  275. /iTm
  276. {
  277.     _ctm setmatrix _tm concat 0 _rise translate _hs 1 scale
  278. } def
  279. /Tm
  280. {
  281.     _tm astore pop iTm 0 0 moveto
  282. } def
  283. /Td
  284. {
  285.     _mtx translate _tm _tm concatmatrix pop iTm 0 0 moveto
  286. } def
  287. /iTe
  288. {
  289.     _render -1 eq
  290.     {
  291.     }
  292.     {
  293.         _renderEnd _render get dup null ne
  294.         {
  295.             load exec
  296.         }
  297.         {
  298.             pop
  299.         } ifelse
  300.     } ifelse
  301.     /_render -1 ddef
  302. } def
  303. /Ta
  304. {
  305.     pop
  306. } def
  307. /Tf
  308. {
  309.     dup 1000 div /_fScl exch ddef
  310. %
  311.     selectfont
  312. } def
  313. /Tl
  314. {
  315.     pop
  316.     0 exch _leading astore pop
  317. } def
  318. /Tt
  319. {
  320.     pop
  321. } def
  322. /TW
  323. {
  324.     3 npop
  325. } def
  326. /Tw
  327. {
  328.     /_cx exch ddef
  329. } def
  330. /TC
  331. {
  332.     3 npop
  333. } def
  334. /Tc
  335. {
  336.     /_ax exch ddef
  337. } def
  338. /Ts
  339. {
  340.     /_rise exch ddef
  341.     currentpoint
  342.     iTm
  343.     moveto
  344. } def
  345. /Ti
  346. {
  347.     3 npop
  348. } def
  349. /Tz
  350. {
  351.     100 div /_hs exch ddef
  352.     iTm
  353. } def
  354. /TA
  355. {
  356.     pop
  357. } def
  358. /Tq
  359. {
  360.     pop
  361. } def
  362. /Th
  363. {
  364.     pop pop pop pop pop
  365. } def
  366. /TX
  367. {
  368.     pop
  369. } def
  370. /Tk
  371. {
  372.     exch pop _fScl mul neg 0 rmoveto
  373. } def
  374. /TK
  375. {
  376.     2 npop
  377. } def
  378. /T*
  379. {
  380.     _leading aload pop neg Td
  381. } def
  382. /T*-
  383. {
  384.     _leading aload pop Td
  385. } def
  386. /T-
  387. {
  388.     _ax neg 0 rmoveto
  389.     _hyphen Tx
  390. } def
  391. /T+
  392. {
  393. } def
  394. /TR
  395. {
  396.     _ctm currentmatrix pop
  397.     _tm astore pop
  398.     iTm 0 0 moveto
  399. } def
  400. /TS
  401. {
  402.     currentfont 3 1 roll
  403.     /_Symbol_ _fScl 1000 mul selectfont
  404.     
  405.     0 eq
  406.     {
  407.         Tx
  408.     }
  409.     {
  410.         Tj
  411.     } ifelse
  412.     setfont
  413. } def
  414. /Xb
  415. {
  416.     pop pop
  417. } def
  418. /Tb /Xb load def
  419. /Xe
  420. {
  421.     pop pop pop pop
  422. } def
  423. /Te /Xe load def
  424. /XB
  425. {
  426. } def
  427. /TB /XB load def
  428. currentdict readonly pop
  429. end
  430. setpacking
  431. %%EndResource
  432.