mode_setup; input txmfont; input texmuse; instr_no(2); key_ := 0; desired_width := 345.0pt/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(a4); righthand; add_noteheads(d5); end_of_char; new_char(16); lefthand; add_noteheads(f3); end_of_char; new_char(16); lefthand; add_noteheads(b4); righthand; add_noteheads(d4); end_of_char; new_char(16); lefthand; add_noteheads(g3); end_of_char; new_char(16); lefthand; add_noteheads(f3); righthand; add_noteheads(d5); beam(1,1,1,d5,3,1,1,d4,5,1,1,d5); end_of_char; new_char(16); lefthand; add_noteheads(e3); beam(1,2,1,a4,2,2,1,f3,3,2,1,b4,4,2,1,g3,5,2,1,f3,6,2,1,e3); 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(d5); end_of_char; new_char(16); lefthand; add_noteheads(f3); end_of_char; new_char(16); lefthand; add_noteheads(g3); righthand; add_noteheads(d4); end_of_char; new_char(16); lefthand; add_noteheads(e3); end_of_char; new_char(16); lefthand; add_noteheads(d3); righthand; add_noteheads(d5); end_of_char; new_char(16); lefthand; add_noteheads(c3); beam(8,2,1,a4,9,2,1,f3,10,2,1,g3,11,2,1,e3,12,2,1,d3,13,2,1,c3); righthand; add_noteheads(e5); beam(8,1,1,d5,10,1,1,d4,12,2,1,d5,13,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(d3); righthand; add_noteheads(f5); end_of_char; new_char(16); righthand; add_noteheads(e5); end_of_char; new_char(16); lefthand; add_noteheads(e3); righthand; add_noteheads(g5); end_of_char; new_char(16); righthand; add_noteheads(f5); end_of_char; new_char(16); lefthand; add_noteheads(f3); beam(15,1,1,d3,17,1,1,e3,19,1,1,f3); righthand; add_noteheads(e5); end_of_char; new_char(16); righthand; add_noteheads(d5); beam(15,2,1,f5,16,2,1,e5,17,2,1,g5,18,2,1,f5,19,2,1,e5,20,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(g3); righthand; add_noteheads(b6); end_of_char; new_char(16); lefthand; add_noteheads(f3); end_of_char; new_char(16); lefthand; add_noteheads(a4); righthand; add_noteheads(c5); end_of_char; new_char(16); lefthand; add_noteheads(g3); end_of_char; new_char(16); lefthand; add_noteheads(f3); righthand; add_noteheads(d5); add_tie(d5); beam(22,1,1,b6,24,1,1,c5,26,1,1,d5); end_of_char; new_char(16); lefthand; add_noteheads(e3); beam(22,2,1,g3,23,2,1,f3,24,2,1,a4,25,2,1,g3,26,2,1,f3,27,2,1,e3); 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(f3); righthand; close_tie(d5); add_noteheads(d5); end_of_char; new_char(16); lefthand; add_noteheads(g3); righthand; add_noteheads(e5); end_of_char; new_char(32); lefthand; add_noteheads(a4); righthand; add_noteheads(e5); add_dot(e5); end_of_char; new_char(16); lefthand; add_noteheads(a3); beam(29,2,1,f3,30,2,1,g3,31,1,1,a4,32,1,1,a3); end_of_char; new_char(16); righthand; add_noteheads(d5); beam(29,2,1,d5,30,2,1,e5,31,1,1,e5,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(b3); righthand; add_noteheads(d5); end_of_char; new_char(16); lefthand; add_noteheads(a3); end_of_char; new_char(16); lefthand; add_noteheads(c3); add_natural(c3); righthand; add_noteheads(d4); end_of_char; new_char(16); lefthand; add_noteheads(b3); end_of_char; new_char(16); lefthand; add_noteheads(a3); righthand; add_noteheads(g4); add_tie(g4); beam(35,1,1,d5,37,1,1,d4,39,1,1,g4); end_of_char; new_char(16); lefthand; add_noteheads(g2); beam(35,2,1,b3,36,2,1,a3,37,2,1,c3,38,2,1,b3,39,2,1,a3,40,2,1,g2); 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(d3); regular_stem; add_dot(d3); add_tie(d3); righthand; close_tie(g4); add_noteheads(g4); end_of_char; new_char(16); righthand; add_noteheads(a4); end_of_char; new_char(16); righthand; add_noteheads(b4); end_of_char; new_char(16); righthand; add_noteheads(c4); end_of_char; new_char(16); righthand; add_noteheads(d4); end_of_char; new_char(16); righthand; add_noteheads(e4); beam(42,2,1,g4,43,2,1,a4,44,2,1,b4,45,2,1,c4,46,2,1,d4,47,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; close_tie(d3); add_noteheads(d3); righthand; add_noteheads(f4); end_of_char; new_char(16); lefthand; add_noteheads(c3); righthand; add_noteheads(e4); end_of_char; new_char(16); lefthand; add_noteheads(b3); righthand; add_noteheads(g4); end_of_char; new_char(16); lefthand; add_noteheads(a3); righthand; add_noteheads(f4); end_of_char; new_char(16); lefthand; add_noteheads(g2); righthand; add_noteheads(e4); end_of_char; new_char(16); lefthand; add_noteheads(f2); beam(49,2,1,d3,50,2,1,c3,51,2,1,b3,52,2,1,a3,53,2,1,g2,54,2,1,f2); righthand; add_noteheads(d4); beam(49,2,1,f4,50,2,1,e4,51,2,1,g4,52,2,1,f4,53,2,1,e4,54,2,1,d4); 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(b5); add_dot(b5); end_of_char; new_char(16); lefthand; add_noteheads(f2); end_of_char; new_char(16); lefthand; add_noteheads(a3); end_of_char; new_char(16); lefthand; add_noteheads(g2); righthand; add_noteheads(c4); end_of_char; new_char(16); lefthand; add_noteheads(f2); righthand; add_noteheads(d4); end_of_char; new_char(16); lefthand; add_noteheads(e2); beam(56,2,1,g2,57,2,1,f2,58,2,1,a3,59,2,1,g2,60,2,1,f2,61,2,1,e2); righthand; add_noteheads(c4); beam(56,1,1,b5,59,2,1,c4,60,2,1,d4,61,2,1,c4); 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(d4); end_of_char; new_char(16); lefthand; add_noteheads(g2); beam(63,2,1,f2,64,2,1,g2); righthand; add_noteheads(g4); end_of_char; new_char(48); lefthand; add_noteheads(a3); regular_stem; righthand; add_noteheads(e4); add_dot(e4); end_of_char; new_char(16); righthand; add_noteheads(d4); beam(63,2,1,d4,64,2,1,g4,65,1,1,e4,66,2,1,d4); end_of_char; new_char(-least_spaced); lefthand; barline_(10); righthand; barline_(10); end_of_char; end_of_block; new_char(96); lefthand; add_noteheads(d2); regular_stem; righthand; add_noteheads(d4); 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.