tex/fetdefs.tex

   1 % fetdefs.tex
   2 % encapsulating tex backend for auto-generated feta definitions
   3
   4 \def\placebox#1#2#3{%
   5         \botalign{\hbox{\raise #1\leftalign{\kern #2{}#3}}}}%
   6
   7
   8 \def\fetsixteendefs{%
   9   \font\fetasixteen = feta16
  10   \font\fetanummersixteen = feta-nummer8
  11   \font\dynfontsixteen = feta-din10 scaled \magstep 1
  12   \font\bracefontsixteen = feta-braces16
  13   \font\fingerfontsixteen = feta-nummer4
  14   \font\markfontsixteen = feta-nummer10
  15 \def\currentsize{sixteen}
  16 }
  17
  18 \def\fettwentydefs{%
  19   \font\fetatwenty = feta20
  20   \font\fetanummertwenty = feta-nummer10
  21   \font\dynfonttwenty = feta-din10 scaled \magstep 2
  22   \font\bracefonttwenty = feta-braces20
  23   \font\fingerfonttwenty = feta-nummer5
  24   \font\markfonttwenty = feta-nummer12
  25 \def\currentsize{twenty}
  26 }
  27
  28 \def\fettwentysixdefs{%
  29   \font\fetatwentysix = feta26
  30   \font\fetanummertwentysix = feta-nummer12
  31   \font\dynfonttwentysix = feta-din10 scaled \magstep 3
  32   \font\bracefonttwentysix = feta-braces16
  33   \font\fingerfonttwenty = feta-nummer7
  34   \font\markfonttwentysix = feta-nummer14
  35 \def\currentsize{twentysix}
  36 }
  37
  38 \def\fetthirteendefs{%
  39   \font\fetathirteen = feta13
  40   \font\fetanummerthirteen = feta-nummer5
  41   \font\dynfontthirteen = feta-din10 scaled \magstep 0
  42   \font\bracefontthirteen = feta-braces16
  43   \font\fingerfontthirteen = feta-nummer3
  44   \font\markfonttwentysix = feta-nummer8
  45 \def\currentsize{thirteen}
  46 }
  47
  48 \def\fetelevendefs{%
  49   \font\fetaeleven = feta11
  50   \font\fetanummereleven = feta-nummer5
  51   \font\dynfonteleven = feta-din10        % scaled \magstep-1
  52   \font\bracefonteleven = feta-braces16
  53   \font\fingerfonteleven = feta-nummer3
  54   \font\markfonttwentysix = feta-nummer7
  55   \def\currentsize{eleven}
  56 }
  57
  58 \def\sixteenfonts{\fetsixteendefs\cmrsixteen}
  59 \def\twentyfonts{\fettwentydefs\cmrtwenty}
  60 \def\twentysixfonts{\fettwentysixdefs\cmrtwenty}
  61 \def\elevenfonts{\fetelevendefs\cmreleven}
  62 \def\thirteenfonts{\fetthirteendefs\cmrthirteen}
  63
  64 \def\bracefont{\csname bracefont\currentsize\endcsname}
  65 \def\fetanummer{\csname fetanummer\currentsize\endcsname}
  66 \def\dynfont{\csname dynfont\currentsize\endcsname}
  67 \def\fingerfont{\csname fingerfont\currentsize\endcsname}
  68 \def\markfont{\csname markfont\currentsize\endcsname}
  69
  70 %\sixteenfonts
  71 %\twentysixfonts
  72 %\twentyfonts
  73 %\elevenfonts
  74 %\thirteenfonts
  75
  76 \def\switchfont#1{\def\currentsize{#1}\csname feta\currentsize\endcsname}
  77
  78 \def\fetdef#1#2{%
  79   \def#1{\hbox{\fetchar{#2}}}}
  80 \def\fetchar#1{\char#1}
  81
  82 %\input feta16
  83 %\input feta20
  84
  85 % stacked numbers; overrules def in lilyponddefs
  86 % widest num should be .40 balkheight
  87 % oeps: \meter 12/8;
  88 %
  89 % \allabreve, \threetwometer etc. have zero as the second parameter.
  90
  91 \def\generalmeter#1#2{%
  92   \ifnum #2 = 0\relax
  93     \ifcase #1
  94     \or\or
  95       % 2
  96       \allabreve
  97     \or
  98       % 3
  99       \threetwometer    % tempus perfectum cum prolatione imperfecta
 100     \or
 101       % 4
 102       \fourfourmeter    % tempus imperfectum cum prolatione imperfecta
 103     \or\or
 104       % 6
 105       \sixfourmeter     % tempus imperfectum cum prolatione perfecta
 106     \or\or\or
 107       % 9
 108       \ninefourmeter    % tempus perfectum cum prolatione perfecta
 109     \fi
 110   \else
 111     \vbox to 0pt{%
 112       \vss
 113       \hbox to 0.45\staffheight{\hss \fetanummer #1\hss}%
 114       \nointerlineskip
 115       \hbox to 0.45\staffheight{\hss \fetanummer #2\hss}%
 116       \vss}%
 117   \fi}
 118
 119 \def\pianobrace#1{{\bracefont\char #1}}
 120 \def\staffbracket#1{{\centeralign{\bracketfont\char #1}}}
 121
 122 \def\embeddedtex#1{}
 123 \def\embeddedps#1{}
 124 \def\embeddedmf#1#2{}
 125 \def\embedclose{}
 126
 127 \input lily-ps-defs
 128
 129 % uncomment to use runtime MF
 130 %
 131 % \input lily-mf-defs
 132
 133 \def\EndLilyPondOutput{%
 134   \embedclose
 135   \csname bye\endcsname
 136 }
 137
 138 \endinput