% fetdefs.tex
-% encapsulating tex backend for auto-generated font-en-tja definitions
+% encapsulating tex backend for auto-generated feta definitions
-\def\fetsixteendefs{
- \font\fontentja=feta16
- \font\vetfont=feta-beams16
- \font\fetanummer=feta-nummer8
+\def\fetsixteendefs{%
+ \font\feta = feta16
+ \font\vetfont = feta-beams16
+ \font\fetanummer = feta-nummer8
+ \font\dynfont = feta-din10 scaled \magstep 1
+ \font\bracefont = feta-braces16
+ \font\bracketfont = feta-brackets16
+ \font\fingerfont = feta-nummer4
}
-\def\fettwentydefs{
- \font\fontentja=feta20
- \font\vetfont=feta-beams20
- \font\fetanummer=feta-nummer10
+
+\def\fettwentydefs{%
+ \font\feta = feta20
+ \font\vetfont = feta-beams20
+ \font\fetanummer = feta-nummer10
+ \font\dynfont = feta-din10 scaled \magstep 2
+ \font\bracefont = feta-braces20
+ \font\bracketfont = feta-brackets20
+ \font\fingerfont = feta-nummer5
}
-% \def\fetdef#1#2{\def#1{\fetchar{#2}}}
-% ugh, linewidth, ugh, tablexx.ly balldims not used!
-\def\fetdef#1#2{%
- % what the fuck is this?
- \def#1{\lower.3884\staffrulethickness
- \hbox{\fetchar{#2}}}}
+\def\fettwentysixdefs{%
+ \font\feta = feta26
+ \font\vetfont = feta-beams26
+ \font\fetanummer = feta-nummer12
+ \font\dynfont = feta-din10 scaled \magstep 3
+ \font\bracefont = feta-braces16
+ \font\bracketfont = feta-brackets20
+ \font\fingerfont = feta-nummer7
+}
+
+\def\fetthirteendefs{%
+ \font\feta = feta13
+ \font\vetfont = feta-beams26
+ \font\fetanummer = feta-nummer5
+ \font\dynfont = feta-din10 scaled \magstep 0
+ \font\bracefont = feta-braces16
+ \font\bracketfont = feta-brackets16
+ \font\fingerfont = feta-nummer3
+}
+
+\def\fetelevendefs{%
+ \font\feta = feta11
+ \font\vetfont = feta-beams26
+ \font\fetanummer = feta-nummer5
+ \font\dynfont = feta-din10 % scaled \magstep-1
+ \font\bracefont = feta-braces16
+ \font\bracketfont = feta-brackets16
+ \font\fingerfont = feta-nummer3
+}
+
+
+\def\sixteenfonts{\fetsixteendefs\cmrsixteen}
+\def\twentyfonts{\fettwentydefs\cmrtwenty}
+\def\twentysixfonts{\fettwentysixdefs\cmrtwenty}
+\def\elevenfonts{\fetelevendefs\cmreleven}
+\def\thirteenfonts{\fetthirteendefs\cmrthirteen}
-\def\fetchar#1{\fontentja\char#1}
+\def\fetdef#1#2{%
+ \def#1{\hbox{\fetchar{#2}}}}
+\def\fetchar#1{\feta\char#1}
%\input feta16
\input feta20
-\def\beamslope#1#2{{\count0=#2\advance\count0 by#1
- \advance\count0by128
- {\vetfont\char\count0}}}
-
% stacked numbers; overrules def in lilyponddefs
+% widest num should be .40 balkheight
% oeps: \meter 12/8;
-\def\generalmeter#1#2{%
- \vbox to 0pt{\vss%
- \hbox to0.42\balkheight{\hss\fetanummer #1\hss}%
- \nointerlineskip%
- \hbox to0.42\balkheight{\hss\fetanummer #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\turnOnExperimentalFeatures{
-%
-% yeah. By far not finished yet.
-% Don't do this by default. gs takes a long time to start in xdvi
%
-\special{ps: /drawslur {
- currentpoint /texoriginy exch def
- /texoriginx exch def
- /dir exch def
- /lift 30 def
- /desty exch def
- /destx exch def
- /slurfactor .4 def
- destx slurfactor mul
- texoriginx add
- desty slurfactor mul
- texoriginy add
- lift dir mul add
- destx 1 slurfactor sub mul
- texoriginx add
- desty 1 slurfactor sub mul
- texoriginy add
- lift dir mul add
- destx
- texoriginx add
- desty
- texoriginy add
- curveto
- stroke
-} def
-}
-}
+% \allabreve, \threetwometer etc. have zero as the second parameter.
-\def\embeddedps#1{
- \special{ps: #1}
-}
-\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}
-}
+\def\generalmeter#1#2{%
+ \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\nopostscript{\def\embeddedps##1{}}
-\def\nometafont{\def\embeddedmf##1{}}
+\def\pianobrace#1{{\bracefont\char #1}}
+\def\staffbracket#1{{\centeralign{\bracketfont\char #1}}}
-\nometafont
+\def\embeddedtex#1{}
+\def\embeddedps#1{}
+\def\embeddedmf#1#2{}
+\def\embedclose{}
-\def\EndLilyPondOutput{
- \storeembedcount
- \csname bye\endcsname
-}
+\input lily-ps-defs
+% uncomment to use runtime MF
+%
+% \input lily-mf-defs
+
+\def\EndLilyPondOutput{%
+ \embedclose
+ \csname bye\endcsname
+}
+\endinput