mode_setup; input txmfont; input texmuse; instr_no(2); key_ := 0; desired_width := 390.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(64); lefthand; add_noteheads(c3); regular_stem; righthand; add_noteheads(c5); regular_stem; end_of_char; new_char(32); lefthand; add_rest(0,0); righthand; add_noteheads(e5); end_of_char; new_char(32); righthand; add_noteheads(c5); beam(2,1,1,e5,3,1,1,c5); end_of_char; new_char(64); lefthand; add_rest(-1,0); righthand; add_noteheads(g4); regular_stem; end_of_char; new_char(64); righthand; add_noteheads(g4); regular_stem; 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(c3); regular_stem; righthand; add_noteheads(c5); regular_stem; end_of_char; new_char(32); lefthand; add_rest(0,0); righthand; add_noteheads(e5); end_of_char; new_char(32); righthand; add_noteheads(c5); beam(8,1,1,e5,9,1,1,c5); end_of_char; new_char(64); lefthand; add_rest(-1,0); righthand; add_noteheads(g4); regular_stem; end_of_char; new_char(64); righthand; add_noteheads(g5); regular_stem; 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(c3); regular_stem; righthand; add_noteheads(f5); end_of_char; new_char(32); righthand; add_noteheads(e5); end_of_char; new_char(32); lefthand; add_rest(0,0); righthand; add_noteheads(d5); end_of_char; new_char(32); righthand; add_noteheads(c5); beam(13,1,1,f5,14,1,1,e5,15,1,1,d5,16,1,1,c5); end_of_char; new_char(32); lefthand; add_noteheads(c3); regular_stem; righthand; add_noteheads(b5); end_of_char; new_char(32); righthand; add_noteheads(c5); end_of_char; new_char(32); lefthand; add_rest(0,0); righthand; add_noteheads(b5); end_of_char; new_char(32); righthand; add_noteheads(c5); beam(17,1,1,b5,18,1,1,c5,19,1,1,b5,20,1,1,c5); 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(g2); regular_stem; righthand; add_noteheads(d5); end_of_char; new_char(32); righthand; add_noteheads(c5); end_of_char; new_char(32); lefthand; add_rest(0,0); righthand; add_noteheads(b5); end_of_char; new_char(32); righthand; add_noteheads(a5); beam(22,1,1,d5,23,1,1,c5,24,1,1,b5,25,1,1,a5); end_of_char; new_char(32); lefthand; add_noteheads(g3); righthand; add_noteheads(g4); regular_stem; end_of_char; new_char(32); lefthand; add_noteheads(f3); end_of_char; new_char(32); lefthand; add_noteheads(e3); righthand; add_rest(0,0); end_of_char; new_char(32); lefthand; add_noteheads(d3); beam(26,1,1,g3,27,1,1,f3,28,1,1,e3,29,1,1,d3); 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(c3); regular_stem; righthand; add_noteheads(c5); regular_stem; end_of_char; new_char(32); lefthand; add_rest(0,0); righthand; add_noteheads(e5); end_of_char; new_char(32); righthand; add_noteheads(c5); beam(32,1,1,e5,33,1,1,c5); end_of_char; new_char(64); lefthand; add_rest(0,0); righthand; add_noteheads(g4); regular_stem; end_of_char; new_char(64); lefthand; add_rest(0,0); righthand; add_noteheads(g4); regular_stem; 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(c4); regular_stem; righthand; add_noteheads(e5); regular_stem; end_of_char; new_char(32); lefthand; add_rest(0,0); righthand; add_noteheads(g5); end_of_char; new_char(32); righthand; add_noteheads(e5); beam(38,1,1,g5,39,1,1,e5); end_of_char; new_char(64); lefthand; add_rest(0,0); righthand; add_noteheads(c5); regular_stem; end_of_char; new_char(32); lefthand; add_noteheads(f3); add_sharp(f3); regular_stem; righthand; add_noteheads(e5); end_of_char; new_char(32); righthand; add_noteheads(c5); beam(41,1,1,e5,42,1,1,c5); 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(g3); regular_stem; righthand; add_noteheads(d5); end_of_char; new_char(32); righthand; add_noteheads(b5); end_of_char; new_char(32); lefthand; add_noteheads(c3); regular_stem; righthand; add_noteheads(c5); end_of_char; new_char(32); righthand; add_noteheads(a5); beam(44,1,1,d5,45,1,1,b5,46,1,1,c5,47,1,1,a5); end_of_char; new_char(32); lefthand; add_noteheads(d3); regular_stem; righthand; add_noteheads(b5); end_of_char; new_char(32); righthand; add_noteheads(g4); end_of_char; new_char(32); lefthand; add_noteheads(d2); regular_stem; righthand; add_noteheads(a5); end_of_char; new_char(32); righthand; add_noteheads(f4); add_sharp(f4); beam(48,1,1,b5,49,1,1,g4,50,1,1,a5,51,1,1,f4); 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(g2); regular_stem; righthand; add_noteheads(g4); end_of_char; new_char(32); righthand; add_noteheads(a5); end_of_char; new_char(32); lefthand; add_rest(0,0); righthand; add_noteheads(b5); end_of_char; new_char(32); righthand; add_noteheads(c5); beam(53,1,1,g4,54,1,1,a5,55,1,1,b5,56,1,1,c5); end_of_char; new_char(32); lefthand; add_rest(-1,0); righthand; add_noteheads(d5); end_of_char; new_char(32); righthand; add_noteheads(e5); end_of_char; new_char(32); righthand; add_noteheads(f5); add_sharp(f5); end_of_char; new_char(32); righthand; add_noteheads(g5); beam(57,1,1,d5,58,1,1,e5,59,1,1,f5,60,1,1,g5); 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(f3); add_sharp(f3); righthand; add_noteheads(a5); regular_stem; end_of_char; new_char(32); lefthand; add_noteheads(d4); end_of_char; new_char(32); lefthand; add_noteheads(a4); righthand; add_noteheads(a6); regular_stem; end_of_char; new_char(32); lefthand; add_noteheads(d4); beam(62,1,1,f3,63,1,1,d4,64,1,1,a4,65,1,1,d4); end_of_char; new_char(32); lefthand; add_noteheads(f3); add_sharp(f3); righthand; add_noteheads(a6); regular_stem; end_of_char; new_char(32); lefthand; add_noteheads(d4); end_of_char; new_char(32); lefthand; add_noteheads(a4); righthand; add_noteheads(a6); regular_stem; end_of_char; new_char(32); lefthand; add_noteheads(d4); beam(66,1,1,f3,67,1,1,d4,68,1,1,a4,69,1,1,d4); 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(g3); regular_stem; righthand; add_noteheads(b5); end_of_char; new_char(32); righthand; add_noteheads(c5); end_of_char; new_char(32); lefthand; add_rest(0,0); righthand; add_noteheads(d5); end_of_char; new_char(32); righthand; add_noteheads(e5); beam(71,1,1,b5,72,1,1,c5,73,1,1,d5,74,1,1,e5); end_of_char; new_char(32); lefthand; add_rest(0,0); righthand; add_noteheads(f5); add_sharp(f5); end_of_char; new_char(32); righthand; add_noteheads(g5); end_of_char; new_char(32); lefthand; add_rest(0,0); righthand; add_noteheads(a6); end_of_char; new_char(32); righthand; add_noteheads(b6); beam(75,1,1,f5,76,1,1,g5,77,1,1,a6,78,1,1,b6); 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(a4); righthand; add_noteheads(c5); regular_stem; end_of_char; new_char(32); lefthand; add_noteheads(d4); end_of_char; new_char(32); lefthand; add_noteheads(c4); righthand; add_noteheads(c6); regular_stem; end_of_char; new_char(32); lefthand; add_noteheads(d4); beam(80,1,1,a4,81,1,1,d4,82,1,1,c4,83,1,1,d4); end_of_char; new_char(32); lefthand; add_noteheads(a4); righthand; add_noteheads(c6); regular_stem; end_of_char; new_char(32); lefthand; add_noteheads(d4); end_of_char; new_char(32); lefthand; add_noteheads(c4); righthand; add_noteheads(c6); regular_stem; end_of_char; new_char(32); lefthand; add_noteheads(d4); beam(84,1,1,a4,85,1,1,d4,86,1,1,c4,87,1,1,d4); 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(b4); regular_stem; righthand; add_noteheads(d5); end_of_char; new_char(32); righthand; add_noteheads(g5); end_of_char; new_char(32); lefthand; add_rest(0,0); righthand; add_noteheads(b6); end_of_char; new_char(32); righthand; add_noteheads(d6); beam(89,1,1,d5,90,1,1,g5,91,1,1,b6,92,1,1,d6); end_of_char; new_char(32); lefthand; add_rest(-1,0); righthand; add_noteheads(c6); end_of_char; new_char(32); righthand; add_noteheads(b6); end_of_char; new_char(32); righthand; add_noteheads(a6); end_of_char; new_char(32); righthand; add_noteheads(g5); beam(93,1,1,c6,94,1,1,b6,95,1,1,a6,96,1,1,g5); 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(c4); regular_stem; righthand; add_noteheads(f5); add_sharp(f5); end_of_char; new_char(32); righthand; add_noteheads(e5); end_of_char; new_char(32); lefthand; add_rest(0,0); righthand; add_noteheads(g5); end_of_char; new_char(32); righthand; add_noteheads(f5); beam(98,1,1,f5,99,1,1,e5,100,1,1,g5,101,1,1,f5); end_of_char; new_char(32); lefthand; add_noteheads(c3); regular_stem; righthand; add_noteheads(a6); end_of_char; new_char(32); righthand; add_noteheads(g5); end_of_char; new_char(32); lefthand; add_rest(0,0); righthand; add_noteheads(f5); end_of_char; new_char(32); righthand; add_noteheads(e5); beam(102,1,1,a6,103,1,1,g5,104,1,1,f5,105,1,1,e5); 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(d3); regular_stem; righthand; add_noteheads(e5); end_of_char; new_char(32); righthand; add_noteheads(d5); end_of_char; new_char(32); lefthand; add_rest(0,0); righthand; add_noteheads(c5); end_of_char; new_char(32); righthand; add_noteheads(b5); beam(107,1,1,e5,108,1,1,d5,109,1,1,c5,110,1,1,b5); end_of_char; new_char(32); lefthand; add_noteheads(d2); regular_stem; righthand; add_noteheads(d5); end_of_char; new_char(32); righthand; add_noteheads(c5); end_of_char; new_char(32); lefthand; add_rest(0,0); righthand; add_noteheads(b5); end_of_char; new_char(32); righthand; add_noteheads(a5); beam(111,1,1,d5,112,1,1,c5,113,1,1,b5,114,1,1,a5); 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(g2); righthand; add_noteheads(g4); regular_stem; end_of_char; new_char(32); lefthand; add_noteheads(b3); end_of_char; new_char(32); lefthand; add_noteheads(d3); righthand; add_rest(0,0); end_of_char; new_char(32); lefthand; add_noteheads(g3); beam(116,1,1,g2,117,1,1,b3,118,1,1,d3,119,1,1,g3); end_of_char; new_char(64); lefthand; add_noteheads(g2); regular_stem; righthand; add_rest(-1,0); end_of_char; new_char(64); lefthand; add_rest(0,0); end_of_char; new_char(0); end_of_char; new_char(-least_spaced); lefthand; barline_(10); righthand; barline_(10); end_of_char; end_of_block; numeric desired_width; end_of_block; make_line(next_char); showstats; end.