home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fonts 1 / freshfonts1.bin / programs / amiga / mma2ltx / texmma22.lpr < prev    next >
Text File  |  1994-09-01  |  13KB  |  1,340 lines
  1. %% Mathematica v2.2 prologue.
  2. %%
  3. %% Edited output from a picture saved by Mathematica v2.2 in 'PS' form.
  4. %% Removed the first five header lines (from `%!PS-Adobe-2.0 EPSF-2.0' to
  5. %% `%%EndComments').
  6. %% Removed line `/Mwidth 8.500 72 mul def'.
  7. %% Removed line `/Mheight 11.000 72 mul def'.
  8. %% Removed line `/Mtransform {  } bind def'.
  9. %% Removed line `showpage' at the end of the file.
  10. %% Removed lines containing the graphics (from `%!' to `MathPictureEnd').
  11. /Mathdict 150 dict def
  12. Mathdict begin
  13. /Mlmarg        0 def
  14. /Mrmarg        0 def
  15. /Mbmarg        0 def
  16. /Mtmarg        0 def
  17. /Mtransform    {  } bind def
  18. /Mfixwid    true def
  19. /Mfixdash    false def
  20. /Mrot        0 def
  21. /Mpstart {
  22. MathPictureStart
  23. } bind def
  24. /Mpend {
  25. MathPictureEnd
  26. } bind def
  27. /Mscale {
  28. 0 1 0 1
  29. 5 -1 roll
  30. MathScale
  31. } bind def
  32. /ISOLatin1Encoding dup where
  33. { pop pop }
  34. {
  35. [
  36. /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
  37. /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
  38. /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
  39. /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
  40. /space /exclam /quotedbl /numbersign /dollar /percent /ampersand /quoteright
  41. /parenleft /parenright /asterisk /plus /comma /minus /period /slash
  42. /zero /one /two /three /four /five /six /seven
  43. /eight /nine /colon /semicolon /less /equal /greater /question
  44. /at /A /B /C /D /E /F /G
  45. /H /I /J /K /L /M /N /O
  46. /P /Q /R /S /T /U /V /W
  47. /X /Y /Z /bracketleft /backslash /bracketright /asciicircum /underscore
  48. /quoteleft /a /b /c /d /e /f /g
  49. /h /i /j /k /l /m /n /o
  50. /p /q /r /s /t /u /v /w
  51. /x /y /z /braceleft /bar /braceright /asciitilde /.notdef
  52. /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
  53. /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
  54. /dotlessi /grave /acute /circumflex /tilde /macron /breve /dotaccent
  55. /dieresis /.notdef /ring /cedilla /.notdef /hungarumlaut /ogonek /caron
  56. /space /exclamdown /cent /sterling /currency /yen /brokenbar /section
  57. /dieresis /copyright /ordfeminine /guillemotleft
  58. /logicalnot /hyphen /registered /macron
  59. /degree /plusminus /twosuperior /threesuperior
  60. /acute /mu /paragraph /periodcentered
  61. /cedilla /onesuperior /ordmasculine /guillemotright
  62. /onequarter /onehalf /threequarters /questiondown
  63. /Agrave /Aacute /Acircumflex /Atilde /Adieresis /Aring /AE /Ccedilla
  64. /Egrave /Eacute /Ecircumflex /Edieresis /Igrave /Iacute /Icircumflex /Idieresis
  65. /Eth /Ntilde /Ograve /Oacute /Ocircumflex /Otilde /Odieresis /multiply
  66. /Oslash /Ugrave /Uacute /Ucircumflex /Udieresis /Yacute /Thorn /germandbls
  67. /agrave /aacute /acircumflex /atilde /adieresis /aring /ae /ccedilla
  68. /egrave /eacute /ecircumflex /edieresis /igrave /iacute /icircumflex /idieresis
  69. /eth /ntilde /ograve /oacute /ocircumflex /otilde /odieresis /divide
  70. /oslash /ugrave /uacute /ucircumflex /udieresis /yacute /thorn /ydieresis
  71. ] def
  72. } ifelse
  73. /MFontDict 50 dict def
  74. /MStrCat
  75. {
  76. exch
  77. dup length
  78. 2 index length add
  79. string
  80. dup 3 1 roll
  81. copy
  82. length
  83. exch dup
  84. 4 2 roll exch
  85. putinterval
  86. } def
  87. /MCreateEncoding
  88. {
  89. 1 index
  90. 255 string cvs
  91. (-) MStrCat
  92. 1 index MStrCat
  93. cvn exch
  94. (Encoding) MStrCat
  95. cvn dup where
  96. {
  97. exch get
  98. }
  99. {
  100. pop
  101. StandardEncoding
  102. } ifelse
  103. 3 1 roll
  104. dup MFontDict exch known not
  105. {
  106. 1 index findfont
  107. dup length dict
  108. begin
  109. {1 index /FID ne
  110. {def}
  111. {pop pop}
  112. ifelse} forall
  113. /Encoding 3 index
  114. def
  115. currentdict
  116. end
  117. 1 index exch definefont pop
  118. MFontDict 1 index
  119. null put
  120. }
  121. if
  122. exch pop
  123. exch pop
  124. } def
  125. /ISOLatin1 { (ISOLatin1) MCreateEncoding } def
  126. /ISO8859 { (ISOLatin1) MCreateEncoding } def
  127. /Mcopyfont {
  128. dup
  129. maxlength
  130. dict
  131. exch
  132. {
  133. 1 index
  134. /FID
  135. eq
  136. {
  137. pop pop
  138. }
  139. {
  140. 2 index
  141. 3 1 roll
  142. put
  143. }
  144. ifelse
  145. }
  146. forall
  147. } def
  148. /Plain    /Courier findfont Mcopyfont definefont pop
  149. /Bold    /Courier-Bold findfont Mcopyfont definefont pop
  150. /Italic /Courier-Oblique findfont Mcopyfont definefont pop
  151. /MathPictureStart {
  152. gsave
  153. Mtransform
  154. Mlmarg
  155. Mbmarg
  156. translate
  157. Mwidth
  158. Mlmarg Mrmarg add
  159. sub
  160. /Mwidth exch def
  161. Mheight
  162. Mbmarg Mtmarg add
  163. sub
  164. /Mheight exch def
  165. /Mtmatrix
  166. matrix currentmatrix
  167. def
  168. /Mgmatrix
  169. matrix currentmatrix
  170. def
  171. } bind def
  172. /MathPictureEnd {
  173. grestore
  174. } bind def
  175. /MFill {
  176. 0 0         moveto
  177. Mwidth 0     lineto
  178. Mwidth Mheight     lineto
  179. 0 Mheight     lineto
  180. fill
  181. } bind def
  182. /MPlotRegion {
  183. 3 index
  184. Mwidth mul
  185. 2 index
  186. Mheight mul
  187. translate
  188. exch sub
  189. Mheight mul
  190. /Mheight
  191. exch def
  192. exch sub
  193. Mwidth mul
  194. /Mwidth
  195. exch def
  196. } bind def
  197. /MathSubStart {
  198. Momatrix
  199. Mgmatrix Mtmatrix
  200. Mwidth Mheight
  201. 7 -2 roll
  202. moveto
  203. Mtmatrix setmatrix
  204. currentpoint
  205. Mgmatrix setmatrix
  206. 9 -2 roll
  207. moveto
  208. Mtmatrix setmatrix
  209. currentpoint
  210. 2 copy translate
  211. /Mtmatrix matrix currentmatrix def
  212. 3 -1 roll
  213. exch sub
  214. /Mheight exch def
  215. sub
  216. /Mwidth exch def
  217. } bind def
  218. /MathSubEnd {
  219. /Mheight exch def
  220. /Mwidth exch def
  221. /Mtmatrix exch def
  222. dup setmatrix
  223. /Mgmatrix exch def
  224. /Momatrix exch def
  225. } bind def
  226. /Mdot {
  227. moveto
  228. 0 0 rlineto
  229. stroke
  230. } bind def
  231. /Mtetra {
  232. moveto
  233. lineto
  234. lineto
  235. lineto
  236. fill
  237. } bind def
  238. /Metetra {
  239. moveto
  240. lineto
  241. lineto
  242. lineto
  243. closepath
  244. gsave
  245. fill
  246. grestore
  247. 0 setgray
  248. stroke
  249. } bind def
  250. /Mistroke {
  251. flattenpath
  252. 0 0 0
  253. {
  254. 4 2 roll
  255. pop pop
  256. }
  257. {
  258. 4 -1 roll
  259. 2 index
  260. sub dup mul
  261. 4 -1 roll
  262. 2 index
  263. sub dup mul
  264. add sqrt
  265. 4 -1 roll
  266. add
  267. 3 1 roll
  268. }
  269. {
  270. stop
  271. }
  272. {
  273. stop
  274. }
  275. pathforall
  276. pop pop
  277. currentpoint
  278. stroke
  279. moveto
  280. currentdash
  281. 3 -1 roll
  282. add
  283. setdash
  284. } bind def
  285. /Mfstroke {
  286. stroke
  287. currentdash
  288. pop 0
  289. setdash
  290. } bind def
  291. /Mrotsboxa {
  292. gsave
  293. dup
  294. /Mrot
  295. exch def
  296. Mrotcheck
  297. Mtmatrix
  298. dup
  299. setmatrix
  300. 7 1 roll
  301. 4 index
  302. 4 index
  303. translate
  304. rotate
  305. 3 index
  306. -1 mul
  307. 3 index
  308. -1 mul
  309. translate
  310. /Mtmatrix
  311. matrix
  312. currentmatrix
  313. def
  314. grestore
  315. Msboxa
  316. 3  -1 roll
  317. /Mtmatrix
  318. exch def
  319. /Mrot
  320. 0 def
  321. } bind def
  322. /Msboxa {
  323. newpath
  324. 5 -1 roll
  325. Mvboxa
  326. pop
  327. Mboxout
  328. 6 -1 roll
  329. 5 -1 roll
  330. 4 -1 roll
  331. Msboxa1
  332. 5 -3 roll
  333. Msboxa1
  334. Mboxrot
  335. [
  336. 7 -2 roll
  337. 2 copy
  338. [
  339. 3 1 roll
  340. 10 -1 roll
  341. 9 -1 roll
  342. ]
  343. 6 1 roll
  344. 5 -2 roll
  345. ]
  346. } bind def
  347. /Msboxa1 {
  348. sub
  349. 2 div
  350. dup
  351. 2 index
  352. 1 add
  353. mul
  354. 3 -1 roll
  355. -1 add
  356. 3 -1 roll
  357. mul
  358. } bind def
  359. /Mvboxa    {
  360. Mfixwid
  361. {
  362. Mvboxa1
  363. }
  364. {
  365. dup
  366. Mwidthcal
  367. 0 exch
  368. {
  369. add
  370. }
  371. forall
  372. exch
  373. Mvboxa1
  374. 4 index
  375. 7 -1 roll
  376. add
  377. 4 -1 roll
  378. pop
  379. 3 1 roll
  380. }
  381. ifelse
  382. } bind def
  383. /Mvboxa1 {
  384. gsave
  385. newpath
  386. [ true
  387. 3 -1 roll
  388. {
  389. Mbbox
  390. 5 -1 roll
  391. {
  392. 0
  393. 5 1 roll
  394. }
  395. {
  396. 7 -1 roll
  397. exch sub
  398. (m) stringwidth pop
  399. .3 mul
  400. sub
  401. 7 1 roll
  402. 6 -1 roll
  403. 4 -1 roll
  404. Mmin
  405. 3 -1 roll
  406. 5 index
  407. add
  408. 5 -1 roll
  409. 4 -1 roll
  410. Mmax
  411. 4 -1 roll
  412. }
  413. ifelse
  414. false
  415. }
  416. forall
  417. { stop } if
  418. counttomark
  419. 1 add
  420. 4 roll
  421. ]
  422. grestore
  423. } bind def
  424. /Mbbox {
  425. 1 dict begin
  426. 0 0 moveto
  427. /temp (T) def
  428. {    gsave
  429. currentpoint newpath moveto
  430. temp 0 3 -1 roll put temp
  431. false charpath flattenpath currentpoint
  432. pathbbox
  433. grestore moveto lineto moveto} forall
  434. pathbbox
  435. newpath
  436. end
  437. } bind def
  438. /Mmin {
  439. 2 copy
  440. gt
  441. { exch } if
  442. pop
  443. } bind def
  444. /Mmax {
  445. 2 copy
  446. lt
  447. { exch } if
  448. pop
  449. } bind def
  450. /Mrotshowa {
  451. dup
  452. /Mrot
  453. exch def
  454. Mrotcheck
  455. Mtmatrix
  456. dup
  457. setmatrix
  458. 7 1 roll
  459. 4 index
  460. 4 index
  461. translate
  462. rotate
  463. 3 index
  464. -1 mul
  465. 3 index
  466. -1 mul
  467. translate
  468. /Mtmatrix
  469. matrix
  470. currentmatrix
  471. def
  472. Mgmatrix setmatrix
  473. Mshowa
  474. /Mtmatrix
  475. exch def
  476. /Mrot 0 def
  477. } bind def
  478. /Mshowa {
  479. 4 -2 roll
  480. moveto
  481. 2 index
  482. Mtmatrix setmatrix
  483. Mvboxa
  484. 7 1 roll
  485. Mboxout
  486. 6 -1 roll
  487. 5 -1 roll
  488. 4 -1 roll
  489. Mshowa1
  490. 4 1 roll
  491. Mshowa1
  492. rmoveto
  493. currentpoint
  494. Mfixwid
  495. {
  496. Mshowax
  497. }
  498. {
  499. Mshoway
  500. }
  501. ifelse
  502. pop pop pop pop
  503. Mgmatrix setmatrix
  504. } bind def
  505. /Mshowax {    
  506. 0 1
  507. 4 index length
  508. -1 add
  509. {
  510. 2 index
  511. 4 index
  512. 2 index
  513. get
  514. 3 index
  515. add
  516. moveto
  517. 4 index
  518. exch get
  519. Mfixdash
  520. {
  521. Mfixdashp        
  522. }
  523. if
  524. show
  525. } for
  526. } bind def
  527. /Mfixdashp {
  528. dup
  529. length
  530. 1
  531. gt
  532. 1 index
  533. true exch
  534. {
  535. 45
  536. eq
  537. and
  538. } forall
  539. and
  540. {
  541. gsave
  542. (--)        
  543. stringwidth pop
  544. (-)
  545. stringwidth pop
  546. sub
  547. 2 div
  548. 0 rmoveto
  549. dup
  550. length
  551. 1 sub
  552. {
  553. (-)
  554. show
  555. }
  556. repeat
  557. grestore
  558. }
  559. if
  560. } bind def    
  561. /Mshoway {
  562. 3 index
  563. Mwidthcal
  564. 5 1 roll
  565. 0 1
  566. 4 index length
  567. -1 add
  568. {
  569. 2 index
  570. 4 index
  571. 2 index
  572. get
  573. 3 index
  574. add
  575. moveto
  576. 4 index
  577. exch get
  578. [
  579. 6 index
  580. aload
  581. length
  582. 2 add
  583. -1 roll
  584. {
  585. pop
  586. Strform
  587. stringwidth
  588. pop
  589. neg 
  590. exch
  591. add
  592. 0 rmoveto
  593. }
  594. exch
  595. kshow
  596. cleartomark
  597. } for
  598. pop    
  599. } bind def
  600. /Mwidthcal {
  601. [
  602. exch
  603. {
  604. Mwidthcal1
  605. }
  606. forall
  607. ]
  608. [
  609. exch
  610. dup
  611. Maxlen
  612. -1 add
  613. 0 1
  614. 3 -1 roll
  615. {
  616. [
  617. exch
  618. 2 index
  619. {         
  620. 1 index    
  621. Mget
  622. exch
  623. }
  624. forall        
  625. pop
  626. Maxget
  627. exch
  628. }
  629. for
  630. pop
  631. ]
  632. Mreva
  633. } bind def
  634. /Mreva    {
  635. [
  636. exch
  637. aload
  638. length
  639. -1 1
  640. {1 roll}
  641. for
  642. ]
  643. } bind def
  644. /Mget    {
  645. 1 index
  646. length
  647. -1 add
  648. 1 index
  649. ge
  650. {
  651. get
  652. }
  653. {
  654. pop pop
  655. 0
  656. }
  657. ifelse
  658. } bind def
  659. /Maxlen    {
  660. [
  661. exch
  662. {
  663. length
  664. }
  665. forall
  666. Maxget
  667. } bind def
  668. /Maxget    {
  669. counttomark
  670. -1 add
  671. 1 1
  672. 3 -1 roll
  673. {
  674. pop
  675. Mmax
  676. }
  677. for
  678. exch
  679. pop
  680. } bind def
  681. /Mwidthcal1 {
  682. [
  683. exch
  684. {
  685. Strform
  686. stringwidth
  687. pop
  688. }
  689. forall
  690. ]
  691. } bind def
  692. /Strform {
  693. /te