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
  65 \def\bracefont{\csname bracefont\currentsize\endcsname}
  66 \def\fetanummer{\csname fetanummer\currentsize\endcsname}
  67 \def\dynfont{\csname dynfont\currentsize\endcsname}
  68 \def\fingerfont{\csname fingerfont\currentsize\endcsname}
  69 \def\markfont{\csname markfont\currentsize\endcsname}
  70
  71 %\sixteenfonts
  72 %\twentysixfonts
  73 %\twentyfonts
  74 %\elevenfonts
  75 %\thirteenfonts
  76
  77 \def\switchfont#1{\def\currentsize{#1}\csname feta\currentsize\endcsname}
  78
  79 \def\fetdef#1#2{%
  80   \def#1{\hbox{\fetchar{#2}}}}
  81 \def\fetchar#1{\char#1}
  82
  83 %\input feta16
  84 %\input feta20
  85
  86 % stacked numbers; overrules def in lilyponddefs
  87 % widest num should be .40 balkheight
  88 % oeps: \meter 12/8;
  89 %
  90 % \allabreve, \threetwometer etc. have zero as the second parameter.
  91
  92 \def\generalmeter#1#2{%
  93   \ifnum #2 = 0\relax
  94     \ifcase #1
  95     \or\or
  96       % 2
  97       \allabreve
  98     \or
  99       % 3
 100       \threetwometer    % tempus perfectum cum prolatione imperfecta
 101     \or
 102       % 4
 103       \fourfourmeter    % tempus imperfectum cum prolatione imperfecta
 104     \or\or
 105       % 6
 106       \sixfourmeter     % tempus imperfectum cum prolatione perfecta
 107     \or\or\or
 108       % 9
 109       \ninefourmeter    % tempus perfectum cum prolatione perfecta
 110     \fi
 111   \else
 112     \vbox to 0pt{%
 113       \vss
 114       \hbox to 0.45\staffheight{\hss \fetanummer #1\hss}%
 115       \nointerlineskip
 116       \hbox to 0.45\staffheight{\hss \fetanummer #2\hss}%
 117       \vss}%
 118   \fi}
 119
 120 \def\pianobrace#1{{\bracefont\char #1}}
 121 \def\staffbracket#1{{\centeralign{\bracketfont\char #1}}}
 122
 123 \def\embeddedtex#1{}
 124 \def\embeddedps#1{}
 125 \def\embeddedmf#1#2{}
 126 \def\embedclose{}
 127
 128 \input lily-ps-defs
 129
 130 % uncomment to use runtime MF
 131 %
 132 % \input lily-mf-defs
 133
 134 \def\EndLilyPondOutput{%
 135   \embedclose
 136   \csname bye\endcsname
 137 }
 138
 139 \endinput