tex/taupindefs.tex

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