summaryrefslogtreecommitdiff
path: root/obsolete/macros/texmuse/Doc/tex/mainloop6.mf
diff options
context:
space:
mode:
Diffstat (limited to 'obsolete/macros/texmuse/Doc/tex/mainloop6.mf')
-rw-r--r--obsolete/macros/texmuse/Doc/tex/mainloop6.mf745
1 files changed, 745 insertions, 0 deletions
diff --git a/obsolete/macros/texmuse/Doc/tex/mainloop6.mf b/obsolete/macros/texmuse/Doc/tex/mainloop6.mf
new file mode 100644
index 0000000000..85fca60655
--- /dev/null
+++ b/obsolete/macros/texmuse/Doc/tex/mainloop6.mf
@@ -0,0 +1,745 @@
+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.