blob: a61bc298eb4d1d2a25aa61114e23e93fad73d432 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
% This file facilitates compilation of some musixtex features.
% Version 5.13
\newtoks\t@c
\def\@fourtoks#1#2#3#4#5+{#1#2#3#4}
\def\setclef#1#2{\noinstrum@nt#1\relax \s@l@ctclefs \t@c{#2000}%
\cleftoks\expandafter\expandafter\expandafter{\expandafter\@fourtoks\the\t@c+}}
\let\setclefs\setclef
\endinput
|