- \vbox to 0pt{\vss%
- \hbox to0.42\balkheight{\hss\fetanummer\char#1\hss}%
- \nointerlineskip%
- \hbox to0.42\balkheight{\hss\fetanummer\char#2\hss}%
- \vss}}
-
-\newcount\embedcount\embedcount=0
-\newwrite\checkexists
-\newwrite\embedfile
-
-\def\inputifexists#1{%
- \openin\checkexists #1
- \ifeof\checkexists
- \closein\checkexists
- \relax
- \else
- \closein\checkexists
- \input #1
- \fi
-}
-\def\embedcountid{feta-embed}
-\inputifexists{\embedcountid.aux}
-% let's not overwrite -- and be sure to create new
-\def\storeembedcount{%
- \immediate\openout\embedfile=\embedcountid.aux
- \immediate\write\embedfile{\embedcount=\the\embedcount}
- \immediate\closeout\embedfile
-}
-\def\EndLilyPondOutput{
- \storeembedcount
- \csname bye\endcsname
-}
-\def\embeddedps#1{
- \edef\embedid{feta-sleur-\number\embedcount}
- \immediate\openout\embedfile=\embedid.eps
- \advance\embedcount by 1
- \immediate\write\embedfile{#1}
- \immediate\closeout\embedfile
- \special{psfile=\embedid.eps}
-}
-\def\embeddedmf#1{
- \edef\embedid{feta-sleur-\number\embedcount}
- \immediate\openout\embedfile=\embedid.mf
- \global\advance\embedcount by 1
- \immediate\write\embedfile{#1}
- \immediate\closeout\embedfile
- \font\expandafter\embedid\expandafter=\embedid
- \hbox{\embedid\char0}
-}
+ \ifnum #2 = 0\relax
+ \ifcase #1
+ \or\or
+ % 2
+ \allabreve
+ \or
+ % 3
+ \threetwometer % tempus perfectum cum prolatione imperfecta
+ \or
+ % 4
+ \fourfourmeter % tempus imperfectum cum prolatione imperfecta
+ \or\or
+ % 6
+ \sixfourmeter % tempus imperfectum cum prolatione perfecta
+ \or\or\or
+ % 9
+ \ninefourmeter % tempus perfectum cum prolatione perfecta
+ \fi
+ \else
+ \vbox to 0pt{%
+ \vss
+ \hbox to 0.45\staffheight{\hss \fetanummer #1\hss}%
+ \nointerlineskip
+ \hbox to 0.45\staffheight{\hss \fetanummer #2\hss}%
+ \vss}%
+ \fi}
+
+\def\pianobrace#1{{\bracefont\char #1}}
+\def\staffbracket#1{{\centeralign{\bracketfont\char #1}}}
+
+\def\embeddedtex#1{}