mode_setup; input txmfont; input texmuse; instr_no(2); key_ := -2; 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(g3); righthand; add_noteheads(b5); end_of_char; new_char(8); lefthand; add_noteheads(b4); righthand; add_noteheads(g4); end_of_char; new_char(8); lefthand; add_noteheads(a4); add_flat(a4); end_of_char; new_char(8); lefthand; add_noteheads(g3); righthand; add_noteheads(e5); end_of_char; new_char(8); lefthand; add_noteheads(a4); end_of_char; new_char(16); lefthand; add_noteheads(b4); beam(1,2,1,g3,2,3,1,b4,3,3,1,a4,4,3,1,g3,5,3,1,a4,6,2,1,b4); righthand; add_noteheads(b5); beam(1,2,1,b5,2,2,1,g4,4,2,1,e5,6,2,1,b5); end_of_char; new_char(16); lefthand; add_noteheads(e3); righthand; add_noteheads(g4); end_of_char; new_char(8); lefthand; add_noteheads(g3); righthand; add_noteheads(b5); end_of_char; new_char(8); righthand; add_noteheads(a5); add_flat(a5); end_of_char; new_char(8); lefthand; add_noteheads(b3); righthand; add_noteheads(g4); end_of_char; new_char(8); righthand; add_noteheads(a5); end_of_char; new_char(16); lefthand; add_noteheads(d3); beam(7,2,1,e3,8,2,1,g3,10,2,1,b3,12,2,1,d3); righthand; add_noteheads(b5); beam(7,2,1,g4,8,3,1,b5,9,3,1,a5,10,3,1,g4,11,3,1,a5,12,2,1,b5); end_of_char; new_char(16); lefthand; add_noteheads(c4); righthand; add_noteheads(e4); end_of_char; new_char(8); lefthand; add_noteheads(f3); end_of_char; new_char(8); lefthand; add_noteheads(g3); end_of_char; new_char(8); lefthand; add_noteheads(a4); add_natural(a4); righthand; add_noteheads(e5); add_tie(e5); beam(13,1,1,e4,16,1,1,e5); end_of_char; new_char(8); lefthand; add_noteheads(g3); end_of_char; new_char(16); lefthand; add_noteheads(f3); beam(13,2,1,c4,14,3,1,f3,15,3,1,g3,16,3,1,a4,17,3,1,g3,18,2,1,f3); end_of_char; new_char(16); lefthand; add_noteheads(c4); righthand; close_tie(e5); add_noteheads(e5); end_of_char; new_char(8); lefthand; add_noteheads(a4); righthand; add_noteheads(e5); end_of_char; new_char(8); righthand; add_noteheads(d5); end_of_char; new_char(8); lefthand; add_noteheads(e4); righthand; add_noteheads(c5); end_of_char; new_char(8); righthand; add_noteheads(d5); end_of_char; new_char(16); lefthand; add_noteheads(c4); beam(19,2,1,c4,20,2,1,a4,22,2,1,e4,24,2,1,c4); righthand; add_noteheads(e5); beam(19,2,1,e5,20,3,1,e5,21,3,1,d5,22,3,1,c5,23,3,1,d5,24,2,1,e5); 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(a4); righthand; add_noteheads(f4); end_of_char; new_char(8); lefthand; add_noteheads(c4); end_of_char; new_char(8); lefthand; add_noteheads(b4); end_of_char; new_char(8); lefthand; add_noteheads(a4); righthand; add_noteheads(e5); add_tie(e5); beam(26,1,1,f4,29,1,1,e5); end_of_char; new_char(8); lefthand; add_noteheads(b4); end_of_char; new_char(16); lefthand; add_noteheads(c4); beam(26,2,1,a4,27,3,1,c4,28,3,1,b4,29,3,1,a4,30,3,1,b4,31,2,1,c4); end_of_char; new_char(16); lefthand; add_noteheads(f3); righthand; close_tie(e5); add_noteheads(e5); end_of_char; new_char(8); lefthand; add_noteheads(a4); righthand; add_noteheads(c5); end_of_char; new_char(8); righthand; add_noteheads(d5); end_of_char; new_char(8); lefthand; add_noteheads(c3); righthand; add_noteheads(e5); end_of_char; new_char(8); righthand; add_noteheads(d5); end_of_char; new_char(16); lefthand; add_noteheads(e3); beam(32,2,1,f3,33,2,1,a4,35,2,1,c3,37,2,1,e3); righthand; add_noteheads(c5); beam(32,2,1,e5,33,3,1,c5,34,3,1,d5,35,3,1,e5,36,3,1,d5,37,2,1,c5); end_of_char; new_char(16); lefthand; add_noteheads(d3); righthand; add_noteheads(f5); end_of_char; new_char(8); lefthand; add_noteheads(b4); righthand; add_noteheads(d5); end_of_char; new_char(8); lefthand; add_noteheads(c4); righthand; add_noteheads(c5); end_of_char; new_char(8); lefthand; add_noteheads(d4); righthand; add_noteheads(b5); end_of_char; new_char(8); lefthand; add_noteheads(c4); righthand; add_noteheads(c5); end_of_char; new_char(16); lefthand; add_noteheads(b4); beam(38,2,1,d3,39,3,1,b4,40,3,1,c4,41,3,1,d4,42,3,1,c4,43,2,1,b4); righthand; add_noteheads(d5); beam(38,2,1,f5,39,3,1,d5,40,3,1,c5,41,3,1,b5,42,3,1,c5,43,2,1,d5); end_of_char; new_char(16); lefthand; add_noteheads(f4); righthand; add_noteheads(f4); end_of_char; new_char(16); righthand; add_noteheads(b5); end_of_char; new_char(16); lefthand; add_noteheads(f3); beam(44,1,1,f4,46,1,1,f3); righthand; add_noteheads(c5); end_of_char; new_char(16); righthand; add_noteheads(a5); beam(44,2,1,f4,45,2,1,b5,46,2,1,c5,47,2,1,a5); end_of_char; new_char(-least_spaced); lefthand; barline_(10); righthand; barline_(10); end_of_char; end_of_block; new_char(256); lefthand; add_wholeheads(b4); righthand; add_wholeheads(b5); 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.