mode_setup; input txmfont; input texmuse; instr_no(2); key_ := 0; desired_width := 469.75499pt/pt; staff_1="-1,0,1,2,3"; bar_type1=10; instr_clef1:= 6; def lefthand = curr_instr:="lefthand;"; note_[index][instr_]:=currentpicture; instr_:=1; currentpicture:=note_[index][instr_]; enddef; staff_2="-1,0,1,2,3"; bar_type2=10; instr_clef2:= 0; def righthand = curr_instr:="righthand;"; note_[index][instr_]:=currentpicture; instr_:=2; currentpicture:=note_[index][instr_]; enddef; new_char(16); lefthand; add_noteheads(a3); righthand; add_noteheads(c4); end_of_char; new_char(16); righthand; add_noteheads(e4); end_of_char; new_char(16); lefthand; add_noteheads(c3); righthand; add_noteheads(a5); end_of_char; new_char(16); righthand; add_noteheads(e4); beam(1,2,1,c4,2,2,1,e4,3,2,1,a5,4,2,1,e4); end_of_char; new_char(16); lefthand; add_noteheads(e3); righthand; add_noteheads(c4); end_of_char; new_char(16); righthand; add_noteheads(e4); end_of_char; new_char(16); lefthand; add_noteheads(c3); beam(1,1,1,a3,3,1,1,c3,5,1,1,e3,7,1,1,c3); righthand; add_noteheads(a4); end_of_char; new_char(16); righthand; add_noteheads(c4); beam(5,2,1,c4,6,2,1,e4,7,2,1,a4,8,2,1,c4); end_of_char; new_char(16); lefthand; add_noteheads(a3); righthand; add_noteheads(d4); add_sharp(d4); end_of_char; new_char(16); righthand; add_noteheads(c4); end_of_char; new_char(16); lefthand; add_noteheads(c3); beam(9,1,1,a3,11,1,1,c3); righthand; add_noteheads(a4); end_of_char; new_char(16); righthand; add_noteheads(c4); beam(9,2,1,d4,10,2,1,c4,11,2,1,a4,12,2,1,c4); end_of_char; new_char(16); lefthand; add_noteheads(d2); add_sharp(d2); regular_stem; add_flag(1); righthand; add_noteheads(f3); add_sharp(f3); end_of_char; new_char(16); righthand; add_noteheads(c4); end_of_char; new_char(16); lefthand; add_rest(1,0); righthand; add_noteheads(b4); end_of_char; new_char(16); righthand; add_noteheads(a4); beam(13,2,1,f3,14,2,1,c4,15,2,1,b4,16,2,1,a4); end_of_char; new_char(-least_spaced); lefthand; barline_(10); righthand; barline_(10); end_of_char; end_of_block; new_char(16); lefthand; add_rest(2,0); righthand; add_noteheads(g3); add_sharp(g3); end_of_char; new_char(16); lefthand; add_noteheads(b4); end_of_char; new_char(16); lefthand; add_noteheads(g3); add_sharp(g3); righthand; add_noteheads(b5); beam(18,1,1,g3,20,1,1,b5); end_of_char; new_char(16); lefthand; add_noteheads(e3); beam(19,2,1,b4,20,2,1,g3,21,2,1,e3); end_of_char; new_char(16); lefthand; add_noteheads(d3); righthand; add_noteheads(g4); add_sharp(g4); end_of_char; new_char(16); lefthand; add_noteheads(b4); end_of_char; new_char(16); lefthand; add_noteheads(g3); righthand; add_noteheads(e4); beam(22,1,1,g4,24,1,1,e4); end_of_char; new_char(16); lefthand; add_noteheads(d3); beam(22,2,1,d3,23,2,1,b4,24,2,1,g3,25,2,1,d3); end_of_char; new_char(16); lefthand; add_noteheads(c3); righthand; add_rest(2,0); end_of_char; new_char(16); righthand; add_noteheads(e4); end_of_char; new_char(16); lefthand; add_noteheads(e3); beam(26,1,1,c3,28,1,1,e3); righthand; add_noteheads(a5); end_of_char; new_char(16); righthand; add_noteheads(c5); beam(27,2,1,e4,28,2,1,a5,29,2,1,c5); end_of_char; new_char(16); lefthand; add_noteheads(g2); add_sharp(g2); righthand; add_noteheads(b5); end_of_char; new_char(16); righthand; add_noteheads(e4); end_of_char; new_char(16); lefthand; add_noteheads(e3); beam(30,1,1,g2,32,1,1,e3); righthand; add_noteheads(b5); end_of_char; new_char(16); righthand; add_noteheads(d5); beam(30,2,1,b5,31,2,1,e4,32,2,1,b5,33,2,1,d5); end_of_char; new_char(-least_spaced); lefthand; barline_(10); righthand; barline_(10); end_of_char; end_of_block; new_char(16); lefthand; add_noteheads(a3); righthand; add_noteheads(c5); end_of_char; new_char(16); righthand; add_noteheads(a5); end_of_char; new_char(16); lefthand; add_noteheads(f3); add_sharp(f3); beam(35,1,1,a3,37,1,1,f3); righthand; add_noteheads(c5); end_of_char; new_char(16); righthand; add_noteheads(e5); beam(35,2,1,c5,36,2,1,a5,37,2,1,c5,38,2,1,e5); end_of_char; new_char(16); lefthand; add_noteheads(b3); righthand; add_noteheads(d5); end_of_char; new_char(16); righthand; add_noteheads(b5); end_of_char; new_char(16); lefthand; add_noteheads(g3); add_sharp(g3); beam(39,1,1,b3,41,1,1,g3); righthand; add_noteheads(d5); end_of_char; new_char(16); righthand; add_noteheads(f5); beam(39,2,1,d5,40,2,1,b5,41,2,1,d5,42,2,1,f5); end_of_char; new_char(16); lefthand; add_noteheads(c3); righthand; add_noteheads(e5); end_of_char; new_char(16); righthand; add_noteheads(c5); end_of_char; new_char(16); lefthand; add_noteheads(a4); beam(43,1,1,c3,45,1,1,a4); righthand; add_noteheads(e5); end_of_char; new_char(16); righthand; add_noteheads(g5); beam(43,2,1,e5,44,2,1,c5,45,2,1,e5,46,2,1,g5); end_of_char; new_char(16); lefthand; add_noteheads(d3); righthand; add_noteheads(f5); end_of_char; new_char(16); righthand; add_noteheads(e5); end_of_char; new_char(16); lefthand; add_noteheads(b4); add_flat(b4); beam(47,1,1,d3,49,1,1,b4); righthand; add_noteheads(d5); end_of_char; new_char(16); righthand; add_noteheads(c5); beam(47,2,1,f5,48,2,1,e5,49,2,1,d5,50,2,1,c5); end_of_char; new_char(-least_spaced); lefthand; barline_(10); righthand; barline_(10); end_of_char; end_of_block; new_char(16); lefthand; add_noteheads(g3); add_sharp(g3); righthand; add_noteheads(b5); end_of_char; new_char(16); righthand; add_noteheads(c5); end_of_char; new_char(16); lefthand; add_noteheads(f3); beam(52,1,1,g3,54,1,1,f3); righthand; add_noteheads(d5); end_of_char; new_char(16); righthand; add_noteheads(e5); beam(52,2,1,b5,53,2,1,c5,54,2,1,d5,55,2,1,e5); end_of_char; new_char(16); lefthand; add_noteheads(d3); righthand; add_noteheads(f5); end_of_char; new_char(16); righthand; add_noteheads(d5); end_of_char; new_char(16); lefthand; add_noteheads(b3); beam(56,1,1,d3,58,1,1,b3); righthand; add_noteheads(g5); add_sharp(g5); end_of_char; new_char(16); righthand; add_noteheads(d5); beam(56,2,1,f5,57,2,1,d5,58,2,1,g5,59,2,1,d5); end_of_char; new_char(16); lefthand; add_noteheads(g2); add_sharp(g2); righthand; add_noteheads(b6); end_of_char; new_char(16); righthand; add_noteheads(d5); end_of_char; new_char(16); lefthand; add_noteheads(a3); beam(60,1,1,g2,62,1,1,a3); righthand; add_noteheads(c5); end_of_char; new_char(16); righthand; add_noteheads(a6); beam(60,2,1,b6,61,2,1,d5,62,2,1,c5,63,2,1,a6); end_of_char; new_char(16); lefthand; add_noteheads(d2); righthand; add_noteheads(f5); end_of_char; new_char(16); righthand; add_noteheads(d5); end_of_char; new_char(16); lefthand; add_noteheads(e2); beam(64,1,1,d2,66,1,1,e2); righthand; add_noteheads(b5); end_of_char; new_char(16); righthand; add_noteheads(d5); beam(64,2,1,f5,65,2,1,d5,66,2,1,b5,67,2,1,d5); end_of_char; new_char(-least_spaced); lefthand; barline_(10); righthand; barline_(10); end_of_char; end_of_block; new_char(16); lefthand; add_noteheads(f2); righthand; add_noteheads(g4); add_sharp(g4); end_of_char; new_char(16); righthand; add_noteheads(b5); end_of_char; new_char(16); lefthand; add_noteheads(d2); add_sharp(d2); beam(69,1,1,f2,71,1,1,d2); righthand; add_noteheads(c5); end_of_char; new_char(16); righthand; add_noteheads(a5); beam(69,2,1,g4,70,2,1,b5,71,2,1,c5,72,2,1,a5); end_of_char; new_char(16); lefthand; add_noteheads(e2); righthand; add_noteheads(e4); end_of_char; new_char(16); righthand; add_noteheads(a5); end_of_char; new_char(16); lefthand; add_noteheads(e3); beam(73,1,1,e2,75,1,1,e3); righthand; add_noteheads(b5); end_of_char; new_char(16); righthand; add_noteheads(g4); beam(73,2,1,e4,74,2,1,a5,75,2,1,b5,76,2,1,g4); end_of_char; new_char(16); lefthand; add_halfheads(a3); regular_stem; righthand; add_noteheads(a5); end_of_char; new_char(16); righthand; add_noteheads(e4); end_of_char; new_char(16); righthand; add_noteheads(c4); end_of_char; new_char(16); righthand; add_noteheads(e4); beam(77,2,1,a5,78,2,1,e4,79,2,1,c4,80,2,1,e4); end_of_char; new_char(64); righthand; add_noteheads(a5); regular_stem; end_of_char; new_char(-least_spaced); lefthand; barline_(20); righthand; barline_(20); end_of_char; numeric desired_width; end_of_block; make_line(next_char); showstats; end.