summaryrefslogtreecommitdiff
path: root/obsolete/macros/texmuse/Doc/tex/mainloop2.mf
diff options
context:
space:
mode:
Diffstat (limited to 'obsolete/macros/texmuse/Doc/tex/mainloop2.mf')
-rw-r--r--obsolete/macros/texmuse/Doc/tex/mainloop2.mf68
1 files changed, 68 insertions, 0 deletions
diff --git a/obsolete/macros/texmuse/Doc/tex/mainloop2.mf b/obsolete/macros/texmuse/Doc/tex/mainloop2.mf
new file mode 100644
index 0000000000..ac9d0e1808
--- /dev/null
+++ b/obsolete/macros/texmuse/Doc/tex/mainloop2.mf
@@ -0,0 +1,68 @@
+mode_setup;
+input txmfont;
+input texmuse;
+instr_no(2);
+key_ := 0;
+desired_width := desired_width/pt;
+staff_1="-1,0,1,2,3";
+bar_type1=10;
+instr_clef1:= 6;
+def shortl =
+ curr_instr:="shortl;";
+ 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 shortr =
+ curr_instr:="shortr;";
+ note_[index][instr_]:=currentpicture;
+ instr_:=2;
+ currentpicture:=note_[index][instr_];
+ enddef;
+new_char(64);
+shortl;
+ add_noteheads(c3);
+ regular_stem;
+shortr;
+ add_noteheads(c5);
+ regular_stem;
+end_of_char;
+new_char(32);
+shortl;
+ add_rest(0,0);
+shortr;
+ add_noteheads(e5);
+end_of_char;
+new_char(32);
+shortr;
+ add_noteheads(c5);
+ beam(2,1,1,e5,3,1,1,c5);
+end_of_char;
+new_char(64);
+shortl;
+ add_noteheads(c3);
+ regular_stem;
+shortr;
+ add_noteheads(g4);
+ regular_stem;
+end_of_char;
+new_char(64);
+shortl;
+ add_rest(0,0);
+shortr;
+ add_noteheads(g4);
+ regular_stem;
+end_of_char;
+new_char(0);
+end_of_char;
+new_char(-least_spaced);
+shortl;
+ barline_(10);
+shortr;
+ barline_(10);
+end_of_char;
+ end_of_block; make_line(next_char);
+showstats; end.