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_ := -3; 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(a4); righthand; add_noteheads(c5); end_of_char; new_char(16); righthand; add_noteheads(a6); end_of_char; new_char(16); lefthand; add_noteheads(e3); righthand; add_noteheads(g5); end_of_char; new_char(16); lefthand; add_noteheads(d3); add_natural(d3); beam(1,1,1,a4,3,2,1,e3,4,2,1,d3); righthand; add_noteheads(a6); beam(1,2,1,c5,2,2,1,a6,3,2,1,g5,4,2,1,a6); end_of_char; new_char(16); lefthand; add_noteheads(e3); righthand; add_noteheads(f5); end_of_char; new_char(16); righthand; add_noteheads(g5); end_of_char; new_char(16); lefthand; add_noteheads(f3); beam(5,1,1,e3,7,1,1,f3); righthand; add_noteheads(e5); end_of_char; new_char(16); righthand; add_noteheads(f5); beam(5,2,1,f5,6,2,1,g5,7,2,1,e5,8,2,1,f5); end_of_char; new_char(16); lefthand; add_noteheads(g3); regular_stem; righthand; add_noteheads(d5); add_flat(d5); end_of_char; new_char(16); righthand; add_noteheads(b6); end_of_char; new_char(16); righthand; add_noteheads(a6); end_of_char; new_char(16); righthand; add_noteheads(b6); beam(9,2,1,d5,10,2,1,b6,11,2,1,a6,12,2,1,b6); end_of_char; new_char(16); lefthand; add_noteheads(a4); regular_stem; righthand; add_noteheads(c5); end_of_char; new_char(16); righthand; add_noteheads(d5); end_of_char; new_char(16); righthand; add_noteheads(b5); end_of_char; new_char(16); righthand; add_noteheads(c5); beam(13,2,1,c5,14,2,1,d5,15,2,1,b5,16,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_rest(1,0); righthand; add_noteheads(a5); end_of_char; new_char(16); righthand; add_noteheads(c5); end_of_char; new_char(16); lefthand; add_noteheads(f3); righthand; add_noteheads(b5); end_of_char; new_char(16); lefthand; add_noteheads(e3); beam(20,2,1,f3,21,2,1,e3); righthand; add_noteheads(c5); beam(18,2,1,a5,19,2,1,c5,20,2,1,b5,21,2,1,c5); 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(g3); beam(22,1,1,f3,24,1,1,g3); righthand; add_noteheads(g4); end_of_char; new_char(16); righthand; add_noteheads(a5); beam(22,2,1,a5,23,2,1,b5,24,2,1,g4,25,2,1,a5); end_of_char; new_char(16); lefthand; add_noteheads(a4); regular_stem; righthand; add_noteheads(f4); end_of_char; new_char(16); righthand; add_noteheads(e5); end_of_char; new_char(16); righthand; add_noteheads(d5); end_of_char; new_char(16); righthand; add_noteheads(c5); beam(26,2,1,f4,27,2,1,e5,28,2,1,d5,29,2,1,c5); end_of_char; new_char(16); lefthand; add_noteheads(b4); regular_stem; righthand; add_noteheads(d5); end_of_char; new_char(16); righthand; add_noteheads(e5); end_of_char; new_char(16); righthand; add_noteheads(c5); end_of_char; new_char(16); righthand; add_noteheads(d5); beam(30,2,1,d5,31,2,1,e5,32,2,1,c5,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(g3); righthand; add_noteheads(e5); end_of_char; new_char(16); lefthand; add_noteheads(a4); 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(35,2,1,g3,36,2,1,a4,37,2,1,g3,38,2,1,f3); righthand; add_noteheads(d4); beam(35,1,1,e5,37,2,1,e4,38,2,1,d4); end_of_char; new_char(16); lefthand; add_noteheads(g3); righthand; add_noteheads(e4); end_of_char; new_char(16); lefthand; add_noteheads(a4); end_of_char; new_char(16); lefthand; add_noteheads(f3); righthand; add_noteheads(f4); beam(39,1,1,e4,41,1,1,f4); end_of_char; new_char(16); lefthand; add_noteheads(g3); beam(39,2,1,g3,40,2,1,a4,41,2,1,f3,42,2,1,g3); end_of_char; new_char(16); lefthand; add_noteheads(e3); righthand; add_noteheads(g4); regular_stem; end_of_char; new_char(16); lefthand; add_noteheads(e4); end_of_char; new_char(16); lefthand; add_noteheads(d4); end_of_char; new_char(16); lefthand; add_noteheads(e4); beam(43,2,1,e3,44,2,1,e4,45,2,1,d4,46,2,1,e4); end_of_char; new_char(16); lefthand; add_noteheads(c4); righthand; add_noteheads(a5); regular_stem; end_of_char; new_char(16); lefthand; add_noteheads(d4); end_of_char; new_char(16); lefthand; add_noteheads(b4); end_of_char; new_char(16); lefthand; add_noteheads(c4); beam(47,2,1,c4,48,2,1,d4,49,2,1,b4,50,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(a4); righthand; add_rest(1,0); end_of_char; new_char(16); lefthand; add_noteheads(c4); end_of_char; new_char(16); lefthand; add_noteheads(b4); righthand; add_noteheads(f4); end_of_char; new_char(16); lefthand; add_noteheads(c4); beam(52,2,1,a4,53,2,1,c4,54,2,1,b4,55,2,1,c4); righthand; add_noteheads(e4); beam(54,2,1,f4,55,2,1,e4); end_of_char; new_char(16); lefthand; add_noteheads(a4); righthand; add_noteheads(f4); end_of_char; new_char(16); lefthand; add_noteheads(b4); end_of_char; new_char(16); lefthand; add_noteheads(g3); righthand; add_noteheads(g4); beam(56,1,1,f4,58,1,1,g4); end_of_char; new_char(16); lefthand; add_noteheads(a4); beam(56,2,1,a4,57,2,1,b4,58,2,1,g3,59,2,1,a4); end_of_char; new_char(16); lefthand; add_noteheads(f3); righthand; add_noteheads(a5); regular_stem; end_of_char; new_char(16); lefthand; add_noteheads(e4); end_of_char; new_char(16); lefthand; add_noteheads(d4); end_of_char; new_char(16); lefthand; add_noteheads(c4); beam(60,2,1,f3,61,2,1,e4,62,2,1,d4,63,2,1,c4); end_of_char; new_char(16); lefthand; add_noteheads(d4); righthand; add_noteheads(b5); regular_stem; end_of_char; new_char(16); lefthand; add_noteheads(e4); end_of_char; new_char(16); lefthand; add_noteheads(c4); end_of_char; new_char(16); lefthand; add_noteheads(d4); beam(64,2,1,d4,65,2,1,e4,66,2,1,c4,67,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(e3); righthand; add_noteheads(g4); end_of_char; new_char(16); lefthand; add_noteheads(e4); end_of_char; new_char(16); lefthand; add_noteheads(d4); righthand; add_noteheads(c5); end_of_char; new_char(16); lefthand; add_noteheads(c4); beam(69,2,1,e3,70,2,1,e4,71,2,1,d4,72,2,1,c4); end_of_char; new_char(16); lefthand; add_noteheads(d4); righthand; add_noteheads(b5); end_of_char; new_char(16); lefthand; add_noteheads(e4); end_of_char; new_char(16); lefthand; add_noteheads(c4); righthand; add_noteheads(a5); beam(69,1,1,g4,71,1,1,c5,73,1,1,b5,75,1,1,a5); end_of_char; new_char(16); lefthand; add_noteheads(d4); beam(73,2,1,d4,74,2,1,e4,75,2,1,c4,76,2,1,d4); end_of_char; new_char(16); lefthand; add_noteheads(b4); righthand; add_noteheads(g4); end_of_char; new_char(16); lefthand; add_noteheads(e4); righthand; add_noteheads(a5); end_of_char; new_char(16); lefthand; add_noteheads(d4); righthand; add_noteheads(b5); end_of_char; new_char(16); lefthand; add_noteheads(c4); beam(77,2,1,b4,78,2,1,e4,79,2,1,d4,80,2,1,c4); righthand; add_noteheads(a5); beam(77,2,1,g4,78,2,1,a5,79,2,1,b5,80,2,1,a5); end_of_char; new_char(16); lefthand; add_noteheads(b4); righthand; add_noteheads(g4); end_of_char; new_char(16); lefthand; add_noteheads(c4); end_of_char; new_char(16); lefthand; add_noteheads(a4); righthand; add_noteheads(f4); beam(81,1,1,g4,83,1,1,f4); end_of_char; new_char(16); lefthand; add_noteheads(b4); beam(81,2,1,b4,82,2,1,c4,83,2,1,a4,84,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(g3); righthand; add_noteheads(e4); end_of_char; new_char(16); lefthand; add_noteheads(c4); end_of_char; new_char(16); lefthand; add_noteheads(b4); righthand; add_noteheads(f5); end_of_char; new_char(16); lefthand; add_noteheads(a4); beam(86,2,1,g3,87,2,1,c4,88,2,1,b4,89,2,1,a4); end_of_char; new_char(16); lefthand; add_noteheads(g3); righthand; add_noteheads(e5); end_of_char; new_char(16); lefthand; add_noteheads(a4); end_of_char; new_char(16); lefthand; add_noteheads(f3); righthand; add_noteheads(d5); add_flat(d5); beam(86,1,1,e4,88,1,1,f5,90,1,1,e5,92,1,1,d5); end_of_char; new_char(16); lefthand; add_noteheads(g3); beam(90,2,1,g3,91,2,1,a4,92,2,1,f3,93,2,1,g3); end_of_char; new_char(16); lefthand; add_noteheads(e3); righthand; add_noteheads(c5); end_of_char; new_char(16); lefthand; add_noteheads(a4); righthand; add_noteheads(d5); end_of_char; new_char(16); lefthand; add_noteheads(g3); righthand; add_noteheads(e5); end_of_char; new_char(16); lefthand; add_noteheads(f3); beam(94,2,1,e3,95,2,1,a4,96,2,1,g3,97,2,1,f3); righthand; add_noteheads(d5); beam(94,2,1,c5,95,2,1,d5,96,2,1,e5,97,2,1,d5); end_of_char; new_char(16); lefthand; add_noteheads(e3); righthand; add_noteheads(c5); end_of_char; new_char(16); lefthand; add_noteheads(f3); end_of_char; new_char(16); lefthand; add_noteheads(d3); add_flat(d3); righthand; add_noteheads(b5); beam(98,1,1,c5,100,1,1,b5); end_of_char; new_char(16); lefthand; add_noteheads(e3); beam(98,2,1,e3,99,2,1,f3,100,2,1,d3,101,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(c3); righthand; add_noteheads(a5); end_of_char; new_char(16); lefthand; add_noteheads(f3); end_of_char; new_char(16); lefthand; add_noteheads(e3); righthand; add_noteheads(c5); end_of_char; new_char(16); lefthand; add_noteheads(d3); add_flat(d3); beam(103,2,1,c3,104,2,1,f3,105,2,1,e3,106,2,1,d3); end_of_char; new_char(16); lefthand; add_noteheads(c3); righthand; add_noteheads(e5); end_of_char; new_char(16); lefthand; add_noteheads(d3); end_of_char; new_char(16); lefthand; add_noteheads(b3); righthand; add_noteheads(a6); add_tie(a6); beam(103,1,1,a5,105,1,1,c5,107,1,1,e5,109,1,1,a6); end_of_char; new_char(16); lefthand; add_noteheads(c3); beam(107,2,1,c3,108,2,1,d3,109,2,1,b3,110,2,1,c3); end_of_char; new_char(16); lefthand; add_noteheads(f2); righthand; close_tie(a6); add_noteheads(a6); end_of_char; new_char(16); lefthand; add_noteheads(e3); righthand; add_noteheads(f5); end_of_char; new_char(16); lefthand; add_noteheads(d3); add_natural(d3); righthand; add_noteheads(g5); end_of_char; new_char(16); lefthand; add_noteheads(c3); beam(111,2,1,f2,112,2,1,e3,113,2,1,d3,114,2,1,c3); righthand; add_noteheads(a6); beam(111,2,1,a6,112,2,1,f5,113,2,1,g5,114,2,1,a6); end_of_char; new_char(16); lefthand; add_noteheads(d3); righthand; add_noteheads(b6); end_of_char; new_char(16); lefthand; add_noteheads(e3); end_of_char; new_char(16); lefthand; add_noteheads(c3); righthand; add_noteheads(a6); beam(115,1,1,b6,117,1,1,a6); end_of_char; new_char(16); lefthand; add_noteheads(d3); beam(115,2,1,d3,116,2,1,e3,117,2,1,c3,118,2,1,d3); end_of_char; new_char(-least_spaced); lefthand; barline_(10); righthand; barline_(10); end_of_char; end_of_block; new_char(32); lefthand; add_noteheads(e3); righthand; add_noteheads(g5); add_dot(g5); end_of_char; new_char(16); lefthand; add_noteheads(g2); end_of_char; new_char(16); righthand; add_noteheads(f5); beam(120,1,1,g5,122,2,1,f5); end_of_char; new_char(32); lefthand; add_noteheads(a3); righthand; add_noteheads(f5); regular_stem; end_of_char; new_char(32); lefthand; add_noteheads(b3); beam(120,1,1,e3,121,1,1,g2,123,1,1,a3,124,1,1,b3); end_of_char; new_char(128); lefthand; add_halfheads(e2); regular_stem; righthand; add_halfheads(e5); 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); end.