diff options
author | Norbert Preining <norbert@preining.info> | 2024-01-31 03:01:01 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2024-01-31 03:01:01 +0000 |
commit | 79e1bbc1ad6b308aa2074540b2afd43b6a72ce03 (patch) | |
tree | 32074e03eec88cf72e5973ddff176a0534c77dff /obsolete/macros/texmuse/Doc/tex/mainloop5.mf | |
parent | 084f5d8435744b7ea7ef487ec111a7bfd100ed62 (diff) |
CTAN sync 202401310301
Diffstat (limited to 'obsolete/macros/texmuse/Doc/tex/mainloop5.mf')
-rw-r--r-- | obsolete/macros/texmuse/Doc/tex/mainloop5.mf | 39 |
1 files changed, 39 insertions, 0 deletions
diff --git a/obsolete/macros/texmuse/Doc/tex/mainloop5.mf b/obsolete/macros/texmuse/Doc/tex/mainloop5.mf new file mode 100644 index 0000000000..54be752d95 --- /dev/null +++ b/obsolete/macros/texmuse/Doc/tex/mainloop5.mf @@ -0,0 +1,39 @@ +mode_setup;
+input txmfont;
+input texmuse;
+instr_no(1);
+key_ := 0;
+desired_width := desired_width/pt;
+staff_1="-1,0,1,2,3";
+bar_type1=10;
+instr_clef1:= 6;
+def rhythm =
+ curr_instr:="rhythm;";
+ note_[index][instr_]:=currentpicture;
+ instr_:=1;
+ currentpicture:=note_[index][instr_];
+ enddef;
+new_char(128);
+rhythm;
+ add_halfheads(b3);
+ regular_stem;
+end_of_char;
+new_char(16);
+rhythm;
+ add_noteheads(b3);
+end_of_char;
+new_char(16);
+rhythm;
+ add_noteheads(b3);
+end_of_char;
+new_char(96);
+rhythm;
+ add_noteheads(b3);
+ beam(2,2,1,b3,3,2,1,b3,4,1,1,b3);
+end_of_char;
+new_char(-least_spaced);
+rhythm;
+ barline_(0);
+end_of_char;
+ end_of_block; make_line(next_char);
+showstats; end.
|