mode_setup; input txmfont; input texmuse; instr_no(2); staff_1="-1,0,1,2,3"; staff_2="-1,0,1,2,3"; bar_type1=10; bar_type2=10; desired_width := 469.75499pt/pt; key_ := -1; instr_clef1:= 6; def lefthand = curr_instr:="lefthand;"; note_[index][instr_]:=currentpicture; instr_:=1; currentpicture:=note_[index][instr_]; enddef; 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(e3); righthand; add_noteheads(c5); end_of_char; new_char(16); righthand; add_noteheads(d5); end_of_char; new_char(16); lefthand; add_noteheads(c3); beam(1,1,1,e3,3,1,1,c3); righthand; add_noteheads(c5); end_of_char; new_char(16); righthand; add_noteheads(b5); beam(1,2,1,c5,2,2,1,d5,3,2,1,c5,4,2,1,b5); end_of_char; new_char(16); lefthand; add_noteheads(f3); righthand; add_noteheads(a5); end_of_char; new_char(16); righthand; add_noteheads(b5); end_of_char; new_char(16); lefthand; add_noteheads(c3); beam(5,1,1,f3,7,1,1,c3); righthand; add_noteheads(a5); end_of_char; new_char(16); righthand; add_noteheads(g4); beam(5,2,1,a5,6,2,1,b5,7,2,1,a5,8,2,1,g4); end_of_char; new_char(16); lefthand; add_noteheads(a4); righthand; add_noteheads(f4); end_of_char; new_char(16); righthand; add_noteheads(g4); end_of_char; new_char(16); lefthand; add_noteheads(f3); beam(9,1,1,a4,11,1,1,f3); righthand; add_noteheads(f4); end_of_char; new_char(16); righthand; add_noteheads(e4); add_flat(e4); beam(9,2,1,f4,10,2,1,g4,11,2,1,f4,12,2,1,e4); 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(b4); righthand; add_noteheads(d4); end_of_char; new_char(16); lefthand; add_noteheads(c3); end_of_char; new_char(16); lefthand; add_noteheads(b4); righthand; add_noteheads(g4); end_of_char; new_char(16); lefthand; add_noteheads(a4); beam(14,2,1,b4,15,2,1,c3,16,2,1,b4,17,2,1,a4); righthand; add_noteheads(f4); beam(14,1,1,d4,16,2,1,g4,17,2,1,f4); end_of_char; new_char(16); lefthand; add_noteheads(g3); righthand; add_noteheads(e4); add_natural(e4); end_of_char; new_char(16); lefthand; add_noteheads(a4); righthand; add_noteheads(f4); end_of_char; new_char(16); lefthand; add_noteheads(g3); righthand; add_noteheads(e4); end_of_char; new_char(16); lefthand; add_noteheads(f3); beam(18,2,1,g3,19,2,1,a4,20,2,1,g3,21,2,1,f3); righthand; add_noteheads(d4); beam(18,2,1,e4,19,2,1,f4,20,2,1,e4,21,2,1,d4); end_of_char; new_char(16); lefthand; add_noteheads(e3); righthand; add_noteheads(c4); end_of_char; new_char(16); lefthand; add_noteheads(f3); righthand; add_noteheads(d4); end_of_char; new_char(16); lefthand; add_noteheads(e3); righthand; add_noteheads(c4); end_of_char; new_char(16); lefthand; add_noteheads(d3); beam(22,2,1,e3,23,2,1,f3,24,2,1,e3,25,2,1,d3); righthand; add_noteheads(b4); beam(22,2,1,c4,23,2,1,d4,24,2,1,c4,25,2,1,b4); 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(c3); righthand; add_noteheads(a4); end_of_char; new_char(16); righthand; add_noteheads(b4); end_of_char; new_char(16); lefthand; add_noteheads(f3); righthand; add_noteheads(a4); end_of_char; new_char(16); lefthand; add_noteheads(e3); beam(27,1,1,c3,29,2,1,f3,30,2,1,e3); righthand; add_noteheads(g3); beam(27,2,1,a4,28,2,1,b4,29,2,1,a4,30,2,1,g3); end_of_char; new_char(16); lefthand; add_noteheads(d3); righthand; add_noteheads(f3); end_of_char; new_char(16); lefthand; add_noteheads(e3); end_of_char; new_char(16); lefthand; add_noteheads(d3); righthand; add_noteheads(f4); end_of_char; new_char(16); lefthand; add_noteheads(c3); beam(31,2,1,d3,32,2,1,e3,33,2,1,d3,34,2,1,c3); righthand; add_noteheads(e4); beam(31,1,1,f3,33,2,1,f4,34,2,1,e4); end_of_char; new_char(16); lefthand; add_noteheads(b3); righthand; add_noteheads(f4); end_of_char; new_char(16); lefthand; add_noteheads(d3); end_of_char; new_char(16); lefthand; add_noteheads(b3); righthand; add_noteheads(a4); beam(35,1,1,f4,37,1,1,a4); end_of_char; new_char(16); lefthand; add_noteheads(a3); beam(35,2,1,b3,36,2,1,d3,37,2,1,b3,38,2,1,a3); 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(g2); righthand; add_noteheads(b4); end_of_char; new_char(16); lefthand; add_noteheads(a3); end_of_char; new_char(16); lefthand; add_noteheads(g2); righthand; add_noteheads(f4); beam(40,1,1,b4,42,1,1,f4); end_of_char; new_char(16); lefthand; add_noteheads(f2); beam(40,2,1,g2,41,2,1,a3,42,2,1,g2,43,2,1,f2); end_of_char; new_char(16); lefthand; add_noteheads(c3); righthand; add_noteheads(a4); end_of_char; new_char(16); lefthand; add_noteheads(b3); end_of_char; new_char(16); lefthand; add_noteheads(a3); righthand; add_noteheads(f4); beam(44,1,1,a4,46,1,1,f4); end_of_char; new_char(16); lefthand; add_noteheads(b3); beam(44,2,1,c3,45,2,1,b3,46,2,1,a3,47,2,1,b3); end_of_char; new_char(32); lefthand; add_noteheads(c3); righthand; add_noteheads(g3); end_of_char; new_char(32); lefthand; add_noteheads(c2); beam(48,1,1,c3,49,1,1,c2); righthand; add_noteheads(e4); beam(48,1,1,g3,49,1,1,e4); end_of_char; new_char(-least_spaced); lefthand; barline_(10); righthand; barline_(10); end_of_char; end_of_block; new_char(64); lefthand; add_noteheads(f2); regular_stem; righthand; add_noteheads(f4); regular_stem; end_of_char; new_char(64); lefthand; add_rest(0,0); righthand; add_rest(0,0); end_of_char; new_char(64); lefthand; add_rest(0,0); righthand; add_rest(0,0); 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); end.