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