tex/taupindefs.tex

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