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