summaryrefslogtreecommitdiff
path: root/obsolete/macros/texmuse/Samples/tex/dmajor4.mf
blob: ded238a5480b7d66f8129e9f088ad72a7ee7be50 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
mode_setup;
input txmfont;
input texmuse;
instr_no(1);
staff_1="-1,0,1,2,3";
bar_type11=10;
key_ := 0;
desired_width := 345.0pt/pt;
instr_clef1:= 0;
def righthand =
   curr_instr:="righthand;";
   note_[index][instr_]:=currentpicture;
   instr_:=1;
   currentpicture:=note_[index][instr_];
   enddef;
new_char(96);
righthand;
   add_noteheads(f5);
   regular_stem;
   add_dot(f5);
   add_tie(f5);
end_of_char;
new_char(-least_spaced);
righthand;
   barline_(10);
end_of_char;
end_of_block;