tex/taupindefs.tex

   1 \input fetdefs
   2 \def\musixtwentyfonts{
   3         \font\normaltextfont=cmr10 %\textfont is a primitive
   4         \font\smalltextfont=cmr8
   5         \font\meterfont=cmbx15
   6         \font\slurufont=xslu20
   7         \font\slurdfont=xsld20
   8         \font\slurhfont=xslz20
   9         \font\hslurufont=xslhu20
  10         \font\hslurdfont=xslhd20
  11         \font\hslurhfont=xslhz20
  12         \font\musicfnt=musix20
  13         \font\musicdraw=musixsps
  14         \font\italicfont=cmti10
  15         \font\dynfont=dyn10 scaled \magstep2
  16         \font\musicmathfont=cmsy10
  17         \fettwentydefs
  18 }
  19
  20
  21 \def\musixsixteenfonts{
  22         \font\normaltextfont=cmr8 %\textfont is a primitive
  23         \font\smalltextfont=cmr6
  24         \font\meterfont=cmbx12
  25         \font\italicfont=cmti8
  26         \font\slurufont=xslu16
  27         \font\slurdfont=xsld16
  28         \font\slurhfont=xslz20 % sigh
  29         \font\hslurufont=xslhu16
  30         \font\hslurdfont=xslhd16
  31         \font\hslurhfont=xslhz20
  32         \font\musicfnt=musix16
  33         \font\dynfont=dyn10 scaled \magstep1
  34         \font\musicdraw=musixsps
  35         \font\musicmathfont=cmsy8
  36         \fetsixteendefs
  37 }
  38 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  39 % provide interface to musixtex fonts
  40 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  41 % \musicdef\breveball{'040}
  42 % \musicdef\longaball{'047}
  43 % \musicdef\quartball{'007}
  44 % \musicdef\halfball{'010}
  45 % \musicdef\wholeball{'011}
  46 \musicdef\halfrest{'074}
  47 \musicdef\wholerest{'075}
  48 \musicdef\breverest{'072}
  49 \musicdef\longarest{'073}
  50
  51 %% hmm
  52 \musicdef\outsidehalfrest{10}
  53 \musicdef\outsidewholerest{11}
  54 % \musicdef\quartrest{62}
  55 % \musicdef\eighthrest{63}
  56 % \musicdef\sixteenthrest{64}
  57 % \musicdef\thirtysecondrest{65}
  58 % \musicdef\sixtyfourthrest{66}
  59 % \musicdef\hundredtwentyeighthrest{67}
  60 \musicdef\sharp{52}
  61 \musicdef\flat{50}
  62 \musicdef\natural{54}
  63 \musicdef\sharpsharp{53}
  64 \musicdef\flatflat{51}
  65
  66 \musicdef\singledot{'00}
  67 \musicdef\doubledot{'01}
  68 \musicdef\tripledot{'02}
  69 \musicdef\mussepline{155}
  70
  71 \musicdef\violinclef{71}
  72 \musicdef\bassclef{73}
  73 \musicdef\altoclef{75}
  74 \musicdef\cviolinclef{72}
  75 \musicdef\cbassclef{74}
  76 \musicdef\caltoclef{76}
  77
  78 \musicdef\deighthflag{45}
  79 \musicdef\dsixteenthflag{46}
  80 \musicdef\dthirtysecondflag{47}
  81 \musicdef\dsixtyfourthflag{48}
  82 \musicdef\dhundredtwentyeighthflag{49}
  83
  84 % pointing up
  85 \musicdef\ueighthflag{40}
  86 \musicdef\usixteenthflag{41}
  87 \musicdef\uthirtysecondflag{42}
  88 \musicdef\usixtyfourthflag{43}
  89 \musicdef\uhundredtwentyeighthflag{44}
  90
  91 \maccentdef\repeatcolon{55}{2/1}
  92 \def\eighthflag{\topalign{\ueighthflag}}
  93 \def\sixteenthflag{\topalign{\usixteenthflag}}
  94 \def\thirtysecondflag{\topalign{\uthirtysecondflag}}
  95 \def\sixtyfourthflag{\topalign{\usixtyfourthflag}}
  96 \def\hundredtwentyeighthflag{\topalign{\uhundredtwentyeighthflag}}
  97
  98 \def\cquartrest{\vertcenter\quartrest}
  99 \def\ceighthrest{\vertcenter\eighthrest}
 100 \def\csixteenthrest{\vertcenter\sixteenthrest}
 101 \def\cthirtysecondrest{\vertcenter\thirtysecondrest}
 102 \def\csixtyfourthrest{\vertcenter\sixtyfourthrest}
 103 \def\chundredtwentyeighthrest{\vertcenter\hundredtwentyeighthrest}
 104
 105 \def\lsingledot{\kern-\notewidth\singledot}
 106 \def\ldoubledot{\kern-\notewidth\doubledot}
 107 \def\ltripledot{\kern-\notewidth\tripledot}
 108
 109 \musicdef\turn{67}
 110 \maccentdef\sforzato{30}{-3/2}
 111 \maccentdef\marcato{20}{-1/1}
 112 \maccentdef\imarcato{21}{1/1}
 113 \maccentdef\staccato{24}{-1/1}
 114 \maccentdef\istaccato{25}{1/1}
 115 \maccentdef\staccatissimo{28}{-5/5}
 116 \maccentdef\istaccatissimo{29}{2/5}
 117 \maccentdef\portato{18}{-6/5}
 118 \maccentdef\iportato{19}{3/5}
 119 \maccentdef\tenuto{26}{-1/1}
 120 \maccentdef\itenuto{27}{1/1}
 121 \maccentdef\fermata{80}{-1/1}
 122 \maccentdef\ifermata{81}{1/1}
 123
 124 \musicdef\spicato{28}
 125 \musicdef\ispicato{29}
 126 \musicdef\upbow{23}
 127 \musicdef\downbow{22}
 128
 129 \def\tr{{\it tr}}
 130
 131 \def\beamuslope#1#2{{\count0=#2\advance\count0 by#1
 132         \advance\count0 by 122
 133         \musicfnt\char\count0}}
 134 \def\beamdslope#1#2{{\count0=#2\advance\count0 by#1
 135         \advance\count0 by 186
 136         \musicfnt\char\count0}}
 137