% Single-digit meter symbol 
\edef\catcodeat{\the\catcode`\@}\catcode`\@=11
\def\meterN#1{\setbox\workbox=\vbox{\hbox{\ \meterfont #1}}%
\vbox to 8\internote{\offinterlineskip\vss\hbox to \wd\workbox{\hss
\meterfont #1\hss}\vss }}%
% Skip before accidental
\def\ask{\off{0.5\qn@width}}%
% Meter symbol '3' with vertical slash
\def\meterIIIS{\kern\internote\raise\Interligne\hbox{\meterfont 3}%
\kern -2.0\internote
\vrule height 7\internote depth -\internote width0.3\internote
\kern 1.7\internote}%
% Meter symbol: reversed 'C' with vertical slash
\def\meterBCS{\kern\internote\musickeyfont\char"54
\kern -2.0\internote
\vrule height 7\internote depth -\internote width0.3\internote
\kern 1.7\internote}%
% *Commands* for placing smart accidentals
%\def\xsh#1{\off{-1pt}\Sh{#1}\off{1pt}}%
%\def\xfl#1{\off{-1pt}\Fl{#1}\off{1pt}}%
%\def\xna#1{\off{-1pt}\Na{#1}\off{1pt}}%
% *Commands* for placing dumb accidentals
\def\xsh#1{\off{-1pt}\sh{#1}\off{1pt}}%
\def\xfl#1{\off{-0.5pt}\fl{#1}\off{0.5pt}}%
\def\xna#1{\off{-1pt}\na{#1}\off{1pt}}%
% *Commands* for placing small, dumb accidentals
\def\xsmsh#1{\off{-1pt}\smallsh{#1}\off{1pt}}%
\def\xsmfl#1{\off{-1pt}\smallfl{#1}\off{1pt}}%
\def\xsmna#1{\off{-1pt}\smallna{#1}\off{1pt}}%
% *Symbols* for use in figures
\def\fsmsh{\kern -1pt \llap\smalls@harp\kern 1pt}
\def\fsmfl{\kern -1pt \llap\smallf@lat\kern 1pt}
\def\fsmna{\kern -1pt \llap\smalln@at\kern 1pt}
% Command for placing segno
\def\segnoo#1#2{\zcharnote{#1}{\kern #2\musicnorfont\char"56}}
% Special accent symbol for use over text.
\def\specaccent#1{#1 \off -\hphantom{#1}\char"13\off -\hphantom{\char"13} 
                  \off\hphantom{#1}}
% Some fonts
\font\tempo=\fonthdg\fonthdge bx12% 
\font\dyn=\fonthdg\fonthdge bx10% 
% Go backward one noteskip
\def\goback{\off{-\noteskip}}
% A wiggly symbol for use over text.
\chardef\wiggle="13
\def\ewiggle{e \hskip -0.7em \raise 0.07em 
             \hbox {\wiggle}}
% Continuation figure
\def\cont#1#2{\zcharnote{#1}{\kern -0.3\noteskip%
              \vbox{\hrule height 1.4\lthick width #2\noteskip}}}%
% Offset whole rest
\def\whrest{\off{0.8\noteskip}\pause}
% Old command for placing a figure
\def\Fig#1#2{\zcharnote{-#1}{#2}}
% Stuff for new figure placements
\newcount\figdrop
\figdrop=6
\newcount\sysno
\global\sysno=-1\relax%
\def\Figu#1#2{\advance\figdrop by #1\lower\figdrop\internote%
\hbox to \z@{#2\hss}\advance\figdrop by -#1}%
% Special trill symbol: // (need my own font for this)
%\font\specfnt=mat20%
%\def\mtrc{\specfnt\char'070}
%\def\mtr#1{\zcharnote{#1}\mtrc}%
% Put in a new time signature with better horizontal spacing
\def\newmeter#1{\generalmeter{#1}\gluebrule\newbar\nobreak\c@ountbar%
  \nobreak\wbarno@x
  \nobreak\kern1.5\internote\nobreak\writemeters%
  \nobreak\kern0.4\afterruleskip\nobreak%
  \global\advance\x@skip0.4\afterruleskip\global\advance\x@skip1.5\internote%
  \global\n@skip=\z@%
  \save@all}%
% Baroque repeat symbol
\def\smallrptsym{{\musicnorfont\char 126}%
  \vrule height 3\Interligne depth -\Interligne width 0.8\internote%
  \kern 0.3\internote%
  \vrule height 3\Interligne depth -\Interligne width 0.8\internote%
  {\musicnorfont\char 126}}%
\def\putsmallrptsym#1{
  \n@loop\raise\altitude\rlap{\kern5\internote\smallrptsym}\repeat%
  \ifcase#1\notes\or\Notes\or\NOtes\or\NOTes\or\NOTEs\else\NOTES\fi%
  \sk\enotes}%
\catcode`\@=\catcodeat