diff options
Diffstat (limited to 'macros/texmuse/Samples/tex/bbmajor1.mf')
| -rw-r--r-- | macros/texmuse/Samples/tex/bbmajor1.mf | 707 |
1 files changed, 707 insertions, 0 deletions
diff --git a/macros/texmuse/Samples/tex/bbmajor1.mf b/macros/texmuse/Samples/tex/bbmajor1.mf new file mode 100644 index 0000000000..e0ac467942 --- /dev/null +++ b/macros/texmuse/Samples/tex/bbmajor1.mf @@ -0,0 +1,707 @@ +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(b4);
+righthand;
+ add_rest(2,0);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(b3);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+ beam(2,3,1,b5,3,3,1,c5,4,3,1,d5,5,3,1,c5,6,2,1,b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ beam(1,1,1,b4,4,1,1,b3,7,1,1,d3,9,1,1,f3);
+righthand;
+ add_noteheads(b6);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+ beam(7,2,1,f5,8,2,1,d5,9,2,1,b6,10,2,1,f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+ regular_stem;
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+ beam(11,2,1,d5,12,3,1,f5,13,3,1,e5,14,3,1,d5,15,3,1,e5,16,2,1,f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_rest(0,0);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a5);
+ add_flat(a5);
+ beam(17,2,1,b5,18,2,1,c5,19,2,1,f4,20,2,1,a5);
+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(g4);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(b3);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e4);
+ beam(22,2,1,g4,23,3,1,e4,24,3,1,f4,25,3,1,g4,26,3,1,f4,27,2,1,e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+ beam(25,1,1,b3,28,1,1,e3,30,1,1,g3);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+ beam(28,2,1,b5,29,2,1,g4,30,2,1,e5,31,2,1,b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+ regular_stem;
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(a5);
+ add_flat(a5);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+ beam(32,2,1,g4,33,3,1,b5,34,3,1,a5,35,3,1,g4,36,3,1,a5,37,2,1,b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_rest(0,0);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e4);
+ beam(38,2,1,e4,39,2,1,g4,40,2,1,c4,41,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;
+ add_rest(1,0);
+righthand;
+ add_noteheads(a4);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(c4);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(b3);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c4);
+ beam(43,2,1,a4,44,3,1,c4,45,3,1,d4,46,3,1,e4,47,3,1,d4,48,2,1,c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+ beam(46,1,1,b3,49,1,1,c3,51,1,1,e3);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a5);
+ beam(49,2,1,a5,50,2,1,f4,51,2,1,c5,52,2,1,a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+ regular_stem;
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f4);
+ beam(53,2,1,e5,54,3,1,f4,55,3,1,g4,56,3,1,a5,57,3,1,g4,58,2,1,f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_rest(0,0);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c5);
+ beam(59,2,1,c5,60,2,1,a5,61,2,1,f5,62,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(2,0);
+righthand;
+ add_noteheads(d5);
+ regular_stem;
+ add_flag(1);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(b4);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(e4);
+righthand;
+ add_rest(1,0);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+ beam(65,3,1,b4,66,3,1,d4,67,3,1,e4,68,3,1,d4,69,2,1,b4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+ regular_stem;
+ add_flag(1);
+righthand;
+ add_rest(2,0);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(8);
+lefthand;
+ add_rest(1,0);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g5);
+ beam(71,3,1,g5,72,3,1,f5,73,3,1,e5,74,3,1,f5,75,2,1,g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_rest(2,0);
+righthand;
+ add_noteheads(c5);
+ regular_stem;
+ add_flag(1);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(a4);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(b4);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_rest(1,0);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(b4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+ beam(77,3,1,a4,78,3,1,b4,79,3,1,c4,80,3,1,b4,81,2,1,a4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+ regular_stem;
+ add_flag(1);
+righthand;
+ add_rest(2,0);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(8);
+lefthand;
+ add_rest(1,0);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+ beam(83,3,1,f5,84,3,1,e5,85,3,1,d5,86,3,1,e5,87,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_rest(2,0);
+righthand;
+ add_noteheads(b5);
+ regular_stem;
+ add_flag(1);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(g3);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(a4);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_rest(1,0);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(a4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+ beam(90,3,1,g3,91,3,1,a4,92,3,1,b4,93,3,1,a4,94,2,1,g3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_rest(2,0);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(c3);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(d3);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(e3);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(d3);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+ beam(95,2,1,c4,96,3,1,c3,97,3,1,d3,98,3,1,e3,99,3,1,d3,100,2,1,c3);
+righthand;
+ add_noteheads(e5);
+ beam(96,3,1,e5,97,3,1,d5,98,3,1,c5,99,3,1,d5,100,2,1,e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(f2);
+ beam(101,1,1,f3,104,1,1,f2);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c5);
+ beam(101,2,1,a5,102,3,1,c5,103,3,1,b5,104,3,1,a5,105,3,1,b5,106,2,1,c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_rest(2,0);
+righthand;
+ add_noteheads(f4);
+ regular_stem;
+ add_flag(1);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_rest(1,0);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ beam(108,2,1,c4,109,2,1,a4,110,2,1,f3);
+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(2,0);
+righthand;
+ add_noteheads(f5);
+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);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(g3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ beam(113,3,1,f3,114,3,1,g3,115,3,1,a4,116,3,1,g3,117,2,1,f3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+righthand;
+ add_noteheads(c5);
+ beam(112,1,1,f5,115,1,1,f4,118,1,1,a5,120,1,1,c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+ beam(118,2,1,c4,119,2,1,a4,120,2,1,f4,121,2,1,c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(f5);
+ regular_stem;
+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);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(b4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+ beam(122,2,1,a4,123,3,1,c4,124,3,1,b4,125,3,1,a4,126,3,1,b4,127,2,1,c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_rest(0,0);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+ beam(128,2,1,f3,129,2,1,a4,130,2,1,c3,131,2,1,e3);
+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.
|