tex/fetdefs.tex

   1 % fetdefs.tex
   2 % encapsulating tex backend for auto-generated feta definitions
   3
   4 \def\fetsixteendefs{%
   5   \font\feta = feta16
   6   \font\vetfont = feta-beams16
   7   \font\fetanummer = feta-nummer8
   8   \font\dynfont = feta-din10 scaled \magstep 1
   9   \font\bracefont = feta-braces16
  10   \font\bracketfont = feta-brackets16
  11   \font\fingerfont = feta-nummer4
  12 }
  13
  14 \def\fettwentydefs{%
  15   \font\feta = feta20
  16   \font\vetfont = feta-beams20
  17   \font\fetanummer = feta-nummer10
  18   \font\dynfont = feta-din10 scaled \magstep 2
  19   \font\bracefont = feta-braces20
  20   \font\bracketfont = feta-brackets20
  21   \font\fingerfont = feta-nummer5
  22 }
  23
  24 \def\fettwentysixdefs{%
  25   \font\feta = feta26
  26   \font\vetfont = feta-beams26
  27   \font\fetanummer = feta-nummer12
  28   \font\dynfont = feta-din10 scaled \magstep 3
  29   \font\bracefont = feta-braces16
  30   \font\bracketfont = feta-brackets20
  31   \font\fingerfont = feta-nummer7
  32 }
  33
  34 \def\fetthirteendefs{%
  35   \font\feta = feta13
  36   \font\vetfont = feta-beams26
  37   \font\fetanummer = feta-nummer5
  38   \font\dynfont = feta-din10 scaled \magstep 0
  39   \font\bracefont = feta-braces16
  40   \font\bracketfont = feta-brackets16
  41   \font\fingerfont = feta-nummer3
  42 }
  43
  44 \def\fetelevendefs{%
  45   \font\feta = feta11
  46   \font\vetfont = feta-beams26
  47   \font\fetanummer = feta-nummer5
  48   \font\dynfont = feta-din10        % scaled \magstep-1
  49   \font\bracefont = feta-braces16
  50   \font\bracketfont = feta-brackets16
  51   \font\fingerfont = feta-nummer3
  52 }
  53
  54
  55 \def\sixteenfonts{\fetsixteendefs\cmrsixteen}
  56 \def\twentyfonts{\fettwentydefs\cmrtwenty}
  57 \def\twentysixfonts{\fettwentysixdefs\cmrtwenty}
  58 \def\elevenfonts{\fetelevendefs\cmreleven}
  59 \def\thirteenfonts{\fetthirteendefs\cmrthirteen}
  60
  61 \def\fetdef#1#2{%
  62   \def#1{\hbox{\fetchar{#2}}}}
  63 \def\fetchar#1{\feta\char#1}
  64
  65 %\input feta16
  66 \input feta20
  67
  68 % stacked numbers; overrules def in lilyponddefs
  69 % widest num should be .40 balkheight
  70 % oeps: \meter 12/8;
  71 %
  72 % \allabreve, \threetwometer etc. have zero as the second parameter.
  73
  74 \def\generalmeter#1#2{%
  75   \ifnum #2 = 0\relax
  76     \ifcase #1
  77     \or\or
  78       % 2
  79       \allabreve
  80     \or
  81       % 3
  82       \threetwometer    % tempus perfectum cum prolatione imperfecta
  83     \or
  84       % 4
  85       \fourfourmeter    % tempus imperfectum cum prolatione imperfecta
  86     \or\or
  87       % 6
  88       \sixfourmeter     % tempus imperfectum cum prolatione perfecta
  89     \or\or\or
  90       % 9
  91       \ninefourmeter    % tempus perfectum cum prolatione perfecta
  92     \fi
  93   \else
  94     \vbox to 0pt{%
  95       \vss
  96       \hbox to 0.45\staffheight{\hss\fetanummer #1\hss}%
  97       \nointerlineskip
  98       \hbox to 0.45\staffheight{\hss\fetanummer #2\hss}%
  99       \vss}%
 100   \fi}
 101
 102 \def\pianobrace#1{{\bracefont\char #1}}
 103 \def\staffbracket#1{{\centeralign{\bracketfont\char #1}}}
 104
 105 \def\embeddedtex#1{}
 106 \def\embeddedps#1{}
 107 \def\embeddedmf#1#2{}
 108 \def\embedclose{}
 109
 110 \input lily-ps-defs
 111
 112 % uncomment to use runtime MF
 113 %
 114 % \input lily-mf-defs
 115
 116 \def\EndLilyPondOutput{%
 117   \embedclose
 118   \csname bye\endcsname
 119 }
 120
 121 \endinput