summaryrefslogtreecommitdiff
path: root/obsolete/macros/texmuse/Samples/tex/ebmajor5.mf
diff options
context:
space:
mode:
Diffstat (limited to 'obsolete/macros/texmuse/Samples/tex/ebmajor5.mf')
-rw-r--r--obsolete/macros/texmuse/Samples/tex/ebmajor5.mf159
1 files changed, 159 insertions, 0 deletions
diff --git a/obsolete/macros/texmuse/Samples/tex/ebmajor5.mf b/obsolete/macros/texmuse/Samples/tex/ebmajor5.mf
new file mode 100644
index 0000000000..faca38ee9f
--- /dev/null
+++ b/obsolete/macros/texmuse/Samples/tex/ebmajor5.mf
@@ -0,0 +1,159 @@
+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);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(32);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(32);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(32);
+righthand;
+ add_noteheads(d5);
+ add_flat(d5);
+ beam(1,1,1,e4,2,1,1,f5,3,1,1,e5,4,1,1,d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+ beam(5,2,1,c5,6,2,1,d5,7,2,1,e5,8,2,1,d5);
+end_of_char;
+new_char(32);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(32);
+righthand;
+ add_noteheads(b5);
+ beam(9,1,1,c5,10,1,1,b5);
+end_of_char;
+new_char(-least_spaced);
+lefthand;
+righthand;
+ barline_(10);
+end_of_char;
+end_of_block;
+new_char(32);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(32);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(32);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(32);
+righthand;
+ add_noteheads(a6);
+ add_tie(a6);
+ beam(12,1,1,a5,13,1,1,c5,14,1,1,e5,15,1,1,a6);
+end_of_char;
+new_char(16);
+righthand;
+ close_tie(a6);
+ add_noteheads(a6);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a6);
+ beam(16,2,1,a6,17,2,1,f5,18,2,1,g5,19,2,1,a6);
+end_of_char;
+new_char(32);
+righthand;
+ add_noteheads(b6);
+end_of_char;
+new_char(32);
+righthand;
+ add_noteheads(a6);
+ beam(20,1,1,b6,21,1,1,a6);
+end_of_char;
+new_char(-least_spaced);
+lefthand;
+righthand;
+ barline_(10);
+end_of_char;
+end_of_block;
+new_char(48);
+righthand;
+ add_noteheads(g5);
+ add_dot(g5);
+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(f5);
+ beam(23,1,1,g5,24,3,1,f5,25,3,1,e5,26,3,1,f5);
+end_of_char;
+new_char(64);
+righthand;
+ add_noteheads(f5);
+ regular_stem;
+end_of_char;
+new_char(120);
+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.