tex/eglerdefs.tex

   1 %
   2 % Has to be fixed. Exercise for the reader.
   3 %
   4 \input fetdefs
   5
   6 \def\musixtwentyfonts{
   7         \font\normaltextfont=cmr10
   8         \font\meterfont=cmbx15
   9         \font\slurufont=oslu20
  10         \font\smalltextfont=cmr8
  11         \font\slurdfont=osld20
  12         \font\slurhfont=oslz20
  13         \font\hslurufont=oslhu20
  14         \font\hslurdfont=oslhd20
  15         \font\hslurhfont=oslhz20
  16         \font\musicfnt=opus20
  17         \font\musicdraw=opussps
  18         \font\italicfont=cmti10
  19         \font\dynfont=cmbxti10 scaled \magstep1
  20         \font\musicmathfont=cmsy10
  21         \fettwentydefs
  22 }
  23
  24
  25 \def\musixsixteenfonts{
  26         \font\smalltextfont=cmr6
  27         \font\normaltextfont=cmr8
  28         \font\meterfont=cmbx12
  29         \font\italicfont=cmti8
  30         \font\slurufont=oslu16
  31         \font\slurdfont=osld16
  32         \font\slurhfont=oslz20 % sigh
  33         \font\hslurufont=oslhu16
  34         \font\hslurdfont=oslhd16
  35         \font\hslurhfont=oslhz20
  36         \font\musicfnt=opus16
  37         \font\dynfont=cmbxti12
  38         \font\musicdraw=opussps
  39         \font\musicmathfont=cmsy8
  40         \fetsixteendefs
  41 }
  42
  43 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  44 % provide interface to musixtex fonts
  45 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  46 \musicdef\halfrest{10}
  47 \musicdef\outsidehalfrest{11}
  48 \musicdef\wholerest{13}
  49 \musicdef\outsidewholerest{12}
  50 \musicdef\quartrest{14}
  51 \musicdef\eighthrest{15}
  52 \musicdef\sixteenthrest{16}
  53 \musicdef\thirtysecondrest{17}
  54 \musicdef\sixtyfourthrest{18}
  55 \musicdef\sharp{93}
  56 \musicdef\flat{91}
  57 \musicdef\natural{95}
  58 \musicdef\sharpsharp{94}
  59 \musicdef\flatflat{92}
  60
  61
  62 \musicdef\singledot{'00}
  63 \musicdef\doubledot{'01}
  64 \musicdef\tripledot{'02}
  65 \musicdef\mussepline{155}
  66
  67 \musicdef\violinclef{65}
  68 \musicdef\bassclef{67}
  69 \musicdef\altoclef{69}
  70 \musicdef\cviolinclef{66}
  71 \musicdef\cbassclef{68}
  72 \musicdef\caltoclef{70}
  73
  74 \musicdef\deighthflag{37}
  75 \musicdef\dsixteenthflag{38}
  76 \musicdef\dthirtysecondflag{39}
  77 \musicdef\dsixtyfourthflag{40}
  78 \musicdef\dhundredtwentyeighthflag{41}
  79
  80 % pointing up
  81 \musicdef\ueighthflag{32}
  82 \musicdef\usixteenthflag{33}
  83 \musicdef\uthirtysecondflag{34}
  84 \musicdef\usixtyfourthflag{35}
  85 \musicdef\uhundredtwentyeighthflag{36}
  86
  87 \maccentdef\repeatcolon{55}{2/1}
  88 \def\eighthflag{\topalign{\ueighthflag}}
  89 \def\sixteenthflag{\topalign{\usixteenthflag}}
  90 \def\thirtysecondflag{\topalign{\uthirtysecondflag}}
  91 \def\sixtyfourthflag{\topalign{\usixtyfourthflag}}
  92 \def\hundredtwentyeighthflag{\topalign{\uhundredtwentyeighthflag}}
  93
  94 \def\cquartrest{\vertcenter\quartrest}
  95 \def\ceighthrest{\vertcenter\eighthrest}
  96 \def\csixteenthrest{\vertcenter\sixteenthrest}
  97 \def\cthirtysecondrest{\vertcenter\thirtysecondrest}
  98 \def\csixtyfourthrest{\vertcenter\sixtyfourthrest}
  99 \def\chundredtwentyeighthrest{\vertcenter\hundredtwentyeighthrest}
 100
 101 \def\lsingledot{\kern-\notewidth\singledot}
 102 \def\ldoubledot{\kern-\notewidth\doubledot}
 103 \def\ltripledot{\kern-\notewidth\tripledot}
 104
 105 \maccentdef\sforzato{30}{-3/2}
 106 \maccentdef\marcato{20}{-1/1}
 107 \maccentdef\imarcato{21}{1/1}
 108 \maccentdef\staccato{24}{-1/3}
 109 \maccentdef\istaccato{25}{1/3}
 110 \maccentdef\staccatissimo{28}{-5/5}
 111 \maccentdef\istaccatissimo{29}{2/5}
 112 \maccentdef\portato{18}{-6/5}
 113 \maccentdef\iportato{19}{3/5}
 114 \maccentdef\tenuto{26}{-1/1}
 115 \maccentdef\itenuto{27}{1/1}
 116 \maccentdef\fermata{80}{-1/1}
 117 \maccentdef\ifermata{81}{1/1}
 118
 119 \musicdef\spicato{28}
 120 \musicdef\ispicato{29}
 121 \musicdef\upbow{23}
 122 \musicdef\downbow{22}
 123
 124 \def\beamuslope#1#2{{\count0=#2\advance\count0 by#1
 125         \advance\count0 by 132
 126         \musicfnt\char\count0}}
 127 \def\beamdslope#1#2{{\count0=#2\advance\count0 by#1
 128         \advance\count0 by 186
 129         \musicfnt\char\count0}}
 130