tex/fetdefs.tex

   1 % fetdefs.tex
   2 % encapsulating tex backend for auto-generated font-en-tja definitions
   3
   4 \def\fetsixteendefs{
   5         \font\fontentja=feta16
   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-nummer4
  11         \interlinedist=4pt
  12 }
  13 \def\fettwentydefs{
  14         \interlinedist=5pt
  15         \font\fontentja=feta20
  16         \font\vetfont=feta-beams20
  17         \font\fetanummer=feta-nummer10
  18         \font\dynfont=feta-din10 scaled \magstep2
  19         \font\bracefont=feta-braces20
  20         \font\fingerfont=feta-nummer5
  21 }
  22
  23 \def\sixteenfonts{\fetsixteendefs\cmrsixteen}
  24 \def\twentyfonts{\fettwentydefs\cmrtwenty}
  25
  26 \def\fetdef#1#2{\def#1{%
  27         \hbox{\fetchar{#2}}}}
  28
  29 \def\fetchar#1{\fontentja\char#1}
  30
  31 %\input feta16
  32 \input feta20
  33
  34 \def\beamslope#1#2{{\count0=#2\advance\count0 by#1
  35         \advance\count0by128
  36         {\vetfont\char\count0}}}
  37
  38 % stacked numbers; overrules def in lilyponddefs
  39 % widest num should be .40 balkheight
  40 % oeps: \meter 12/8;
  41 \def\generalmeter#1#2{%
  42         \vbox to 0pt{\vss%
  43         \hbox to0.45\staffheight{\hss\fetanummer #1\hss}%
  44         \nointerlineskip%
  45         \hbox to0.45\staffheight{\hss\fetanummer #2\hss}%
  46         \vss}}
  47
  48 \def\pianobrace#1{{\bracefont\char #1}}
  49
  50 \newcount\embedcount\embedcount=0
  51 \newwrite\checkexists
  52 \newwrite\embedfile
  53 \def\inputifexists#1{%
  54         \openin\checkexists #1
  55         \ifeof\checkexists
  56                  \closein\checkexists
  57         \else
  58                 \closein\checkexists
  59                 \input #1
  60         \fi
  61 }
  62 \def\embedcountid{feta-embed}
  63 \inputifexists{\embedcountid.aux}
  64 %
  65 % let's not overwrite -- and be sure to create new
  66 \def\storeembedcount{%
  67         \immediate\openout\embedfile=\embedcountid.aux
  68         \immediate\write\embedfile{\embedcount=\the\embedcount}
  69         \immediate\closeout\embedfile
  70 }
  71
  72
  73
  74
  75 \input lily-ps-defs
  76 \def\embeddedtex#1{#1}
  77
  78 \def\embeddedmf#1{
  79         \edef\embedid{feta-sleur-\number\embedcount}
  80         \immediate\openout\embedfile=\embedid.mf
  81         \global\advance\embedcount by 1
  82
  83 % should write ``automatically generated.''
  84 %        \immediate\write\embedfile{\def\
  85 %
  86 %      }
  87
  88         \immediate\write\embedfile{#1}
  89
  90         \immediate\closeout\embedfile
  91         \font\expandafter\embedid\expandafter=\embedid
  92         \embedid\char0
  93 }
  94
  95 \def\notex{\def\embeddedtex##1{}}
  96 \def\nopostscript{\def\embeddedps##1{}}
  97 \def\nometafont{\def\embeddedmf##1{}}
  98
  99 % dat heb je handig gedaan, lieverd!
 100 \nometafont
 101 %\nopostscript
 102 \notex
 103
 104 \def\EndLilyPondOutput{
 105         \storeembedcount
 106         \csname bye\endcsname
 107 }
 108
 109
 110