2 % encapsulating tex backend for auto-generated font-en-tja definitions
6 \font\vetfont=feta-beams16
7 \font\fetanummer=feta-nummer8
8 \font\dynfont=feta-din10 scaled \magstep1
9 \font\bracefont=feta-braces16
10 \font\fingerfont=feta-nummer5
13 \font\fontentja=feta20
14 \font\vetfont=feta-beams20
15 \font\fetanummer=feta-nummer10
16 \font\dynfont=feta-din10 scaled \magstep2
17 \font\bracefont=feta-braces20
18 \font\fingerfont=feta-nummer6
21 \def\fetdef#1#2{\def#1{%
24 \def\fetchar#1{\fontentja\char#1}
29 \def\beamslope#1#2{{\count0=#2\advance\count0 by#1
31 {\vetfont\char\count0}}}
33 % stacked numbers; overrules def in lilyponddefs
34 % widest num should be .40 balkheight
36 \def\generalmeter#1#2{%
38 \hbox to0.45\balkheight{\hss\fetanummer #1\hss}%
40 \hbox to0.45\balkheight{\hss\fetanummer #2\hss}%
43 \def\pianobrace#1{{\bracefont\char #1}}
45 \newcount\embedcount\embedcount=0
48 \def\inputifexists#1{%
49 \openin\checkexists #1
57 \def\embedcountid{feta-embed}
58 \inputifexists{\embedcountid.aux}
60 % let's not overwrite -- and be sure to create new
61 \def\storeembedcount{%
62 \immediate\openout\embedfile=\embedcountid.aux
63 \immediate\write\embedfile{\embedcount=\the\embedcount}
64 \immediate\closeout\embedfile
71 % WARNING: don't leave blank lines in the PS-code; they are
72 % transformed into \par
76 \def\turnOnPostScript{
79 % This sets CTM so that you get to the currentpoint
80 % by executing a 0 0 moveto
81 \special{ps: @beginspecial @setspecial ##1 @endspecial}
102 wd neg ht neg rlineto
110 \def\turnOnExperimentalFeatures{
111 % draw a slur in embedded postscript
116 /thick thin 5 mul def
123 % 1 copy /dx exch def
127 2 copy exch atan /alpha exch def
129 2 exp exch 2 exp add sqrt /len exch def
131 % add and calc z2, z3
141 % add and calc z5..z8
151 % reverse order, must be cycle
161 % silly mo*tex convention
162 % dx 2 div -1 mul 0 translate
173 \def\embeddedtex#1{#1}
176 \edef\embedid{feta-sleur-\number\embedcount}
177 \immediate\openout\embedfile=\embedid.mf
178 \global\advance\embedcount by 1
180 % should write ``automatically generated.''
181 % \immediate\write\embedfile{\def\
185 \immediate\write\embedfile{#1}
187 \immediate\closeout\embedfile
188 \font\expandafter\embedid\expandafter=\embedid
192 \def\notex{\def\embeddedtex##1{}}
193 \def\nopostscript{\def\embeddedps##1{}}
194 \def\nometafont{\def\embeddedmf##1{}}
196 % dat heb je handig gedaan, lieverd!
201 \def\EndLilyPondOutput{
203 \csname bye\endcsname