home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fonts 1 / freshfonts1.bin / bbs / programs / amiga / mma2latex.lha / MMA2LTX / MMATEXT.STY < prev    next >
Text File  |  1994-07-18  |  10KB  |  281 lines
  1. %
  2. % macros for picture produced by "mma2ltx"
  3. % version 1.2 - 18 July 1994
  4. %
  5. % Copyright (C) 1994 by Giuseppe Ghib\`o (<ghibo@galileo.polito.it>)
  6. %
  7. % ----------------------------------------------------------------------------
  8. %
  9. \typeout{Document Style `mmatext' - v1.2 (18/7/94) - (C) 1994 by Giuseppe Ghibo`}
  10. %
  11. % 
  12. \gdef\mma@prologue{texmma22.pro}% Mathematica v2.2 PostScript prologue file.
  13. %
  14. %
  15. \newdimen\mma@tmpdima
  16. \newdimen\mma@tmpdimb
  17. \newdimen\mma@tmpdimc
  18. \newdimen\mma@tmpdimd
  19. \newbox\mma@tmpbox
  20. %
  21. %
  22. % \mmaheaderprotrue   = include the prologue file \mma@prologue (once) using
  23. %                       the \special{header=...}.
  24. % \mmaheaderprofalse  = don't include the prologue file \mma@prologue.
  25. % \mma@proloadedtrue  = the prologue \mma@prologue has been already loaded.
  26. % \mma@proloadedfalse = the prologue \mma@prologue has not been loaded.
  27. % \mma@whitebgtrue    = the object will have a white background
  28. % \mma@whitebgfalse   = the object will have a transparent background
  29. \newif\ifmmaheaderpro  \mmaheaderprotrue
  30. \newif\ifmma@proloaded \mma@proloadedfalse
  31. \newif\ifmma@whitebg
  32. %
  33. %
  34. % \@nameedef is similar to the LaTeX command \@namedef, but it uses \edef
  35. % instead of \def.
  36. \def\@nameedef#1{\expandafter\edef\csname #1\endcsname}
  37. %
  38. \let\ccd=\catcode
  39. \ccd`\p=12\ccd`\t=12
  40. \def\del@dim#1pt{#1}%
  41. \ccd`\p=11\ccd`\t=11
  42. %
  43. \def\deldim#1{\expandafter\del@dim\the#1}%trash the trailing 'pt'
  44. \def\dimtomac#1#2#3{%
  45. % \dimtomac (expands a dimension register into a macro)
  46. % #1 = a dimension register (e.g., \mydim, \dimen0, ...)
  47. % #2 = conversion factor from pt to a choosed unit or
  48. %      one of mm, cm, pt, bp, pc, in, dd, cc, sp, dbp.
  49. % #3 = macro to which assign the converted value.
  50. \lowercase{\edef\convfactor{#2}}
  51. \def\unit@mm{mm}\def\unit@cm{cm}\def\unit@pt{pt}\def\unit@bp{bp}%
  52. \def\unit@pc{pc}\def\unit@in{in}\def\unit@dd{dd}\def\unit@cc{cc}%
  53. \def\unit@sp{sp}\def\unit@dbp{dbp}%
  54. \ifx\convfactor\unit@mm\def\convfactor{0.3514598035146}\else
  55. \ifx\convfactor\unit@cm\def\convfactor{0.03514598035146}\else
  56. \ifx\convfactor\unit@pt\def\convfactor{1}\else
  57. \ifx\convfactor\unit@bp\def\convfactor{0.99626400996264}\else
  58. \ifx\convfactor\unit@dbp\def\convfactor{9.962640996264}\else
  59. \ifx\convfactor\unit@pc\def\convfactor{0.08333333333333}\else
  60. \ifx\convfactor\unit@in\def\convfactor{0.01383700013837}\else
  61. \ifx\convfactor\unit@dd\def\convfactor{0.9345718901454}\else
  62. \ifx\convfactor\unit@cc\def\convfactor{0.077880990845450}\else
  63. \fi\fi\fi\fi\fi\fi\fi\fi\fi
  64. \mma@tmpdima=#1%
  65. \ifx\convfactor\unit@sp\@nameedef{#3}{\number\mma@tmpdima}\else
  66. \mma@tmpdimb=\convfactor\mma@tmpdima%
  67. \@nameedef{#3}{\deldim\mma@tmpdimb}\fi
  68. }% end of dimtomac definition
  69. %
  70. %
  71. \newdimen\mma@dimunit \mma@dimunit=1bp
  72. \newdimen\mma@llx \newdimen\mma@urx \newdimen\mma@width  \newdimen\mma@oldwd
  73. \newdimen\mma@lly \newdimen\mma@ury \newdimen\mma@height \newdimen\mma@oldht
  74. \newdimen\mma@x \newdimen\mma@y
  75. \newdimen\mma@deltax \newdimen\mma@deltay
  76. %
  77. \gdef\mma@wd{161}%  default width in bp
  78. \gdef\mma@ht{100}%  default height in bp
  79. \gdef\mma@unit{bp}% default unit = bp
  80. \mma@width=\mma@wd bp
  81. \mma@height=\mma@ht bp
  82. \mma@llx=\z@ \mma@urx=\mma@width
  83. \mma@lly=\z@ \mma@ury=\mma@height
  84. \mma@deltax=\z@ \mma@deltay=\z@
  85. %
  86. %
  87. % *************
  88. % *           *
  89. % * mmasetpic *
  90. % *           *
  91. % *************
  92. \def\mmasetpic(#1,#2){\@ifnextchar({\mma@oldsetpic(#1,#2)}{%
  93. \mma@setpic(#1,#2)}}
  94.  
  95. \def\mma@setpic(#1,#2)[#3]#4{%
  96. % #1 = width of Mathematica PostScript picture
  97. % #2 = height of Mathematica PostScript picture
  98. % #3 = unit of measure
  99. % #4 = PostScript filename
  100. \lowercase{\edef\mma@unit{#3}}
  101. \mma@dimunit=1\mma@unit
  102. \mma@llx=\z@ \mma@urx=#1\mma@dimunit
  103. \mma@lly=\z@ \mma@ury=#2\mma@dimunit
  104. \mma@width=#1\mma@dimunit \mma@height=#2\mma@dimunit
  105. \mma@oldwd=\mma@width \mma@oldht=\mma@height
  106. \dimtomac{\mma@oldwd}{bp}{mma@wd}
  107. \dimtomac{\mma@oldht}{bp}{mma@ht}
  108. \def\mma@psname{#4}
  109. %
  110. % include the prologue file \mma@prologue at most once.
  111. \ifmma@proloaded\else
  112. \ifmmaheaderpro\special{header=texmma22.pro}\global\mma@proloadedtrue\fi
  113. \fi
  114. }
  115. %
  116. %
  117. % ***************
  118. % *             *
  119. % * mmatextfits *
  120. % *             *
  121. % ***************
  122. \def\mmatextfits(#1,#2)(#3,#4){\@ifnextchar({\mma@textfits(#1,#2)(#3,#4)}{%
  123.         \mma@textfits(#1,#2)(#3,#4)(0,0)}}
  124. %
  125. \def\mma@textfits(#1,#2)(#3,#4)(#5,#6)#7{%
  126. % #1 = x coord.
  127. % #2 = y coord.
  128. % #3 = sdx (bounding box x offs., like the Mathematica command "Text")
  129. % #4 = sdx (bounding box y offs., like the Mathematica command "Text")
  130. % #5 = offset to the x coord.
  131. % #6 = offset to the y coord.
  132. % #7 = text to fit.
  133. \setbox\mma@tmpbox=\hbox{#7}
  134. %
  135. % tmpllx = x - 1/2*wd*(sdx+1)
  136. \mma@tmpdima=#1\mma@dimunit \advance\mma@tmpdima by #5\mma@dimunit
  137. \mma@tmpdimb=#3\wd\mma@tmpbox
  138. \advance\mma@tmpdimb by \wd\mma@tmpbox
  139. \divide\mma@tmpdimb by 2
  140. \advance\mma@tmpdima by -\mma@tmpdimb
  141. \ifdim\mma@tmpdima < \mma@llx \mma@llx=\mma@tmpdima\fi
  142. %
  143. % tmplly = y - 1/2*(ht+dp)*(sdy+1)
  144. \mma@tmpdima=#2\mma@dimunit \advance\mma@tmpdima by #6\mma@dimunit
  145. \mma@tmpdimb=\ht\mma@tmpbox
  146. \advance\mma@tmpdimb by \dp\mma@tmpbox
  147. \mma@tmpdimb=#4\mma@tmpdimb
  148. \advance\mma@tmpdimb by \ht\mma@tmpbox
  149. \advance\mma@tmpdimb by \dp\mma@tmpbox
  150. \divide\mma@tmpdimb by 2
  151. \advance\mma@tmpdima by -\mma@tmpdimb
  152. \ifdim\mma@tmpdima < \mma@lly \mma@lly=\mma@tmpdima\fi
  153. %
  154. % tmpurx = x - 1/2*wd*(sdx-1)
  155. \mma@tmpdima=#1\mma@dimunit \advance\mma@tmpdima by #5\mma@dimunit
  156. \mma@tmpdimb=#3\wd\mma@tmpbox
  157. \advance\mma@tmpdimb by -\wd\mma@tmpbox
  158. \divide\mma@tmpdimb by 2
  159. \advance\mma@tmpdima by -\mma@tmpdimb
  160. \ifdim\mma@tmpdima > \mma@urx \mma@urx=\mma@tmpdima\fi
  161. %
  162. % tmpury = y - 1/2*(ht+dp)*(sdy-1)
  163. \mma@tmpdima=#2\mma@dimunit \advance\mma@tmpdima by #6\mma@dimunit
  164. \mma@tmpdimb=\ht\mma@tmpbox
  165. \advance\mma@tmpdimb by \dp\mma@tmpbox
  166. \mma@tmpdimb=#4\mma@tmpdimb
  167. \advance\mma@tmpdimb by -\ht\mma@tmpbox
  168. \advance\mma@tmpdimb by -\dp\mma@tmpbox
  169. \divide\mma@tmpdimb by 2
  170. \advance\mma@tmpdima by -\mma@tmpdimb
  171. \ifdim\mma@tmpdima > \mma@ury \mma@ury=\mma@tmpdima\fi
  172. %
  173. % Recalculate new picture size
  174. \mma@width=\mma@urx \advance\mma@width by -\mma@llx
  175. \mma@height=\mma@ury \advance\mma@height by -\mma@lly
  176. \mma@deltax=\mma@width \advance\mma@deltax by -\mma@oldwd
  177. \mma@deltay=\mma@height \advance\mma@deltay by -\mma@oldht
  178. }% end of \mmatextfits definition
  179. %
  180. %
  181. % **************
  182. % *            *
  183. % * mmapicture *
  184. % *            *
  185. % **************
  186. \def\mmapicture{%
  187. \bgroup
  188. \unitlength=1sp% so we can use the command \number
  189. \dimtomac{\mma@width}{\mma@unit}{mma@truewd}
  190. \dimtomac{\mma@height}{\mma@unit}{mma@trueht}
  191. \dimtomac{\mma@deltax}{\mma@unit}{mma@dx}
  192. \dimtomac{\mma@deltay}{\mma@unit}{mma@dy}
  193. \typeout{Mathematica  picture:\space'\mma@psname'\space%
  194.     size=(\mma@truewd\space x\space\mma@trueht\space\mma@unit)}
  195. \ifdim\mma@deltax > 0pt
  196.    \typeout{Mathematica picture:\space'\mma@psname'\space%
  197.             deltax=\mma@dx\space\mma@unit}
  198. \fi
  199. \ifdim\mma@deltay > 0pt
  200.    \typeout{Mathematica picture:\space'\mma@psname'\space%
  201.             deltay=\mma@dy\space\mma@unit}
  202. \fi
  203. \@killglue
  204. \begin{picture}(\number\mma@width,\number\mma@height)(\number\mma@llx,\number\mma@lly)
  205. \put(0,0){\special{psfile=\mma@psname\space hsize=\mma@wd\space vsize=\mma@ht}}}
  206. %
  207. \def\endmmapicture{\end{picture}\egroup}
  208. %
  209. %
  210. % **************
  211. % *            *
  212. % * mmaputtext *
  213. % *            *
  214. % **************
  215. \def\mmaputtext{\@ifstar{\mma@whitebgtrue\mma@puttext}{\mma@whitebgfalse%
  216. \mma@puttext}}
  217.  
  218. \def\mma@puttext(#1,#2)(#3,#4){\@ifnextchar({\mma@@puttext(#1,#2)(#3,#4)}{%
  219.         \mma@@puttext(#1,#2)(#3,#4)(0,0)}}
  220. %
  221. \def\mma@@puttext(#1,#2)(#3,#4)(#5,#6)#7{%
  222. % #1 = x coord.
  223. % #2 = y coord.
  224. % #3 = sdx (bounding box x offs., like the command "Text" of Mathematica)
  225. % #4 = sdx (bounding box y offs., like the command "Text" of Mathematica)
  226. % #5 = offset to the x coord.
  227. % #6 = offset to the y coord.
  228. % #7 = text (or object) to put.
  229. %
  230. \setbox\mma@tmpbox=\hbox{#7}
  231. \mma@x=#1\mma@dimunit \advance\mma@x by #5\mma@dimunit
  232. \mma@y=#2\mma@dimunit \advance\mma@y by #6\mma@dimunit
  233. %
  234. % xp = x - 1/2 * wd * (sdx + 1)
  235. \mma@tmpdima=#3\wd\mma@tmpbox
  236. \advance\mma@tmpdima by \wd\mma@tmpbox
  237. \divide\mma@tmpdima by 2
  238. \advance\mma@x by -\mma@tmpdima
  239. %
  240. % yp = y - 1/2*(sdy*htot + ht - dp)
  241. \mma@tmpdima=\ht\mma@tmpbox
  242. \advance\mma@tmpdima by \dp\mma@tmpbox
  243. \mma@tmpdima=#4\mma@tmpdima
  244. \