summaryrefslogtreecommitdiff
path: root/obsolete/macros/texmuse/Samples/tex/bbmajor4.mf
diff options
context:
space:
mode:
Diffstat (limited to 'obsolete/macros/texmuse/Samples/tex/bbmajor4.mf')
-rw-r--r--obsolete/macros/texmuse/Samples/tex/bbmajor4.mf315
1 files changed, 315 insertions, 0 deletions
diff --git a/obsolete/macros/texmuse/Samples/tex/bbmajor4.mf b/obsolete/macros/texmuse/Samples/tex/bbmajor4.mf
new file mode 100644
index 0000000000..e4b18036b1
--- /dev/null
+++ b/obsolete/macros/texmuse/Samples/tex/bbmajor4.mf
@@ -0,0 +1,315 @@
+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(g3);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(a4);
+ add_flat(a4);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(a4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+ beam(1,2,1,g3,2,3,1,b4,3,3,1,a4,4,3,1,g3,5,3,1,a4,6,2,1,b4);
+righthand;
+ add_noteheads(b5);
+ beam(1,2,1,b5,2,2,1,g4,4,2,1,e5,6,2,1,b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(a5);
+ add_flat(a5);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(b3);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+ beam(7,2,1,e3,8,2,1,g3,10,2,1,b3,12,2,1,d3);
+righthand;
+ add_noteheads(b5);
+ beam(7,2,1,g4,8,3,1,b5,9,3,1,a5,10,3,1,g4,11,3,1,a5,12,2,1,b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(e4);
+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);
+ add_natural(a4);
+righthand;
+ add_noteheads(e5);
+ add_tie(e5);
+ beam(13,1,1,e4,16,1,1,e5);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(g3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ beam(13,2,1,c4,14,3,1,f3,15,3,1,g3,16,3,1,a4,17,3,1,g3,18,2,1,f3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ close_tie(e5);
+ add_noteheads(e5);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(e4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+ beam(19,2,1,c4,20,2,1,a4,22,2,1,e4,24,2,1,c4);
+righthand;
+ add_noteheads(e5);
+ beam(19,2,1,e5,20,3,1,e5,21,3,1,d5,22,3,1,c5,23,3,1,d5,24,2,1,e5);
+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_noteheads(f4);
+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);
+righthand;
+ add_noteheads(e5);
+ add_tie(e5);
+ beam(26,1,1,f4,29,1,1,e5);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(b4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+ beam(26,2,1,a4,27,3,1,c4,28,3,1,b4,29,3,1,a4,30,3,1,b4,31,2,1,c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ close_tie(e5);
+ add_noteheads(e5);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(c3);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+ beam(32,2,1,f3,33,2,1,a4,35,2,1,c3,37,2,1,e3);
+righthand;
+ add_noteheads(c5);
+ beam(32,2,1,e5,33,3,1,c5,34,3,1,d5,35,3,1,e5,36,3,1,d5,37,2,1,c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(d4);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+ beam(38,2,1,d3,39,3,1,b4,40,3,1,c4,41,3,1,d4,42,3,1,c4,43,2,1,b4);
+righthand;
+ add_noteheads(d5);
+ beam(38,2,1,f5,39,3,1,d5,40,3,1,c5,41,3,1,b5,42,3,1,c5,43,2,1,d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ beam(44,1,1,f4,46,1,1,f3);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a5);
+ beam(44,2,1,f4,45,2,1,b5,46,2,1,c5,47,2,1,a5);
+end_of_char;
+new_char(-least_spaced);
+lefthand;
+ barline_(10);
+righthand;
+ barline_(10);
+end_of_char;
+end_of_block;
+new_char(256);
+lefthand;
+ add_wholeheads(b4);
+righthand;
+ add_wholeheads(b5);
+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);
+showstats; end.