diff options
| author | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
|---|---|---|
| committer | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
| commit | e0c6872cf40896c7be36b11dcc744620f10adf1d (patch) | |
| tree | 60335e10d2f4354b0674ec22d7b53f0f8abee672 /macros/texmuse/Samples/tex/ebmajor1.mf | |
Initial commit
Diffstat (limited to 'macros/texmuse/Samples/tex/ebmajor1.mf')
| -rw-r--r-- | macros/texmuse/Samples/tex/ebmajor1.mf | 780 |
1 files changed, 780 insertions, 0 deletions
diff --git a/macros/texmuse/Samples/tex/ebmajor1.mf b/macros/texmuse/Samples/tex/ebmajor1.mf new file mode 100644 index 0000000000..b3c2bc7ce2 --- /dev/null +++ b/macros/texmuse/Samples/tex/ebmajor1.mf @@ -0,0 +1,780 @@ +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.
|