home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / applications / wp / pmtex.lha / pmtex / macros / pmtex.tex
Encoding:
Text File  |  1995-03-05  |  3.3 KB  |  84 lines
  1. % Single-digit meter symbol 
  2. \edef\catcodeat{\the\catcode`\@}\catcode`\@=11
  3. \def\meterN#1{\setbox\workbox=\vbox{\hbox{\ \meterfont #1}}%
  4. \vbox to 8\internote{\offinterlineskip\vss\hbox to \wd\workbox{\hss
  5. \meterfont #1\hss}\vss }}%
  6. % Skip before accidental
  7. \def\ask{\off{0.5\qn@width}}%
  8. % Meter symbol '3' with vertical slash
  9. \def\meterIIIS{\kern\internote\raise\Interligne\hbox{\meterfont 3}%
  10. \kern -2.0\internote
  11. \vrule height 7\internote depth -\internote width0.3\internote
  12. \kern 1.7\internote}%
  13. % Meter symbol: reversed 'C' with vertical slash
  14. \def\meterBCS{\kern\internote\musickeyfont\char"54
  15. \kern -2.0\internote
  16. \vrule height 7\internote depth -\internote width0.3\internote
  17. \kern 1.7\internote}%
  18. % *Commands* for placing smart accidentals
  19. %\def\xsh#1{\off{-1pt}\Sh{#1}\off{1pt}}%
  20. %\def\xfl#1{\off{-1pt}\Fl{#1}\off{1pt}}%
  21. %\def\xna#1{\off{-1pt}\Na{#1}\off{1pt}}%
  22. % *Commands* for placing dumb accidentals
  23. \def\xsh#1{\off{-1pt}\sh{#1}\off{1pt}}%
  24. \def\xfl#1{\off{-0.5pt}\fl{#1}\off{0.5pt}}%
  25. \def\xna#1{\off{-1pt}\na{#1}\off{1pt}}%
  26. % *Commands* for placing small, dumb accidentals
  27. \def\xsmsh#1{\off{-1pt}\smallsh{#1}\off{1pt}}%
  28. \def\xsmfl#1{\off{-1pt}\smallfl{#1}\off{1pt}}%
  29. \def\xsmna#1{\off{-1pt}\smallna{#1}\off{1pt}}%
  30. % *Symbols* for use in figures
  31. \def\fsmsh{\kern -1pt \llap\smalls@harp\kern 1pt}
  32. \def\fsmfl{\kern -1pt \llap\smallf@lat\kern 1pt}
  33. \def\fsmna{\kern -1pt \llap\smalln@at\kern 1pt}
  34. % Command for placing segno
  35. \def\segnoo#1#2{\zcharnote{#1}{\kern #2\musicnorfont\char"56}}
  36. % Special accent symbol for use over text.
  37. \def\specaccent#1{#1 \off -\hphantom{#1}\char"13\off -\hphantom{\char"13} 
  38.                   \off\hphantom{#1}}
  39. % Some fonts
  40. \font\tempo=\fonthdg\fonthdge bx12% 
  41. \font\dyn=\fonthdg\fonthdge bx10% 
  42. % Go backward one noteskip
  43. \def\goback{\off{-\noteskip}}
  44. % A wiggly symbol for use over text.
  45. \chardef\wiggle="13
  46. \def\ewiggle{e \hskip -0.7em \raise 0.07em 
  47.              \hbox {\wiggle}}
  48. % Continuation figure
  49. \def\cont#1#2{\zcharnote{#1}{\kern -0.3\noteskip%
  50.               \vbox{\hrule height 1.4\lthick width #2\noteskip}}}%
  51. % Offset whole rest
  52. \def\whrest{\off{0.8\noteskip}\pause}
  53. % Old command for placing a figure
  54. \def\Fig#1#2{\zcharnote{-#1}{#2}}
  55. % Stuff for new figure placements
  56. \newcount\figdrop
  57. \figdrop=6
  58. \newcount\sysno
  59. \global\sysno=-1\relax%
  60. \def\Figu#1#2{\advance\figdrop by #1\lower\figdrop\internote%
  61. \hbox to \z@{#2\hss}\advance\figdrop by -#1}%
  62. % Special trill symbol: // (need my own font for this)
  63. %\font\specfnt=mat20%
  64. %\def\mtrc{\specfnt\char'070}
  65. %\def\mtr#1{\zcharnote{#1}\mtrc}%
  66. % Put in a new time signature with better horizontal spacing
  67. \def\newmeter#1{\generalmeter{#1}\gluebrule\newbar\nobreak\c@ountbar%
  68.   \nobreak\wbarno@x
  69.   \nobreak\kern1.5\internote\nobreak\writemeters%
  70.   \nobreak\kern0.4\afterruleskip\nobreak%
  71.   \global\advance\x@skip0.4\afterruleskip\global\advance\x@skip1.5\internote%
  72.   \global\n@skip=\z@%
  73.   \save@all}%
  74. % Baroque repeat symbol
  75. \def\smallrptsym{{\musicnorfont\char 126}%
  76.   \vrule height 3\Interligne depth -\Interligne width 0.8\internote%
  77.   \kern 0.3\internote%
  78.   \vrule height 3\Interligne depth -\Interligne width 0.8\internote%
  79.   {\musicnorfont\char 126}}%
  80. \def\putsmallrptsym#1{
  81.   \n@loop\raise\altitude\rlap{\kern5\internote\smallrptsym}\repeat%
  82.   \ifcase#1\notes\or\Notes\or\NOtes\or\NOTes\or\NOTEs\else\NOTES\fi%
  83.   \sk\enotes}%
  84. \catcode`\@=\catcodeat