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