summaryrefslogtreecommitdiff
path: root/macros/texmuse/Samples/tex
diff options
context:
space:
mode:
Diffstat (limited to 'macros/texmuse/Samples/tex')
-rw-r--r--macros/texmuse/Samples/tex/aminor.dvibin0 -> 4244 bytes
-rw-r--r--macros/texmuse/Samples/tex/aminor.tex76
-rw-r--r--macros/texmuse/Samples/tex/aminor1.mf980
-rw-r--r--macros/texmuse/Samples/tex/aminor2.mf1052
-rw-r--r--macros/texmuse/Samples/tex/aminor3.mf496
-rw-r--r--macros/texmuse/Samples/tex/bbmajor.dvibin0 -> 4392 bytes
-rw-r--r--macros/texmuse/Samples/tex/bbmajor.tex47
-rw-r--r--macros/texmuse/Samples/tex/bbmajor1.mf707
-rw-r--r--macros/texmuse/Samples/tex/bbmajor2.mf703
-rw-r--r--macros/texmuse/Samples/tex/bbmajor3.mf768
-rw-r--r--macros/texmuse/Samples/tex/bbmajor4.mf315
-rw-r--r--macros/texmuse/Samples/tex/cmajor.dvibin0 -> 3792 bytes
-rw-r--r--macros/texmuse/Samples/tex/cmajor.tex75
-rw-r--r--macros/texmuse/Samples/tex/cmajor1.mf961
-rw-r--r--macros/texmuse/Samples/tex/cmajor2.mf949
-rw-r--r--macros/texmuse/Samples/tex/cmajor3.mf138
-rw-r--r--macros/texmuse/Samples/tex/cminor.dvibin0 -> 4412 bytes
-rw-r--r--macros/texmuse/Samples/tex/cminor.tex80
-rw-r--r--macros/texmuse/Samples/tex/cminor1.mf790
-rw-r--r--macros/texmuse/Samples/tex/cminor2.mf869
-rw-r--r--macros/texmuse/Samples/tex/cminor3.mf890
-rw-r--r--macros/texmuse/Samples/tex/cminor4.mf236
-rw-r--r--macros/texmuse/Samples/tex/dmajor.dvibin0 -> 4252 bytes
-rw-r--r--macros/texmuse/Samples/tex/dmajor.tex57
-rw-r--r--macros/texmuse/Samples/tex/dmajor1.mf1014
-rw-r--r--macros/texmuse/Samples/tex/dmajor2.mf983
-rw-r--r--macros/texmuse/Samples/tex/dmajor3.mf436
-rw-r--r--macros/texmuse/Samples/tex/dmajor4.mf27
-rw-r--r--macros/texmuse/Samples/tex/dminor.dvibin0 -> 3704 bytes
-rw-r--r--macros/texmuse/Samples/tex/dminor.tex54
-rw-r--r--macros/texmuse/Samples/tex/dminor1.mf994
-rw-r--r--macros/texmuse/Samples/tex/dminor2.mf1013
-rw-r--r--macros/texmuse/Samples/tex/dminor3.mf169
-rw-r--r--macros/texmuse/Samples/tex/ebmajor.dvibin0 -> 5236 bytes
-rw-r--r--macros/texmuse/Samples/tex/ebmajor.tex49
-rw-r--r--macros/texmuse/Samples/tex/ebmajor1.mf780
-rw-r--r--macros/texmuse/Samples/tex/ebmajor2.mf796
-rw-r--r--macros/texmuse/Samples/tex/ebmajor3.mf801
-rw-r--r--macros/texmuse/Samples/tex/ebmajor4.mf740
-rw-r--r--macros/texmuse/Samples/tex/ebmajor5.mf159
-rw-r--r--macros/texmuse/Samples/tex/fmajor.dvibin0 -> 4172 bytes
-rw-r--r--macros/texmuse/Samples/tex/fmajor.tex56
-rw-r--r--macros/texmuse/Samples/tex/fmajor1.mf1068
-rw-r--r--macros/texmuse/Samples/tex/fmajor2.mf1062
-rw-r--r--macros/texmuse/Samples/tex/fmajor3.mf350
45 files changed, 20740 insertions, 0 deletions
diff --git a/macros/texmuse/Samples/tex/aminor.dvi b/macros/texmuse/Samples/tex/aminor.dvi
new file mode 100644
index 0000000000..c55c017071
--- /dev/null
+++ b/macros/texmuse/Samples/tex/aminor.dvi
Binary files differ
diff --git a/macros/texmuse/Samples/tex/aminor.tex b/macros/texmuse/Samples/tex/aminor.tex
new file mode 100644
index 0000000000..2a81a36203
--- /dev/null
+++ b/macros/texmuse/Samples/tex/aminor.tex
@@ -0,0 +1,76 @@
+%\autologi\medici
+\documentclass{cfart}
+\input texmuse.tex
+\begin{document}
+\makeatletter
+\newinstrument{righthand}
+\newinstrument[\bassclef]{lefthand}
+\parindent0pt
+\title{Invention in a}
+\author{J. S. Bach}
+\maketitle
+\thispagestyle{empty}
+\begin{figure}[b]
+\flushright\small Typeset by \TeXmuse
+\end{figure}
+\begin{texmuse}
+\meter44
+\righthand{\rangefrom{G4}
+ 3R[E-AC][BE-BD]4[CE][\#GE]
+ 3[AE-AC][BE-BD]4[CA]5R
+ 3R[ECE][ACE-G] 4[F-A] [DF=]
+ 3[FDBD][GBD-F-]4[E-G][CE=]
+ 3[ECAC]4[F-D=]3[DBGB]4[E-C=]
+ 3[CAF-A]4[D-B]CR5R
+ 3R[GCE][DGDF]4[EG+][BG+]
+ 3[CGCE][DGDF]4[EC][G+E]
+ 3[C+A+EA+][CEAC]4[D\#FA+C+]
+ 3[B+G+DG+][BDGB]4[CEG+B+]
+ 3[A+\#F\#DF][BD\#F-A]4[GG+=][3G+ECE]
+ 4[A\#F=]3[FDBD]4[GE=]3[ECAC]
+ 3[\#F-G+\#FE][\#DFBD]4ER5R
+ 3R[G+\bB+G+][EG+\#CE][G+ECE]AR4R
+ 3R[FA+F][DFBD][FDBD]GR4R
+ 3R[EG+E][CEAC][\#DCAC]\#F-R4R
+ 3R[DFD][BD\#GB][DBGB]E-R4R
+ 3R[E-AC][BE-BD]4[CA][\#GE-]
+ 3[ACEC][AC\#F-A][CAF-A][\#D-CBA]
+ [\#GBDB][GBD-F-][GF-D-F-][B-F-E-D-]
+ [C-E-AE-][C-E-A-C-][\#D-C-A-C-][\#F--C-B-A-]
+ 4[\#G-B][\#GE-]3R[E-AC][BE-BD]
+ [CACE][DBDF][ECEG+][FEDC]
+ [BCDE][FD\#G+D][B+DCA+][FDBD]
+ [\#GBCA][E-ABG][AE-C-E-]5A
+ }
+\lefthand{\rangefrom{E3}
+ 4A-5A4\#G3[AEAC][BEBD]
+ 4[CA][\#GE]3[AEAC][BEBD]
+ 4[CACA]3[DAFA][D-FA-C-]
+ 4[B-D-][GB=]3[BGEG][C-EG-B-]
+ 4[A-C-]3[D-FB-D-]4[G-B-]3[C-EA-C-]
+ 4[F-D--][3G-GFG][C-GCE+][DGDF+]
+ 4[E+C][BG][3CGCE+][DGDF+]
+ 4[E+C]5R3R[G+E+G+][CE+GB]
+ 4[ACE+G+]3[\#F+A+DF+][AD\#FA]
+ 4[GBD\#F+]3[E+G+CE+][GCEG]
+ 4[\#FAB\#D]3R[E+CE+][ACE+G+]
+ 3[\#F+DBD][GBDF+][E+CAC][\#FA4C=]
+ 3[CBCA]4[BB-]3[EE+BG][EB-G-B-]
+ 4[E-E][G\bB]\#CR3R[G+F+E+]
+ 4[DD-F\bA]BR3R[F+E+D]
+ 4[CC-E\#F]AR3R[E+\#D\#C]
+ 4[BB-D-F]\#G-R3R[DCB]
+ 4[CA\#GE]3[AEAC][BEBD]
+ 3[CE+A+E+][CE+AC][\#FACA][FA\#D-F]
+ 4[E\#GBG][EB-\#G-E-]
+ 4[A-C-EC-][A-C-]\#D--R
+ 3R[B\#GE][D-BGD-]4[C-E][\#G-E]
+ [A-\#F][B-\#G][C-A][D-\bB]
+ [\#GF][D-B-][\#G-A-][D--E-]
+ [F-\#D--][E-E]6A-
+ }
+\end{texmuse}
+
+\music{lefthand,righthand}
+
+\end{document} \ No newline at end of file
diff --git a/macros/texmuse/Samples/tex/aminor1.mf b/macros/texmuse/Samples/tex/aminor1.mf
new file mode 100644
index 0000000000..897ed88637
--- /dev/null
+++ b/macros/texmuse/Samples/tex/aminor1.mf
@@ -0,0 +1,980 @@
+mode_setup;
+input txmfont;
+input texmuse;
+instr_no(2);
+key_ := 0;
+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(a3);
+ regular_stem;
+ add_flag(1);
+righthand;
+ add_rest(2,0);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+ regular_stem;
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c5);
+ beam(2,2,1,e4,3,2,1,a5,4,2,1,c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+ add_sharp(g3);
+ regular_stem;
+ add_flag(1);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+ beam(5,2,1,b5,6,2,1,e4,7,2,1,b5,8,2,1,d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(e5);
+ beam(9,1,1,c5,11,1,1,e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+ beam(9,2,1,a4,10,2,1,e3,11,2,1,a4,12,2,1,c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(g4);
+ add_sharp(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(e5);
+ beam(13,1,1,g4,15,1,1,e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+ beam(13,2,1,b4,14,2,1,e3,15,2,1,b4,16,2,1,d4);
+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(c4);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+ beam(18,1,1,c4,20,1,1,a4);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c5);
+ beam(18,2,1,a5,19,2,1,e4,20,2,1,a5,21,2,1,c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+ add_sharp(g3);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+ beam(22,1,1,g3,24,1,1,e3);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+ beam(22,2,1,b5,23,2,1,e4,24,2,1,b5,25,2,1,d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(a5);
+ beam(26,1,1,c5,28,1,1,a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+ beam(26,2,1,a4,27,2,1,e3,28,2,1,a4,29,2,1,c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_rest(0,0);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+ beam(30,2,1,b4,31,2,1,e3,32,2,1,b4,33,2,1,d4);
+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(c4);
+righthand;
+ add_rest(2,0);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e5);
+ beam(36,2,1,e5,37,2,1,c5,38,2,1,e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+ beam(35,1,1,c4,37,1,1,a4,39,1,1,c4,41,1,1,a4);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g4);
+ beam(39,2,1,a5,40,2,1,c5,41,2,1,e4,42,2,1,g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(a5);
+ beam(43,1,1,f4,45,1,1,a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+ beam(43,2,1,d4,44,2,1,a4,45,2,1,f3,46,2,1,a4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a3);
+righthand;
+ add_noteheads(f5);
+ add_tie(f5);
+ beam(47,1,1,d5,49,1,1,f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+ beam(47,2,1,d3,48,2,1,f3,49,2,1,a3,50,2,1,c3);
+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(b3);
+righthand;
+ close_tie(f5);
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+ beam(52,1,1,b3,54,1,1,d3);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+ beam(52,2,1,f5,53,2,1,d5,54,2,1,b5,55,2,1,d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+ add_tie(b4);
+ beam(56,1,1,g3,58,1,1,b4);
+righthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f4);
+ beam(56,2,1,g4,57,2,1,b5,58,2,1,d4,59,2,1,f4);
+end_of_char;
+new_char(16);
+lefthand;
+ close_tie(b4);
+ add_noteheads(b4);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+righthand;
+ add_noteheads(g4);
+ beam(60,1,1,e4,62,1,1,g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+ beam(60,2,1,b4,61,2,1,g3,62,2,1,e3,63,2,1,g3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g2);
+righthand;
+ add_noteheads(e5);
+ add_tie(e5);
+ beam(64,1,1,c5,66,1,1,e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b3);
+ beam(64,2,1,c3,65,2,1,e3,66,2,1,g2,67,2,1,b3);
+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(a3);
+righthand;
+ close_tie(e5);
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+ beam(69,1,1,a3,71,1,1,c3);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c5);
+ beam(69,2,1,e5,70,2,1,c5,71,2,1,a5,72,2,1,c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b3);
+righthand;
+ add_noteheads(d5);
+ add_tie(d5);
+ beam(73,1,1,f4,75,1,1,d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+ beam(73,2,1,d3,74,2,1,f3,75,2,1,b3,76,2,1,d3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g2);
+righthand;
+ close_tie(d5);
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b3);
+ beam(77,1,1,g2,79,1,1,b3);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+ beam(77,2,1,d5,78,2,1,b5,79,2,1,g4,80,2,1,b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a3);
+righthand;
+ add_noteheads(c5);
+ add_tie(c5);
+ beam(81,1,1,e4,83,1,1,c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+ beam(81,2,1,c3,82,2,1,e3,83,2,1,a3,84,2,1,c3);
+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(f2);
+righthand;
+ close_tie(c5);
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d2);
+ beam(86,1,1,f2,88,1,1,d2);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a5);
+ beam(86,2,1,c5,87,2,1,a5,88,2,1,f4,89,2,1,a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g2);
+righthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(b5);
+ beam(90,1,1,d4,92,1,1,b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+ beam(90,2,1,g2,91,2,1,g3,92,2,1,f3,93,2,1,g3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+righthand;
+ add_noteheads(c5);
+ regular_stem;
+ add_flag(1);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_rest(1,0);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+ beam(94,2,1,c3,95,2,1,g3,96,2,1,c4,97,2,1,e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+righthand;
+ add_rest(0,0);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+ beam(98,2,1,d4,99,2,1,g3,100,2,1,d4,101,2,1,f4);
+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(e4);
+righthand;
+ add_rest(2,0);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+ beam(103,1,1,e4,105,1,1,c4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e5);
+ beam(104,2,1,g4,105,2,1,c5,106,2,1,e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+ beam(107,1,1,b4,109,1,1,g3);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+ beam(107,2,1,d5,108,2,1,g4,109,2,1,d5,110,2,1,f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(g5);
+ beam(111,1,1,e5,113,1,1,g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+ beam(111,2,1,c4,112,2,1,g3,113,2,1,c4,114,2,1,e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+righthand;
+ add_noteheads(g5);
+ beam(115,1,1,b5,117,1,1,g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+ beam(115,2,1,d4,116,2,1,g3,117,2,1,d4,118,2,1,f4);
+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(e4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+ beam(120,1,1,e4,122,1,1,c4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e5);
+ beam(120,2,1,c5,121,2,1,g4,122,2,1,c5,123,2,1,e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_rest(0,0);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+ beam(124,2,1,d5,125,2,1,g4,126,2,1,d5,127,2,1,f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_rest(2,0);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+righthand;
+ add_noteheads(c5);
+ beam(128,1,1,e5,130,1,1,c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g4);
+ beam(129,2,1,g4,130,2,1,e4,131,2,1,g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(e5);
+ beam(132,1,1,g5,134,1,1,e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+ beam(132,2,1,c4,133,2,1,e4,134,2,1,g3,135,2,1,b4);
+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(c6);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a6);
+ beam(137,2,1,c6,138,2,1,a6,139,2,1,e5,140,2,1,a6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g4);
+ beam(137,1,1,a4,139,1,1,c4,141,1,1,e4,143,1,1,g4);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c5);
+ beam(141,2,1,c5,142,2,1,e5,143,2,1,a5,144,2,1,c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+ add_sharp(f4);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+righthand;
+ add_noteheads(f5);
+ add_sharp(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+ beam(145,2,1,f4,146,2,1,a5,147,2,1,d4,148,2,1,f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(a6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ add_sharp(f3);
+righthand;
+ add_noteheads(c6);
+ beam(145,1,1,d5,147,1,1,f5,149,1,1,a6,151,1,1,c6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+ beam(149,2,1,a4,150,2,1,d4,151,2,1,f3,152,2,1,a4);
+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(g3);
+righthand;
+ add_noteheads(b6);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g5);
+ beam(154,2,1,b6,155,2,1,g5,156,2,1,d5,157,2,1,g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+ add_sharp(f4);
+ beam(154,1,1,g3,156,1,1,b4,158,1,1,d4,160,1,1,f4);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+ beam(158,2,1,b5,159,2,1,d5,160,2,1,g4,161,2,1,b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+ beam(162,2,1,e4,163,2,1,g4,164,2,1,c4,165,2,1,e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+righthand;
+ add_noteheads(b6);
+ beam(162,1,1,c5,164,1,1,e5,166,1,1,g5,168,1,1,b6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+ beam(166,2,1,g3,167,2,1,c4,168,2,1,e3,169,2,1,g3);
+end_of_char;
+new_char(-least_spaced);
+lefthand;
+ barline_(10);
+righthand;
+ barline_(10);
+end_of_char;
+end_of_block;
+make_line(next_char); showstats; end.
diff --git a/macros/texmuse/Samples/tex/aminor2.mf b/macros/texmuse/Samples/tex/aminor2.mf
new file mode 100644
index 0000000000..aa358e2717
--- /dev/null
+++ b/macros/texmuse/Samples/tex/aminor2.mf
@@ -0,0 +1,1052 @@
+mode_setup;
+input txmfont;
+input texmuse;
+instr_no(2);
+key_ := 0;
+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(f3);
+ add_sharp(f3);
+righthand;
+ add_noteheads(a6);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+ add_sharp(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(d5);
+ add_sharp(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+ beam(1,2,1,a6,2,2,1,f5,3,2,1,d5,4,2,1,f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+ add_sharp(d4);
+ beam(1,1,1,f3,3,1,1,a4,5,1,1,b4,7,1,1,d4);
+righthand;
+ add_noteheads(f4);
+ add_sharp(f4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a5);
+ beam(5,2,1,b5,6,2,1,d5,7,2,1,f4,8,2,1,a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_rest(2,0);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(g5);
+ add_tie(g5);
+ beam(9,1,1,g4,11,1,1,g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+ beam(10,2,1,e4,11,2,1,c4,12,2,1,e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ close_tie(g5);
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g4);
+ beam(13,2,1,a4,14,2,1,c4,15,2,1,e4,16,2,1,g4);
+righthand;
+ add_noteheads(e5);
+ beam(13,2,1,g5,14,2,1,e5,15,2,1,c5,16,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(f4);
+ add_sharp(f4);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(f5);
+ add_sharp(f5);
+ add_tie(f5);
+ beam(18,1,1,a5,20,1,1,f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+ beam(18,2,1,f4,19,2,1,d4,20,2,1,b4,21,2,1,d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ close_tie(f5);
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+ beam(22,2,1,g3,23,2,1,b4,24,2,1,d4,25,2,1,f4);
+righthand;
+ add_noteheads(d5);
+ beam(22,2,1,f5,23,2,1,d5,24,2,1,b5,25,2,1,d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(e5);
+ add_tie(e5);
+ beam(26,1,1,g4,28,1,1,e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+ beam(26,2,1,e4,27,2,1,c4,28,2,1,a4,29,2,1,c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ add_sharp(f3);
+righthand;
+ close_tie(e5);
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+ add_tie(c4);
+ beam(30,2,1,f3,31,2,1,a4,32,1,1,c4);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c5);
+ beam(30,2,1,e5,31,2,1,c5,32,2,1,a5,33,2,1,c5);
+end_of_char;
+new_char(-least_spaced);
+lefthand;
+ barline_(10);
+righthand;
+ barline_(10);
+end_of_char;
+end_of_block;
+new_char(16);
+lefthand;
+ close_tie(c4);
+ add_noteheads(c4);
+righthand;
+ add_noteheads(f4);
+ add_sharp(f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(f5);
+ add_sharp(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+ beam(35,2,1,c4,36,2,1,b4,37,2,1,c4,38,2,1,a4);
+righthand;
+ add_noteheads(e5);
+ beam(35,2,1,f4,36,2,1,g5,37,2,1,f5,38,2,1,e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(d5);
+ add_sharp(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b3);
+ beam(39,1,1,b4,41,1,1,b3);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+ beam(39,2,1,d5,40,2,1,f5,41,2,1,b5,42,2,1,d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+righthand;
+ add_noteheads(e5);
+ regular_stem;
+ add_flag(1);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_rest(1,0);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+ beam(43,2,1,e3,44,2,1,e4,45,2,1,b4,46,2,1,g3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+righthand;
+ add_rest(0,0);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g2);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b3);
+ beam(47,2,1,e3,48,2,1,b3,49,2,1,g2,50,2,1,b3);
+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(e2);
+righthand;
+ add_rest(2,0);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+ beam(52,1,1,e2,54,1,1,e3);
+righthand;
+ add_noteheads(b6);
+ add_flat(b6);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g5);
+ beam(53,2,1,g5,54,2,1,b6,55,2,1,g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+ add_flat(b4);
+ beam(56,1,1,g3,58,1,1,b4);
+righthand;
+ add_noteheads(c5);
+ add_sharp(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e5);
+ beam(56,2,1,e5,57,2,1,g5,58,2,1,c5,59,2,1,e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+ add_sharp(c4);
+ regular_stem;
+ add_flag(1);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_rest(1,0);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e5);
+ beam(60,2,1,g5,61,2,1,e5,62,2,1,c5,63,2,1,e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_rest(2,0);
+righthand;
+ add_noteheads(a5);
+ regular_stem;
+ add_flag(2);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g4);
+righthand;
+ add_rest(2,0);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+righthand;
+ add_rest(1,0);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+ beam(65,2,1,g4,66,2,1,f4,67,2,1,e4);
+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(d4);
+righthand;
+ add_rest(2,0);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+righthand;
+ add_noteheads(a6);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+ beam(70,2,1,f5,71,2,1,a6,72,2,1,f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+ add_flat(a4);
+ beam(69,1,1,d4,71,1,1,d3,73,1,1,f3,75,1,1,a4);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+ beam(73,2,1,d5,74,2,1,f5,75,2,1,b5,76,2,1,d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+ regular_stem;
+ add_flag(1);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_rest(1,0);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+ beam(77,2,1,f5,78,2,1,d5,79,2,1,b5,80,2,1,d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_rest(2,0);
+righthand;
+ add_noteheads(g4);
+ regular_stem;
+ add_flag(2);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+righthand;
+ add_rest(2,0);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+righthand;
+ add_rest(1,0);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+ beam(82,2,1,f4,83,2,1,e4,84,2,1,d4);
+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(c4);
+righthand;
+ add_rest(2,0);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e5);
+ beam(87,2,1,e5,88,2,1,g5,89,2,1,e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ add_sharp(f3);
+ beam(86,1,1,c4,88,1,1,c3,90,1,1,e3,92,1,1,f3);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c5);
+ beam(90,2,1,c5,91,2,1,e5,92,2,1,a5,93,2,1,c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+ regular_stem;
+ add_flag(1);
+righthand;
+ add_noteheads(d5);
+ add_sharp(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_rest(1,0);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c5);
+ beam(94,2,1,d5,95,2,1,c5,96,2,1,a5,97,2,1,c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_rest(2,0);
+righthand;
+ add_noteheads(f4);
+ add_sharp(f4);
+ regular_stem;
+ add_flag(2);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+righthand;
+ add_rest(2,0);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+ add_sharp(d4);
+righthand;
+ add_rest(1,0);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+ add_sharp(c4);
+ beam(99,2,1,e4,100,2,1,d4,101,2,1,c4);
+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(b4);
+righthand;
+ add_rest(2,0);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b3);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+ beam(104,2,1,d5,105,2,1,f5,106,2,1,d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ beam(103,1,1,b4,105,1,1,b3,107,1,1,d3,109,1,1,f3);
+righthand;
+ add_noteheads(g4);
+ add_sharp(g4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+ beam(107,2,1,b5,108,2,1,d5,109,2,1,g4,110,2,1,b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g2);
+ add_sharp(g2);
+ regular_stem;
+ add_flag(1);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_rest(1,0);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+ beam(111,2,1,d5,112,2,1,b5,113,2,1,g4,114,2,1,b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_rest(2,0);
+righthand;
+ add_noteheads(e4);
+ regular_stem;
+ add_flag(2);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+righthand;
+ add_rest(2,0);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_rest(1,0);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+ beam(116,2,1,d4,117,2,1,c4,118,2,1,b4);
+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(c4);
+righthand;
+ add_rest(2,0);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c5);
+ beam(121,2,1,e4,122,2,1,a5,123,2,1,c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+ add_sharp(g3);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+ beam(120,1,1,c4,122,1,1,a4,124,1,1,g3,126,1,1,e3);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+ beam(124,2,1,b5,125,2,1,e4,126,2,1,b5,127,2,1,d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(a5);
+ beam(128,1,1,c5,130,1,1,a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+ beam(128,2,1,a4,129,2,1,e3,130,2,1,a4,131,2,1,c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(g4);
+ add_sharp(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(e4);
+ beam(132,1,1,g4,134,1,1,e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+ beam(132,2,1,b4,133,2,1,e3,134,2,1,b4,135,2,1,d4);
+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(c4);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a5);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+ beam(137,2,1,c4,138,2,1,e4,139,2,1,a5,140,2,1,e4);
+righthand;
+ add_noteheads(c5);
+ beam(137,2,1,a5,138,2,1,c5,139,2,1,e5,140,2,1,c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(f4);
+ add_sharp(f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+ beam(141,2,1,c4,142,2,1,e4,143,2,1,a4,144,2,1,c4);
+righthand;
+ add_noteheads(a5);
+ beam(141,2,1,a5,142,2,1,c5,143,2,1,f4,144,2,1,a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ add_sharp(f3);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+ beam(145,2,1,f3,146,2,1,a4,147,2,1,c4,148,2,1,a4);
+righthand;
+ add_noteheads(a5);
+ beam(145,2,1,c5,146,2,1,a5,147,2,1,f4,148,2,1,a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(d4);
+ add_sharp(d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+ add_sharp(d3);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ beam(149,2,1,f3,150,2,1,a4,151,2,1,d3,152,2,1,f3);
+righthand;
+ add_noteheads(a5);
+ beam(149,2,1,d4,150,2,1,c5,151,2,1,b5,152,2,1,a5);
+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(e3);
+righthand;
+ add_noteheads(g4);
+ add_sharp(g4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+ add_sharp(g3);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+ beam(154,2,1,g4,155,2,1,b5,156,2,1,d5,157,2,1,b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+ beam(154,1,1,e3,156,1,1,g3,158,1,1,b4,160,1,1,g3);
+righthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f4);
+ beam(158,2,1,g4,159,2,1,b5,160,2,1,d4,161,2,1,f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b3);
+righthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f4);
+ beam(162,2,1,g4,163,2,1,f4,164,2,1,d4,165,2,1,f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g2);
+ add_sharp(g2);
+righthand;
+ add_noteheads(b4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e2);
+ beam(162,1,1,e3,164,1,1,b3,166,1,1,g2,168,1,1,e2);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d4);
+ beam(166,2,1,b4,167,2,1,f4,168,2,1,e4,169,2,1,d4);
+end_of_char;
+new_char(-least_spaced);
+lefthand;
+ barline_(10);
+righthand;
+ barline_(10);
+end_of_char;
+end_of_block;
+make_line(next_char); showstats; end.
diff --git a/macros/texmuse/Samples/tex/aminor3.mf b/macros/texmuse/Samples/tex/aminor3.mf
new file mode 100644
index 0000000000..5ccf6c6eff
--- /dev/null
+++ b/macros/texmuse/Samples/tex/aminor3.mf
@@ -0,0 +1,496 @@
+mode_setup;
+input txmfont;
+input texmuse;
+instr_no(2);
+key_ := 0;
+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(a3);
+righthand;
+ add_noteheads(c4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e4);
+ beam(1,2,1,c4,2,2,1,e4,3,2,1,a5,4,2,1,e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+righthand;
+ add_noteheads(c4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+ beam(1,1,1,a3,3,1,1,c3,5,1,1,e3,7,1,1,c3);
+righthand;
+ add_noteheads(a4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c4);
+ beam(5,2,1,c4,6,2,1,e4,7,2,1,a4,8,2,1,c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a3);
+righthand;
+ add_noteheads(d4);
+ add_sharp(d4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+ beam(9,1,1,a3,11,1,1,c3);
+righthand;
+ add_noteheads(a4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c4);
+ beam(9,2,1,d4,10,2,1,c4,11,2,1,a4,12,2,1,c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d2);
+ add_sharp(d2);
+ regular_stem;
+ add_flag(1);
+righthand;
+ add_noteheads(f3);
+ add_sharp(f3);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_rest(1,0);
+righthand;
+ add_noteheads(b4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a4);
+ beam(13,2,1,f3,14,2,1,c4,15,2,1,b4,16,2,1,a4);
+end_of_char;
+new_char(-least_spaced);
+lefthand;
+ barline_(10);
+righthand;
+ barline_(10);
+end_of_char;
+end_of_block;
+new_char(16);
+lefthand;
+ add_rest(2,0);
+righthand;
+ add_noteheads(g3);
+ add_sharp(g3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+ add_sharp(g3);
+righthand;
+ add_noteheads(b5);
+ beam(18,1,1,g3,20,1,1,b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+ beam(19,2,1,b4,20,2,1,g3,21,2,1,e3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+righthand;
+ add_noteheads(g4);
+ add_sharp(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(e4);
+ beam(22,1,1,g4,24,1,1,e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+ beam(22,2,1,d3,23,2,1,b4,24,2,1,g3,25,2,1,d3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+righthand;
+ add_rest(2,0);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+ beam(26,1,1,c3,28,1,1,e3);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c5);
+ beam(27,2,1,e4,28,2,1,a5,29,2,1,c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g2);
+ add_sharp(g2);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+ beam(30,1,1,g2,32,1,1,e3);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+ beam(30,2,1,b5,31,2,1,e4,32,2,1,b5,33,2,1,d5);
+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(a3);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ add_sharp(f3);
+ beam(35,1,1,a3,37,1,1,f3);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e5);
+ beam(35,2,1,c5,36,2,1,a5,37,2,1,c5,38,2,1,e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b3);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+ add_sharp(g3);
+ beam(39,1,1,b3,41,1,1,g3);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+ beam(39,2,1,d5,40,2,1,b5,41,2,1,d5,42,2,1,f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+ beam(43,1,1,c3,45,1,1,a4);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g5);
+ beam(43,2,1,e5,44,2,1,c5,45,2,1,e5,46,2,1,g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+ add_flat(b4);
+ beam(47,1,1,d3,49,1,1,b4);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c5);
+ beam(47,2,1,f5,48,2,1,e5,49,2,1,d5,50,2,1,c5);
+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(g3);
+ add_sharp(g3);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ beam(52,1,1,g3,54,1,1,f3);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e5);
+ beam(52,2,1,b5,53,2,1,c5,54,2,1,d5,55,2,1,e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b3);
+ beam(56,1,1,d3,58,1,1,b3);
+righthand;
+ add_noteheads(g5);
+ add_sharp(g5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+ beam(56,2,1,f5,57,2,1,d5,58,2,1,g5,59,2,1,d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g2);
+ add_sharp(g2);
+righthand;
+ add_noteheads(b6);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a3);
+ beam(60,1,1,g2,62,1,1,a3);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a6);
+ beam(60,2,1,b6,61,2,1,d5,62,2,1,c5,63,2,1,a6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d2);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e2);
+ beam(64,1,1,d2,66,1,1,e2);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+ beam(64,2,1,f5,65,2,1,d5,66,2,1,b5,67,2,1,d5);
+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(f2);
+righthand;
+ add_noteheads(g4);
+ add_sharp(g4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d2);
+ add_sharp(d2);
+ beam(69,1,1,f2,71,1,1,d2);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a5);
+ beam(69,2,1,g4,70,2,1,b5,71,2,1,c5,72,2,1,a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e2);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+ beam(73,1,1,e2,75,1,1,e3);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g4);
+ beam(73,2,1,e4,74,2,1,a5,75,2,1,b5,76,2,1,g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_halfheads(a3);
+ regular_stem;
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e4);
+ beam(77,2,1,a5,78,2,1,e4,79,2,1,c4,80,2,1,e4);
+end_of_char;
+new_char(64);
+righthand;
+ add_noteheads(a5);
+ 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);
+showstats; end.
diff --git a/macros/texmuse/Samples/tex/bbmajor.dvi b/macros/texmuse/Samples/tex/bbmajor.dvi
new file mode 100644
index 0000000000..f534902d2b
--- /dev/null
+++ b/macros/texmuse/Samples/tex/bbmajor.dvi
Binary files differ
diff --git a/macros/texmuse/Samples/tex/bbmajor.tex b/macros/texmuse/Samples/tex/bbmajor.tex
new file mode 100644
index 0000000000..826a262f61
--- /dev/null
+++ b/macros/texmuse/Samples/tex/bbmajor.tex
@@ -0,0 +1,47 @@
+%jknappen\sauter
+\documentclass{cfart}
+\input texmuse.tex
+\begin{document}
+\makeatletter
+\newinstrument{righthand}
+\newinstrument[\bassclef]{lefthand}
+\parindent0pt
+
+\title{Invention in B$\flat$}
+\author{J. S. Bach}
+\maketitle
+\thispagestyle{empty}
+\begin{figure}[b]
+\flushright\small Typeset by \TeXmuse
+\end{figure}
+
+\begin{texmuse}
+\meter44\key{-2}
+\righthand{\rangefrom{B5}
+ 3R2[BCDC3B][FDB+F][D2FEDE3F][BCF-\bA-] \rangefrom{E4}[G2EFGF3E][BGE+B][G2B\bAGA3B][EGC-E]
+ \rangefrom{A4}[A2CDED3C][A+FC+A+]\rangefrom{F4}[E2FGAG3F][CAF+C] 4DR3R2[G+F+EF+3G+]4CR3R2[F+EDE3F+]
+ 4BR3R2[EDCD3E][A2CBAB3C]4FR [F+FAC]5F+R
+ 4R[FBD]5F+R 4R[GBC]5\nER
+ 3R[2FGAG3F][CAF+C][A+2EDCD3E][AC\#FA] 4[BDBG][\bAF+AF]
+ \rangefrom{C4}3[G2CDED3C][GEC+G][D+2\bAGFG3A][DF\nB-G] 4ER3R[2CDED3C]4[C+.3B][A2FGAG3F]
+ \rangefrom{B4}4[F.3E][D2BCDC3B]4[B+.3\bA][G2B+AGA3B+] [E2GFEF3G][C2EDCD3E][A-2CDED3C][F2\bA-G-F-G-3A-]
+ \rangefrom{D4}3[G2BCD+C3B][E+2GFEF3G][F2ABCB3A][D+2FEDE3F] [E2GABA3G][C2EDC-D3E]5D3R2[BCD+C3B]
+ \rangefrom{B4}3[FDB+F][D2FEDE3F][BEBE]\rangefrom{E4}[G2EFGF3E] [BGE+B][G2B\bAGA3B]4[EE+=][3E+2E+DCD3E+]
+ 4[FE+=]3[E+2CDE+D3C][F+2DCBC3D][FBCA] 7B}
+\lefthand{\rangefrom{B3}
+ 4[B+BDF]5B+R 4R[BEG]5B+R
+ 4R[BCE]5AR \rangefrom{B4}3R2[BDED3B]4ER3R2[A-BCB3A-]4DR
+ \rangefrom{C3}3R2[GABA3G][C+2CDED3C]4[FF-]3R[C+AF] 3R2[FGAG3F][C+AF+C+][A2C+BAB3C+][FACE]
+ [D2B-CDC3B-][FDBF][D2FEDE3F][B-DG-B-] [\nE-2G-A-B-A-3G-][\nECGE][B2CDED3C][GEC+G]
+ 4[AC+AF][\#FAFD] [3G2G-A-BA-3G-][DBGD][B+2\bAGFG3A][DFBD]
+ 4[EGEC][\nBDBG-] \rangefrom{C2}3[C+2CDED3C]4[C+.3B][A2FGAG3F][4F+.3E+]
+ \rangefrom{B3}[D2BCDC3B]4[B+.3\bA][G2EFGF3E][4E+.3D+] \rangefrom{D3}[C2E+D+CD+3E+][A2CBAB3C][F2ABCB3A][D+2FEDE3F]
+ [E2GABA3G][C2EDCD3E][D2FGAG3F][B2DC-B-C-3D] [C-2EFGF3E][A2C-B-A-B-3C-][B-\rangefrom{B4}2BCDC3D]\trebleclef[FDB+F]
+ [D2FEDE3F]\bassclef[BDF-\bA-]\rangefrom{E3}[G2EFGF3E][BGE+B] [G2B\bAGA3B][EGB-D-]\rangefrom{F3}[C2FG\nAG3F][CAEC]
+ [A2CBAB3C][FAC-E-][D-2BCDC3B]4[F+F] 7B}
+\end{texmuse}
+
+\FontSplit140
+\music{lefthand,righthand}
+
+\end{document}
diff --git a/macros/texmuse/Samples/tex/bbmajor1.mf b/macros/texmuse/Samples/tex/bbmajor1.mf
new file mode 100644
index 0000000000..e0ac467942
--- /dev/null
+++ b/macros/texmuse/Samples/tex/bbmajor1.mf
@@ -0,0 +1,707 @@
+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(b4);
+righthand;
+ add_rest(2,0);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(b3);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+ beam(2,3,1,b5,3,3,1,c5,4,3,1,d5,5,3,1,c5,6,2,1,b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ beam(1,1,1,b4,4,1,1,b3,7,1,1,d3,9,1,1,f3);
+righthand;
+ add_noteheads(b6);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+ beam(7,2,1,f5,8,2,1,d5,9,2,1,b6,10,2,1,f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+ regular_stem;
+righthand;
+ add_noteheads(d5);
+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(d5);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+ beam(11,2,1,d5,12,3,1,f5,13,3,1,e5,14,3,1,d5,15,3,1,e5,16,2,1,f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_rest(0,0);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a5);
+ add_flat(a5);
+ beam(17,2,1,b5,18,2,1,c5,19,2,1,f4,20,2,1,a5);
+end_of_char;
+new_char(-least_spaced);
+lefthand;
+ barline_(10);
+righthand;
+ barline_(10);
+end_of_char;
+end_of_block;
+new_char(16);
+lefthand;
+ add_rest(1,0);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(b3);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e4);
+ beam(22,2,1,g4,23,3,1,e4,24,3,1,f4,25,3,1,g4,26,3,1,f4,27,2,1,e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+ beam(25,1,1,b3,28,1,1,e3,30,1,1,g3);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+ beam(28,2,1,b5,29,2,1,g4,30,2,1,e5,31,2,1,b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+ regular_stem;
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(a5);
+ add_flat(a5);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+ beam(32,2,1,g4,33,3,1,b5,34,3,1,a5,35,3,1,g4,36,3,1,a5,37,2,1,b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_rest(0,0);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e4);
+ beam(38,2,1,e4,39,2,1,g4,40,2,1,c4,41,2,1,e4);
+end_of_char;
+new_char(-least_spaced);
+lefthand;
+ barline_(10);
+righthand;
+ barline_(10);
+end_of_char;
+end_of_block;
+new_char(16);
+lefthand;
+ add_rest(1,0);
+righthand;
+ add_noteheads(a4);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(c4);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(b3);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c4);
+ beam(43,2,1,a4,44,3,1,c4,45,3,1,d4,46,3,1,e4,47,3,1,d4,48,2,1,c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+ beam(46,1,1,b3,49,1,1,c3,51,1,1,e3);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a5);
+ beam(49,2,1,a5,50,2,1,f4,51,2,1,c5,52,2,1,a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+ regular_stem;
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f4);
+ beam(53,2,1,e5,54,3,1,f4,55,3,1,g4,56,3,1,a5,57,3,1,g4,58,2,1,f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_rest(0,0);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c5);
+ beam(59,2,1,c5,60,2,1,a5,61,2,1,f5,62,2,1,c5);
+end_of_char;
+new_char(-least_spaced);
+lefthand;
+ barline_(10);
+righthand;
+ barline_(10);
+end_of_char;
+end_of_block;
+new_char(16);
+lefthand;
+ add_rest(2,0);
+righthand;
+ add_noteheads(d5);
+ regular_stem;
+ add_flag(1);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(b4);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(e4);
+righthand;
+ add_rest(1,0);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+ beam(65,3,1,b4,66,3,1,d4,67,3,1,e4,68,3,1,d4,69,2,1,b4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+ regular_stem;
+ add_flag(1);
+righthand;
+ add_rest(2,0);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(8);
+lefthand;
+ add_rest(1,0);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g5);
+ beam(71,3,1,g5,72,3,1,f5,73,3,1,e5,74,3,1,f5,75,2,1,g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_rest(2,0);
+righthand;
+ add_noteheads(c5);
+ regular_stem;
+ add_flag(1);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(a4);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(b4);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_rest(1,0);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(b4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+ beam(77,3,1,a4,78,3,1,b4,79,3,1,c4,80,3,1,b4,81,2,1,a4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+ regular_stem;
+ add_flag(1);
+righthand;
+ add_rest(2,0);
+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);
+lefthand;
+ add_rest(1,0);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+ beam(83,3,1,f5,84,3,1,e5,85,3,1,d5,86,3,1,e5,87,2,1,f5);
+end_of_char;
+new_char(-least_spaced);
+lefthand;
+ barline_(10);
+righthand;
+ barline_(10);
+end_of_char;
+end_of_block;
+new_char(16);
+lefthand;
+ add_rest(2,0);
+righthand;
+ add_noteheads(b5);
+ regular_stem;
+ add_flag(1);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(g3);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(a4);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_rest(1,0);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(a4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+ beam(90,3,1,g3,91,3,1,a4,92,3,1,b4,93,3,1,a4,94,2,1,g3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_rest(2,0);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(c3);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(d3);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(e3);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(d3);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+ beam(95,2,1,c4,96,3,1,c3,97,3,1,d3,98,3,1,e3,99,3,1,d3,100,2,1,c3);
+righthand;
+ add_noteheads(e5);
+ beam(96,3,1,e5,97,3,1,d5,98,3,1,c5,99,3,1,d5,100,2,1,e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(f2);
+ beam(101,1,1,f3,104,1,1,f2);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c5);
+ beam(101,2,1,a5,102,3,1,c5,103,3,1,b5,104,3,1,a5,105,3,1,b5,106,2,1,c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_rest(2,0);
+righthand;
+ add_noteheads(f4);
+ regular_stem;
+ add_flag(1);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_rest(1,0);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ beam(108,2,1,c4,109,2,1,a4,110,2,1,f3);
+end_of_char;
+new_char(-least_spaced);
+lefthand;
+ barline_(10);
+righthand;
+ barline_(10);
+end_of_char;
+end_of_block;
+new_char(16);
+lefthand;
+ add_rest(2,0);
+righthand;
+ add_noteheads(f5);
+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);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(g3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ beam(113,3,1,f3,114,3,1,g3,115,3,1,a4,116,3,1,g3,117,2,1,f3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+righthand;
+ add_noteheads(c5);
+ beam(112,1,1,f5,115,1,1,f4,118,1,1,a5,120,1,1,c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+ beam(118,2,1,c4,119,2,1,a4,120,2,1,f4,121,2,1,c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(f5);
+ regular_stem;
+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);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(b4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+ beam(122,2,1,a4,123,3,1,c4,124,3,1,b4,125,3,1,a4,126,3,1,b4,127,2,1,c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_rest(0,0);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+ beam(128,2,1,f3,129,2,1,a4,130,2,1,c3,131,2,1,e3);
+end_of_char;
+new_char(-least_spaced);
+lefthand;
+ barline_(10);
+righthand;
+ barline_(10);
+end_of_char;
+end_of_block;
+make_line(next_char); showstats; end.
diff --git a/macros/texmuse/Samples/tex/bbmajor2.mf b/macros/texmuse/Samples/tex/bbmajor2.mf
new file mode 100644
index 0000000000..1e0b15ce5f
--- /dev/null
+++ b/macros/texmuse/Samples/tex/bbmajor2.mf
@@ -0,0 +1,703 @@
+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(d3);
+righthand;
+ add_rest(1,0);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(b3);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(c3);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(d3);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(c3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b3);
+ beam(1,2,1,d3,2,3,1,b3,3,3,1,c3,4,3,1,d3,5,3,1,c3,6,2,1,b3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(d5);
+ beam(4,1,1,f4,7,1,1,b5,9,1,1,d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ beam(7,2,1,f3,8,2,1,d3,9,2,1,b4,10,2,1,f3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+righthand;
+ add_noteheads(f5);
+ regular_stem;
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(f3);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(e3);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(d3);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(e3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ beam(11,2,1,d3,12,3,1,f3,13,3,1,e3,14,3,1,d3,15,3,1,e3,16,2,1,f3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b3);
+righthand;
+ add_rest(0,0);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g2);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b3);
+ beam(17,2,1,b3,18,2,1,d3,19,2,1,g2,20,2,1,b3);
+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(e2);
+ add_natural(e2);
+righthand;
+ add_rest(1,0);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(g2);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(a3);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(b3);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(a3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g2);
+ beam(22,2,1,e2,23,3,1,g2,24,3,1,a3,25,3,1,b3,26,3,1,a3,27,2,1,g2);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+ add_natural(e3);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(c5);
+ beam(25,1,1,g4,28,1,1,b5,30,1,1,c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+ beam(28,2,1,e3,29,2,1,c3,30,2,1,g3,31,2,1,e3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(e5);
+ add_natural(e5);
+ regular_stem;
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(c3);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(d3);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(e3);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(d3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+ beam(32,2,1,b4,33,3,1,c3,34,3,1,d3,35,3,1,e3,36,3,1,d3,37,2,1,c3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_rest(0,0);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+ beam(38,2,1,g3,39,2,1,e3,40,2,1,c4,41,2,1,g3);
+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_rest(2,0);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f4);
+ beam(44,3,1,f4,45,3,1,g4,46,3,1,a5,47,3,1,g4,48,2,1,f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ beam(43,1,1,a4,46,1,1,c4,49,1,1,a4,51,1,1,f3);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c5);
+ beam(49,2,1,c5,50,2,1,a5,51,2,1,f5,52,2,1,c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ add_sharp(f3);
+righthand;
+ add_noteheads(a6);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(d5);
+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(16);
+righthand;
+ add_noteheads(e5);
+ beam(53,2,1,a6,54,3,1,e5,55,3,1,d5,56,3,1,c5,57,3,1,d5,58,2,1,e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+ beam(53,1,1,f3,56,1,1,a4,59,1,1,f3,61,1,1,d3);
+righthand;
+ add_noteheads(f4);
+ add_sharp(f4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a5);
+ beam(59,2,1,a5,60,2,1,c5,61,2,1,f4,62,2,1,a5);
+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(g3);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(g2);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(a3);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(a3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g2);
+ beam(64,2,1,g3,65,3,1,g2,66,3,1,a3,67,3,1,b4,68,3,1,a3,69,2,1,g2);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(g4);
+ beam(64,1,1,b5,67,1,1,d5,70,1,1,b5,72,1,1,g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+ beam(70,2,1,d3,71,2,1,b4,72,2,1,g3,73,2,1,d3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b5);
+righthand;
+ add_noteheads(a5);
+ add_flat(a5);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(a4);
+ add_flat(a4);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(g3);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(g3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+ beam(74,2,1,b5,75,3,1,a4,76,3,1,g3,77,3,1,f3,78,3,1,g3,79,2,1,a4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(f4);
+ beam(74,1,1,a5,77,1,1,f5,80,1,1,a5,82,1,1,f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+ beam(80,2,1,d3,81,2,1,f3,82,2,1,b4,83,2,1,d3);
+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(e3);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(c4);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c4);
+ beam(85,2,1,g4,86,3,1,c4,87,3,1,d4,88,3,1,e4,89,3,1,d4,90,2,1,c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+ beam(85,1,1,e3,88,1,1,g3,91,1,1,e3,93,1,1,c3);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g4);
+ beam(91,2,1,g4,92,2,1,e4,93,2,1,c5,94,2,1,g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+ add_natural(b4);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(a5);
+ add_flat(a5);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(d3);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a5);
+ beam(95,2,1,d5,96,3,1,a5,97,3,1,g4,98,3,1,f4,99,3,1,g4,100,2,1,a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g2);
+ beam(95,1,1,b4,98,1,1,d3,101,1,1,b4,103,1,1,g2);
+righthand;
+ add_noteheads(b4);
+ add_natural(b4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g4);
+ beam(101,2,1,d4,102,2,1,f4,103,2,1,b4,104,2,1,g4);
+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(c3);
+righthand;
+ add_noteheads(e4);
+ regular_stem;
+ add_flag(1);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(c2);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(d2);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(e2);
+righthand;
+ add_rest(1,0);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(d2);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c2);
+ beam(106,2,1,c3,107,3,1,c2,108,3,1,d2,109,3,1,e2,110,3,1,d2,111,2,1,c2);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+ add_dot(c3);
+righthand;
+ add_rest(2,0);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(c4);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b3);
+ beam(112,1,1,c3,117,2,1,b3);
+righthand;
+ add_noteheads(c4);
+ beam(113,3,1,c4,114,3,1,d4,115,3,1,e4,116,3,1,d4,117,2,1,c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a3);
+righthand;
+ add_noteheads(c5);
+ add_dot(c5);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(f2);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(g2);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(a3);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(g2);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f2);
+ beam(118,2,1,a3,119,3,1,f2,120,3,1,g2,121,3,1,a3,122,3,1,g2,123,2,1,f2);
+righthand;
+ add_noteheads(b5);
+ beam(118,1,1,c5,123,2,1,b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ add_dot(f3);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+ beam(124,1,1,f3,129,2,1,e3);
+righthand;
+ add_noteheads(f4);
+ beam(124,2,1,a5,125,3,1,f4,126,3,1,g4,127,3,1,a5,128,3,1,g4,129,2,1,f4);
+end_of_char;
+new_char(-least_spaced);
+lefthand;
+ barline_(10);
+righthand;
+ barline_(10);
+end_of_char;
+end_of_block;
+make_line(next_char); showstats; end.
diff --git a/macros/texmuse/Samples/tex/bbmajor3.mf b/macros/texmuse/Samples/tex/bbmajor3.mf
new file mode 100644
index 0000000000..98fe5c15d0
--- /dev/null
+++ b/macros/texmuse/Samples/tex/bbmajor3.mf
@@ -0,0 +1,768 @@
+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(d3);
+righthand;
+ add_noteheads(f4);
+ add_dot(f4);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(b3);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(c3);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(d3);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(c3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b3);
+ beam(1,2,1,d3,2,3,1,b3,3,3,1,c3,4,3,1,d3,5,3,1,c3,6,2,1,b3);
+righthand;
+ add_noteheads(e4);
+ beam(1,1,1,f4,6,2,1,e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+ add_dot(b4);
+righthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(b4);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(c4);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+ add_flat(a4);
+ beam(7,1,1,b4,12,2,1,a4);
+righthand;
+ add_noteheads(b4);
+ beam(7,2,1,d4,8,3,1,b4,9,3,1,c4,10,3,1,d4,11,3,1,c4,12,2,1,b4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(b5);
+ add_dot(b5);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(e3);
+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(f3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+ beam(13,2,1,g3,14,3,1,e3,15,3,1,f3,16,3,1,g3,17,3,1,f3,18,2,1,e3);
+righthand;
+ add_noteheads(a5);
+ add_flat(a5);
+ beam(13,1,1,b5,18,2,1,a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+ add_dot(e4);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+ beam(19,1,1,e4,24,2,1,d4);
+righthand;
+ add_noteheads(b5);
+ beam(19,2,1,g4,20,3,1,b5,21,3,1,a5,22,3,1,g4,23,3,1,a5,24,2,1,b5);
+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(c4);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(e4);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(d4);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(d4);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+ beam(26,2,1,c4,27,3,1,e4,28,3,1,d4,29,3,1,c4,30,3,1,d4,31,2,1,e4);
+righthand;
+ add_noteheads(g4);
+ beam(26,2,1,e4,27,3,1,g4,28,3,1,f4,29,3,1,e4,30,3,1,f4,31,2,1,g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(c4);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(c4);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+ beam(32,2,1,a4,33,3,1,c4,34,3,1,b4,35,3,1,a4,36,3,1,b4,37,2,1,c4);
+righthand;
+ add_noteheads(e4);
+ beam(32,2,1,c4,33,3,1,e4,34,3,1,d4,35,3,1,c4,36,3,1,d4,37,2,1,e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(a4);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(c4);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+ beam(38,2,1,f3,39,3,1,a4,40,3,1,b4,41,3,1,c4,42,3,1,b4,43,2,1,a4);
+righthand;
+ add_noteheads(c4);
+ beam(38,2,1,a4,39,3,1,c4,40,3,1,d4,41,3,1,e4,42,3,1,d4,43,2,1,c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(a4);
+ add_flat(a4);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(e3);
+righthand;
+ add_noteheads(g3);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(d3);
+righthand;
+ add_noteheads(f3);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(e3);
+righthand;
+ add_noteheads(g3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ beam(44,2,1,d4,45,3,1,f3,46,3,1,e3,47,3,1,d3,48,3,1,e3,49,2,1,f3);
+righthand;
+ add_noteheads(a4);
+ beam(44,2,1,f4,45,3,1,a4,46,3,1,g3,47,3,1,f3,48,3,1,g3,49,2,1,a4);
+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(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);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+ beam(51,2,1,e3,52,3,1,g3,53,3,1,a4,54,3,1,b4,55,3,1,a4,56,2,1,g3);
+righthand;
+ add_noteheads(b5);
+ beam(51,2,1,g4,52,3,1,b5,53,3,1,c5,54,3,1,d5,55,3,1,c5,56,2,1,b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(e3);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(d3);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(d3);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+ beam(57,2,1,c4,58,3,1,e3,59,3,1,d3,60,3,1,c4,61,3,1,d3,62,2,1,e3);
+righthand;
+ add_noteheads(g4);
+ beam(57,2,1,e5,58,3,1,g4,59,3,1,f4,60,3,1,e4,61,3,1,f4,62,2,1,g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ beam(63,2,1,d3,64,3,1,f3,65,3,1,g3,66,3,1,a4,67,3,1,g3,68,2,1,f3);
+righthand;
+ add_noteheads(a5);
+ beam(63,2,1,f4,64,3,1,a5,65,3,1,b5,66,3,1,c5,67,3,1,b5,68,2,1,a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(d3);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(c3);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(b3);
+righthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(c3);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+ beam(69,2,1,b4,70,3,1,d3,71,3,1,c3,72,3,1,b3,73,3,1,c3,74,2,1,d3);
+righthand;
+ add_noteheads(f4);
+ beam(69,2,1,d5,70,3,1,f4,71,3,1,e4,72,3,1,d4,73,3,1,e4,74,2,1,f4);
+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(c3);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(e3);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+ beam(76,2,1,c3,77,3,1,e3,78,3,1,f3,79,3,1,g3,80,3,1,f3,81,2,1,e3);
+righthand;
+ add_noteheads(g4);
+ beam(76,2,1,e4,77,3,1,g4,78,3,1,a5,79,3,1,b5,80,3,1,a5,81,2,1,g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(c3);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(b3);
+righthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(a3);
+righthand;
+ add_noteheads(c4);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(b3);
+righthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+ beam(82,2,1,a4,83,3,1,c3,84,3,1,b3,85,3,1,a3,86,3,1,b3,87,2,1,c3);
+righthand;
+ add_noteheads(e4);
+ beam(82,2,1,c5,83,3,1,e4,84,3,1,d4,85,3,1,c4,86,3,1,d4,87,2,1,e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b3);
+righthand;
+ add_noteheads(d4);
+ regular_stem;
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(b4);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(c4);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+ beam(88,2,1,b3,89,3,1,b4,90,3,1,c4,91,3,1,d4,92,3,1,c4,93,2,1,d4);
+end_of_char;
+new_char(16);
+lefthand;
+ clef_(0);
+ add_noteheads(f4);
+righthand;
+ add_rest(2,0);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(d4);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(b5);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+ beam(94,2,1,f4,95,2,1,d4,97,2,1,b5,99,2,1,f4);
+righthand;
+ add_noteheads(b5);
+ beam(95,3,1,b5,96,3,1,c5,97,3,1,d5,98,3,1,c5,99,2,1,b5);
+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(d4);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(f4);
+righthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(d4);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+ beam(101,2,1,d4,102,3,1,f4,103,3,1,e4,104,3,1,d4,105,3,1,e4,106,2,1,f4);
+righthand;
+ add_noteheads(f4);
+ beam(101,2,1,f4,102,2,1,d4,104,2,1,b5,106,2,1,f4);
+end_of_char;
+new_char(16);
+lefthand;
+ clef_(6);
+ add_noteheads(b4);
+righthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(d4);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+ add_flat(a4);
+ beam(107,2,1,b4,108,2,1,d4,110,2,1,f3,112,2,1,a4);
+righthand;
+ add_noteheads(f4);
+ beam(107,2,1,d4,108,3,1,f4,109,3,1,e4,110,3,1,d4,111,3,1,e4,112,2,1,f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(b4);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(e3);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(f3);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(b4);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(f3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+ beam(113,2,1,g3,114,3,1,e3,115,3,1,f3,116,3,1,g3,117,3,1,f3,118,2,1,e3);
+righthand;
+ add_noteheads(e4);
+ beam(113,2,1,b4,114,2,1,e4,116,2,1,b4,118,2,1,e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(e4);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+ beam(119,2,1,b4,120,2,1,g3,122,2,1,e4,124,2,1,b4);
+righthand;
+ add_noteheads(e4);
+ beam(119,2,1,g4,120,3,1,e4,121,3,1,f4,122,3,1,g4,123,3,1,f4,124,2,1,e4);
+end_of_char;
+new_char(-least_spaced);
+lefthand;
+ barline_(10);
+righthand;
+ barline_(10);
+end_of_char;
+end_of_block;
+make_line(next_char); showstats; end.
diff --git a/macros/texmuse/Samples/tex/bbmajor4.mf b/macros/texmuse/Samples/tex/bbmajor4.mf
new file mode 100644
index 0000000000..e4b18036b1
--- /dev/null
+++ b/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.
diff --git a/macros/texmuse/Samples/tex/cmajor.dvi b/macros/texmuse/Samples/tex/cmajor.dvi
new file mode 100644
index 0000000000..f8b3e07d86
--- /dev/null
+++ b/macros/texmuse/Samples/tex/cmajor.dvi
Binary files differ
diff --git a/macros/texmuse/Samples/tex/cmajor.tex b/macros/texmuse/Samples/tex/cmajor.tex
new file mode 100644
index 0000000000..7a0e700247
--- /dev/null
+++ b/macros/texmuse/Samples/tex/cmajor.tex
@@ -0,0 +1,75 @@
+%jknappen\sauter
+\documentclass{cfart}
+\input texmuse.tex
+\begin{document}
+\makeatletter
+\newinstrument{righthand}
+\newinstrument[\bassclef]{lefthand}
+\parindent0pt
+
+\title{Invention in C}
+\author{J. S. Bach}
+\maketitle
+\thispagestyle{empty}
+\begin{figure}[b]
+\flushright\small Typeset by \TeXmuse
+\end{figure}
+
+\begin{texmuse}
+\meter44%\key{-3}
+\righthand{\rangefrom{C4}%
+ 3R[CDE] [FDEC] 4 [GC+][BC+]
+ \rangefrom{G4} 3[DGAB] [CABG] 4[DG+FG+]
+ \rangefrom{C5} 3[EAGF] [EGFA] [GFED] [CEDF]
+ \rangefrom{F4}[EDCB][ACBD][CBAG][\#FAGB]
+ \rangefrom{F4}4[AD-][C.3D][BAG\#F] [E-GFA]
+ [GBAC][BDCE][D2BC3DG+][4B3AG]
+ 4GR5R3R[GAB][CABG]
+ 4\#FR5R3R[ABC][DBCA]
+ 4BR5R3R[DCB][ACBD]
+ 4CR5R3R[EDC][BD\#CE]
+ 4[D\#CDE][F+A][\nBC]
+ 4[D\#F][\#GA][BC]5D=
+ 3[DE-\#F\#G][AFGE-][EDCE][DCBD]
+ 3[CA+\#G+B+][A+EF+D][\#GF+ED]4[C3BA]
+ [A\rangefrom{C5}AGF][EGFA]6G
+ 3[GEFG][AFGE]6F
+ 3[FGFE][DFEG]6F
+ 3[FDEF][GEFD]6E
+ 3[ECDE][FDEC][DEFG][AFGE]
+ [FGAB][C+A\nBG]4[C+G][E3DC]
+ \rangefrom{D4}[C\bBAG][FAGB][A\nBCD][DCFB]
+ 7C
+ }
+\lefthand{\rangefrom{C3}%
+ 6R 3R[C DE] [FDEC]
+ 4[GG-] 5R 3R[GAB] [C+ABG]
+ \rangefrom{G3}4[CBCD] [EG] [AB]
+ [CE-] [\#F-G] [AB] 5C
+ \rangefrom{D3}3[CDE\#F][GEFD]4[GB-][C-D]
+ 4[E\#F][GE][B-.3C-]4[DD-]
+ \rangefrom{G2}3R[GAB][CABG]4[DG+][\#FG+]
+ 3[A+DE\#F][G+EFD]\rangefrom{A4}4[ADCD]
+ 3[G-\trebleclef GFE][DFEG]4[FEFD]
+ 3[EA+GF][EGFA+]4[GFGE]
+ \rangefrom{D4}3[F\bBAG][FAGB][AGFE][DFEG]
+ \rangefrom{G3}[FEDC][BDCE][DCBA][\#GBAC]
+ 4[B\bassclef E-][D.3E][CBA\nG][\#F-A\#GB]
+ [ACBD][CEDF]4[EAEE-]
+ [AA-]5R3R[EDC][BD\#CE]
+ 6D3[DABC][DBCA]
+ 6B3[BDCB][ACBD]
+ 6C3[CGAB][CABG]
+ 4[ABAG][F-DCB]
+ [AFED]3[ED-E-F-][GE-F-D-]
+ \rangefrom{C3}4[ECDE][3FDEF]4[GG-]
+ 7C-
+ }
+
+\end{texmuse}
+
+\makeatletter
+\music{lefthand,righthand}
+
+
+\end{document} \ No newline at end of file
diff --git a/macros/texmuse/Samples/tex/cmajor1.mf b/macros/texmuse/Samples/tex/cmajor1.mf
new file mode 100644
index 0000000000..3735cd37f9
--- /dev/null
+++ b/macros/texmuse/Samples/tex/cmajor1.mf
@@ -0,0 +1,961 @@
+mode_setup;
+input txmfont;
+input texmuse;
+instr_no(2);
+key_ := 0;
+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_rest(-1,0);
+righthand;
+ add_rest(2,0);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e4);
+ beam(2,2,1,c4,3,2,1,d4,4,2,1,e4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c4);
+ beam(5,2,1,f4,6,2,1,d4,7,2,1,e4,8,2,1,c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_rest(2,0);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+righthand;
+ add_noteheads(c5);
+ beam(9,1,1,g4,11,1,1,c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+ beam(10,2,1,c3,11,2,1,d3,12,2,1,e3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+righthand;
+ add_noteheads(c5);
+ beam(13,1,1,b5,15,1,1,c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+ beam(13,2,1,f3,14,2,1,d3,15,2,1,e3,16,2,1,c3);
+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(g3);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g2);
+ beam(18,1,1,g3,20,1,1,g2);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+ beam(18,2,1,d5,19,2,1,g4,20,2,1,a5,21,2,1,b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_rest(0,0);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g4);
+ beam(22,2,1,c5,23,2,1,a5,24,2,1,b5,25,2,1,g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_rest(2,0);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+ beam(27,2,1,g3,28,2,1,a4,29,2,1,b4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(g5);
+ beam(26,1,1,d5,28,1,1,g5,30,1,1,f5,32,1,1,g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+ beam(30,2,1,c4,31,2,1,a4,32,2,1,b4,33,2,1,g3);
+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(c4);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+ beam(35,2,1,e5,36,2,1,a6,37,2,1,g5,38,2,1,f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+ beam(35,1,1,c4,37,1,1,b4,39,1,1,c4,41,1,1,d4);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a6);
+ beam(39,2,1,e5,40,2,1,g5,41,2,1,f5,42,2,1,a6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+ beam(43,1,1,e4,45,1,1,g3);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+ beam(43,2,1,g5,44,2,1,f5,45,2,1,e5,46,2,1,d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+ beam(47,1,1,a4,49,1,1,b4);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+ beam(47,2,1,c5,48,2,1,e5,49,2,1,d5,50,2,1,f5);
+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(c4);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+ beam(52,1,1,c4,54,1,1,e3);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+ beam(52,2,1,e5,53,2,1,d5,54,2,1,c5,55,2,1,b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ add_sharp(f3);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+ beam(56,1,1,f3,58,1,1,g3);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+ beam(56,2,1,a5,57,2,1,c5,58,2,1,b5,59,2,1,d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+ beam(60,1,1,a4,62,1,1,b4);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g4);
+ beam(60,2,1,c5,61,2,1,b5,62,2,1,a5,63,2,1,g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+ regular_stem;
+righthand;
+ add_noteheads(f4);
+ add_sharp(f4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+ beam(64,2,1,f4,65,2,1,a5,66,2,1,g4,67,2,1,b5);
+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(c4);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+righthand;
+ add_noteheads(d4);
+ beam(69,1,1,a5,71,1,1,d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ add_sharp(f3);
+ beam(69,2,1,c4,70,2,1,d3,71,2,1,e3,72,2,1,f3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(c5);
+ add_dot(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+ beam(73,2,1,g3,74,2,1,e3,75,2,1,f3,76,2,1,d3);
+righthand;
+ add_noteheads(d5);
+ beam(73,1,1,c5,76,2,1,d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b3);
+ beam(77,1,1,g3,79,1,1,b3);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f4);
+ add_sharp(f4);
+ beam(77,2,1,b5,78,2,1,a5,79,2,1,g4,80,2,1,f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+ beam(81,1,1,c3,83,1,1,d3);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a5);
+ beam(81,2,1,e4,82,2,1,g4,83,2,1,f4,84,2,1,a5);
+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(e3);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ add_sharp(f3);
+ beam(86,1,1,e3,88,1,1,f3);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c5);
+ beam(86,2,1,g4,87,2,1,b5,88,2,1,a5,89,2,1,c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+ beam(90,1,1,g3,92,1,1,e3);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e5);
+ beam(90,2,1,b5,91,2,1,d5,92,2,1,c5,93,2,1,e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b3);
+ add_dot(b3);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+ beam(94,1,1,b3,98,2,1,c3);
+righthand;
+ add_noteheads(g5);
+ beam(94,2,1,d5,95,3,1,b5,96,3,1,c5,97,2,1,d5,98,2,1,g5);
+end_of_char;
+new_char(32);
+lefthand;
+ add_noteheads(d3);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d2);
+ beam(99,1,1,d3,100,1,1,d2);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g4);
+ beam(99,1,1,b5,100,2,1,a5,101,2,1,g4);
+end_of_char;
+new_char(-least_spaced);
+lefthand;
+ barline_(10);
+righthand;
+ barline_(10);
+end_of_char;
+end_of_block;
+new_char(16);
+lefthand;
+ add_rest(2,0);
+righthand;
+ add_noteheads(g4);
+ regular_stem;
+ add_flag(1);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g2);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a3);
+righthand;
+ add_rest(1,0);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b3);
+ beam(104,2,1,g2,105,2,1,a3,106,2,1,b3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+righthand;
+ add_rest(0,0);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g2);
+ beam(107,2,1,c3,108,2,1,a3,109,2,1,b3,110,2,1,g2);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+righthand;
+ add_rest(2,0);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+ beam(111,1,1,d3,113,1,1,g3);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+ beam(112,2,1,g4,113,2,1,a5,114,2,1,b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ add_sharp(f3);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+ beam(115,1,1,f3,117,1,1,g3);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g4);
+ beam(115,2,1,c5,116,2,1,a5,117,2,1,b5,118,2,1,g4);
+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);
+ add_sharp(f4);
+ regular_stem;
+ add_flag(1);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+righthand;
+ add_rest(1,0);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ add_sharp(f3);
+ beam(120,2,1,a4,121,2,1,d3,122,2,1,e3,123,2,1,f3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_rest(0,0);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+ beam(124,2,1,g3,125,2,1,e3,126,2,1,f3,127,2,1,d3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_rest(2,0);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c5);
+ beam(129,2,1,a5,130,2,1,b5,131,2,1,c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+ beam(128,1,1,a4,130,1,1,d4,132,1,1,c4,134,1,1,d4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a5);
+ beam(132,2,1,d5,133,2,1,b5,134,2,1,c5,135,2,1,a5);
+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(g3);
+righthand;
+ add_noteheads(b5);
+ regular_stem;
+ add_flag(1);
+end_of_char;
+new_char(16);
+lefthand;
+ clef_(0);
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+righthand;
+ add_rest(1,0);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+ beam(137,2,1,g3,138,2,1,g4,139,2,1,f4,140,2,1,e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+righthand;
+ add_rest(0,0);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g4);
+ beam(141,2,1,d4,142,2,1,f4,143,2,1,e4,144,2,1,g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+righthand;
+ add_rest(2,0);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+ beam(146,2,1,d5,147,2,1,c5,148,2,1,b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+ beam(145,1,1,f4,147,1,1,e4,149,1,1,f4,151,1,1,d4);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+ beam(149,2,1,a5,150,2,1,c5,151,2,1,b5,152,2,1,d5);
+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(e4);
+righthand;
+ add_noteheads(c5);
+ regular_stem;
+ add_flag(1);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g4);
+righthand;
+ add_rest(1,0);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+ beam(154,2,1,e4,155,2,1,a5,156,2,1,g4,157,2,1,f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+righthand;
+ add_rest(0,0);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a5);
+ beam(158,2,1,e4,159,2,1,g4,160,2,1,f4,161,2,1,a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g4);
+righthand;
+ add_rest(2,0);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c5);
+ beam(163,2,1,e5,164,2,1,d5,165,2,1,c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g4);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+ beam(162,1,1,g4,164,1,1,f4,166,1,1,g4,168,1,1,e4);
+righthand;
+ add_noteheads(c5);
+ add_sharp(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e5);
+ beam(166,2,1,b5,167,2,1,d5,168,2,1,c5,169,2,1,e5);
+end_of_char;
+new_char(-least_spaced);
+lefthand;
+ barline_(10);
+righthand;
+ barline_(10);
+end_of_char;
+end_of_block;
+make_line(next_char); showstats; end.
diff --git a/macros/texmuse/Samples/tex/cmajor2.mf b/macros/texmuse/Samples/tex/cmajor2.mf
new file mode 100644
index 0000000000..b96e0fcd04
--- /dev/null
+++ b/macros/texmuse/Samples/tex/cmajor2.mf
@@ -0,0 +1,949 @@
+mode_setup;
+input txmfont;
+input texmuse;
+instr_no(2);
+key_ := 0;
+desired_width := 469.75499pt/pt;
+staff_1="-1,0,1,2,3";
+bar_type1=10;
+instr_clef1:= 0;
+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(f4);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b5);
+ add_flat(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a5);
+righthand;
+ add_noteheads(c5);
+ add_sharp(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g4);
+ beam(1,2,1,f4,2,2,1,b5,3,2,1,a5,4,2,1,g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g4);
+righthand;
+ add_noteheads(e5);
+ beam(1,1,1,d5,3,1,1,c5,5,1,1,d5,7,1,1,e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b5);
+ beam(5,2,1,f4,6,2,1,a5,7,2,1,g4,8,2,1,b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a5);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+righthand;
+ add_noteheads(a5);
+ beam(9,1,1,f5,11,1,1,a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+ beam(9,2,1,a5,10,2,1,g4,11,2,1,f4,12,2,1,e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+righthand;
+ add_noteheads(b5);
+ add_natural(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+righthand;
+ add_noteheads(c5);
+ beam(13,1,1,b5,15,1,1,c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g4);
+ beam(13,2,1,d4,14,2,1,f4,15,2,1,e4,16,2,1,g4);
+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(f4);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+righthand;
+ add_noteheads(f4);
+ add_sharp(f4);
+ beam(18,1,1,d5,20,1,1,f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+ beam(18,2,1,f4,19,2,1,e4,20,2,1,d4,21,2,1,c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(g4);
+ add_sharp(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(a5);
+ beam(22,1,1,g4,24,1,1,a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+ beam(22,2,1,b4,23,2,1,d4,24,2,1,c4,25,2,1,e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(c5);
+ beam(26,1,1,b5,28,1,1,c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+ beam(26,2,1,d4,27,2,1,c4,28,2,1,b4,29,2,1,a4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+ add_sharp(g3);
+righthand;
+ add_noteheads(d5);
+ regular_stem;
+ add_tie(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+ beam(30,2,1,g3,31,2,1,b4,32,2,1,a4,33,2,1,c4);
+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(b4);
+righthand;
+ close_tie(d5);
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+lefthand;
+ clef_(6);
+ add_noteheads(e3);
+ beam(35,1,1,b4,37,1,1,e3);
+righthand;
+ add_noteheads(f4);
+ add_sharp(f4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g4);
+ add_sharp(g4);
+ beam(35,2,1,d5,36,2,1,e4,37,2,1,f4,38,2,1,g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+ add_dot(d4);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+ beam(39,1,1,d4,42,2,1,e4);
+righthand;
+ add_noteheads(e4);
+ beam(39,2,1,a5,40,2,1,f4,41,2,1,g4,42,2,1,e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+ add_natural(g3);
+ beam(43,2,1,c4,44,2,1,b4,45,2,1,a4,46,2,1,g3);
+righthand;
+ add_noteheads(e5);
+ beam(43,2,1,e5,44,2,1,d5,45,2,1,c5,46,2,1,e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ add_sharp(f3);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+ add_sharp(g3);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+ beam(47,2,1,f3,48,2,1,a4,49,2,1,g3,50,2,1,b4);
+righthand;
+ add_noteheads(d5);
+ beam(47,2,1,d5,48,2,1,c5,49,2,1,b5,50,2,1,d5);
+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(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(a6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(g5);
+ add_sharp(g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+ beam(52,2,1,a4,53,2,1,c4,54,2,1,b4,55,2,1,d4);
+righthand;
+ add_noteheads(b6);
+ beam(52,2,1,c5,53,2,1,a6,54,2,1,g5,55,2,1,b6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(a6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+ beam(56,2,1,c4,57,2,1,e4,58,2,1,d4,59,2,1,f4);
+righthand;
+ add_noteheads(d5);
+ beam(56,2,1,a6,57,2,1,e5,58,2,1,f5,59,2,1,d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+righthand;
+ add_noteheads(g4);
+ add_sharp(g4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+ beam(60,2,1,g4,61,2,1,f5,62,2,1,e5,63,2,1,d5);
+end_of_char;
+new_char(32);
+lefthand;
+ add_noteheads(e4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+ beam(60,1,1,e4,62,1,1,a4,64,1,1,e4,65,1,1,e3);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a5);
+ beam(64,1,1,c5,65,2,1,b5,66,2,1,a5);
+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(a5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a3);
+ beam(68,1,1,a4,70,1,1,a3);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+ beam(68,2,1,a5,69,2,1,a6,70,2,1,g5,71,2,1,f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_rest(0,0);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a6);
+ beam(72,2,1,e5,73,2,1,g5,74,2,1,f5,75,2,1,a6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_rest(2,0);
+righthand;
+ add_halfheads(g5);
+ regular_stem;
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+ beam(77,2,1,e4,78,2,1,d4,79,2,1,c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+ add_sharp(c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+ beam(80,2,1,b4,81,2,1,d4,82,2,1,c4,83,2,1,e4);
+end_of_char;
+new_char(-least_spaced);
+lefthand;
+ barline_(10);
+righthand;
+ barline_(10);
+end_of_char;
+end_of_block;
+new_char(16);
+lefthand;
+ add_halfheads(d4);
+ regular_stem;
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g5);
+ beam(85,2,1,g5,86,2,1,e5,87,2,1,f5,88,2,1,g5);
+end_of_char;
+new_char(16);
+righthand;
+ 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(e5);
+ beam(89,2,1,a6,90,2,1,f5,91,2,1,g5,92,2,1,e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+righthand;
+ add_halfheads(f5);
+ regular_stem;
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+ beam(93,2,1,d4,94,2,1,a4,95,2,1,b4,96,2,1,c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+ beam(97,2,1,d4,98,2,1,b4,99,2,1,c4,100,2,1,a4);
+end_of_char;
+new_char(-least_spaced);
+lefthand;
+ barline_(10);
+righthand;
+ barline_(10);
+end_of_char;
+end_of_block;
+new_char(16);
+lefthand;
+ add_halfheads(b4);
+ regular_stem;
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e5);
+ beam(102,2,1,f5,103,2,1,g5,104,2,1,f5,105,2,1,e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g5);
+ beam(106,2,1,d5,107,2,1,f5,108,2,1,e5,109,2,1,g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_halfheads(f5);
+ regular_stem;
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+ beam(110,2,1,b4,111,2,1,d4,112,2,1,c4,113,2,1,b4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+ beam(114,2,1,a4,115,2,1,c4,116,2,1,b4,117,2,1,d4);
+end_of_char;
+new_char(-least_spaced);
+lefthand;
+ barline_(10);
+righthand;
+ barline_(10);
+end_of_char;
+end_of_block;
+new_char(16);
+lefthand;
+ add_halfheads(c4);
+ regular_stem;
+righthand;
+ add_noteheads(f5);
+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(f5);
+ beam(119,2,1,f5,120,2,1,d5,121,2,1,e5,122,2,1,f5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+ beam(123,2,1,g5,124,2,1,e5,125,2,1,f5,126,2,1,d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_halfheads(e5);
+ regular_stem;
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+ beam(127,2,1,c4,128,2,1,g3,129,2,1,a4,130,2,1,b4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+ beam(131,2,1,c4,132,2,1,a4,133,2,1,b4,134,2,1,g3);
+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(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e5);
+ beam(136,2,1,e5,137,2,1,c5,138,2,1,d5,139,2,1,e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+ beam(136,1,1,a4,138,1,1,b4,140,1,1,a4,142,1,1,g3);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c5);
+ beam(140,2,1,f5,141,2,1,d5,142,2,1,e5,143,2,1,c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g5);
+ beam(144,2,1,d5,145,2,1,e5,146,2,1,f5,147,2,1,g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(a6);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+ beam(144,1,1,f3,146,1,1,d4,148,1,1,c4,150,1,1,b4);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e5);
+ beam(148,2,1,a6,149,2,1,f5,150,2,1,g5,151,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(f5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+righthand;
+ add_noteheads(a6);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b6);
+ beam(153,2,1,f5,154,2,1,g5,155,2,1,a6,156,2,1,b6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+righthand;
+ add_noteheads(c6);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+ beam(153,1,1,a4,155,1,1,f4,157,1,1,e4,159,1,1,d4);
+righthand;
+ add_noteheads(b6);
+ add_natural(b6);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g5);
+ beam(157,2,1,c6,158,2,1,a6,159,2,1,b6,160,2,1,g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+righthand;
+ add_noteheads(c6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+righthand;
+ add_noteheads(g5);
+ beam(161,1,1,c6,163,1,1,g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ beam(161,2,1,e4,162,2,1,d3,163,2,1,e3,164,2,1,f3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+ beam(165,2,1,g3,166,2,1,e3,167,2,1,f3,168,2,1,d3);
+righthand;
+ add_noteheads(c5);
+ beam(165,1,1,e5,167,2,1,d5,168,2,1,c5);
+end_of_char;
+new_char(-least_spaced);
+lefthand;
+ barline_(10);
+righthand;
+ barline_(10);
+end_of_char;
+end_of_block;
+make_line(next_char); showstats; end.
diff --git a/macros/texmuse/Samples/tex/cmajor3.mf b/macros/texmuse/Samples/tex/cmajor3.mf
new file mode 100644
index 0000000000..f40a03de5e
--- /dev/null
+++ b/macros/texmuse/Samples/tex/cmajor3.mf
@@ -0,0 +1,138 @@
+mode_setup;
+input txmfont;
+input texmuse;
+instr_no(2);
+key_ := 0;
+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(e3);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+ add_flat(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g4);
+ beam(1,2,1,c5,2,2,1,b5,3,2,1,a5,4,2,1,g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+ beam(1,1,1,e3,3,1,1,c3,5,1,1,d3,7,1,1,e3);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+ beam(5,2,1,f4,6,2,1,a5,7,2,1,g4,8,2,1,b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+righthand;
+ add_noteheads(b5);
+ add_natural(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ beam(9,2,1,f3,10,2,1,d3,11,2,1,e3,12,2,1,f3);
+righthand;
+ add_noteheads(d4);
+ beam(9,2,1,a5,10,2,1,b5,11,2,1,c5,12,2,1,d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g2);
+ beam(13,1,1,g3,15,1,1,g2);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+ beam(13,2,1,d4,14,2,1,c5,15,2,1,f4,16,2,1,b5);
+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(c2);
+righthand;
+ add_wholeheads(c5);
+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.
diff --git a/macros/texmuse/Samples/tex/cminor.dvi b/macros/texmuse/Samples/tex/cminor.dvi
new file mode 100644
index 0000000000..e51971c992
--- /dev/null
+++ b/macros/texmuse/Samples/tex/cminor.dvi
Binary files differ
diff --git a/macros/texmuse/Samples/tex/cminor.tex b/macros/texmuse/Samples/tex/cminor.tex
new file mode 100644
index 0000000000..1d495bded4
--- /dev/null
+++ b/macros/texmuse/Samples/tex/cminor.tex
@@ -0,0 +1,80 @@
+\documentclass{cfart}
+\input texmuse.tex
+\begin{document}
+\makeatletter
+\newinstrument{righthand}
+\newinstrument[\bassclef]{lefthand}
+\parindent0pt
+\FontSplit140
+\title{Invention in c}
+\author{J. S. Bach}
+\maketitle
+\thispagestyle{empty}
+\begin{figure}[b]
+\flushright\small Typeset by \TeXmuse
+\end{figure}
+\begin{texmuse}
+\meter44\key{-3}
+\righthand{\rangefrom{A5}
+ 4R3[C\nB][CDEG-][A\bBAF-][FEDC]
+ [\nBA+GF][EDCB][CDCD][4D.2CD]
+ 3[EDCD][EF4G][GF]RF
+ 4[FE]RD[EA=]3[AF-BF-]
+ 4[G-E=][3EDEB][CEA+G][FEDC]
+ [BDGF][EDCB][ACFC][4D.3D]
+ [EBCB]5G=3[GBCB]5A+=
+ [3A+BED][GFA+G][C+B+A+G][FB+A+B+]
+ [GB+A+B+][EGFG][CDEF][DEFG]
+ [EFGA+][B+A+C+B+][A+GFA+]5D=
+ [3DDGD][ECDB]5C=3[CG\#F\nA+]
+ [CB4C=][3C\#F\nED][4B+.3E]4[F.3G]
+ [4G3\rangefrom{E4}G\#F][G\nABD-][EFEC-][CBAG]
+ [\#FE+DC][B\nAGF][GAGA]4[A.2GA]
+ [3B\nAGA][BC4D][DC]CR
+ [CB]4R\nA[BE=]3[EC-\nFC-]
+ 4[D-B=][3B\nABF][GBE+D][CBAG]
+ [F\nACD][BAGA][EGCG][4A.3A]
+ [BFGF]5D=[3DFGF]5E=
+ [3EFB\nA][DCE+D][G+F+E+D][CF+E+F+]
+ [DCB\nA][DCE+D][CBAC]5F+=
+ [3F+GC\nB][E+DF+E+][A+G+F+E+][DG+F+G+]
+ [E+DC\nB][CDE+G][A\bBAF][F+E+DC]
+ [\nBA+G+F+][E+DCB][CDCD]4[D.2CD]
+ 3[E+DCD][E+F+4G+][G+F+]RF+
+ 4[F+E+]\rangefrom{C5}3[GFAG][4G.3A][4D.3C]
+ 7C
+}
+\lefthand{\rangefrom{A4}
+ 7R
+ R
+ 4R\trebleclef 3[C\nB][CDEG-][A\bBAF-][FEDC]
+ [\nBA+GF][EDCB][CDCD][4D.2CD]
+ 3[EDCD][EF4G][GF]RF
+ [FE]RD[EA=]3[AF-BF-]
+ 4[G-E=]3[EDEB][CEA+G][FEDC]
+ [BDGF][EDCB][ACFC][4D.3D]
+ [EBCB]5G=3[GBCB]5A+=
+ [3A+BED][GFA+G][C+B+A+G][FB+A+B+]
+ [4G\bassclef3\rangefrom{E3}EF][G\nABD-][EFEC-][CBAG]
+ [\#FE+DC][B\nAGF][GAGA]4]A.2GA]
+ 3[B\nAGA][BC4D][DC]4CR
+ [CB]4R\nA[BE=]3[EC-\nFC-]
+ 4[D-B3][B\nABF][GBE+D][CBAG]
+ [F\nACD][BAGA][EGCG][4A.3A]
+ [BFGF]5D=]3[DFGF]5E+=
+ [3E+FB\nA][DCE+D][G+F+E+D][CF+E+F+]
+ [DF+E+F+][BDCD][G\nABC][ABCD]
+ [BCDE+][F+E+G+F+][E+DCE+]5\nA=
+ [3\nADG\#F][BACB][E+DCB][ADCD]
+ [\nBF+E+D][C\bB\bAG][FED-C-]4]GG-]
+ \rangefrom{A3}[4C.3D][EF4G][GF]RF
+ [4FE=][3EFED][C\bBAG-][F-E-F-G-]
+ 4[C-3C\nB][CDEG-][A\bBAF-][FEDC]
+ [\nBA+GF][EDCB][CG-AF-][4G-G-]
+ 7C-
+}
+\end{texmuse}
+
+\music{lefthand,righthand}
+
+\end{document} \ No newline at end of file
diff --git a/macros/texmuse/Samples/tex/cminor1.mf b/macros/texmuse/Samples/tex/cminor1.mf
new file mode 100644
index 0000000000..a3a796caa0
--- /dev/null
+++ b/macros/texmuse/Samples/tex/cminor1.mf
@@ -0,0 +1,790 @@
+mode_setup;
+input txmfont;
+input texmuse;
+instr_no(2);
+key_ := -3;
+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(32);
+lefthand;
+ add_rest(-2,0);
+righthand;
+ add_rest(1,0);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+ add_natural(b5);
+ beam(2,2,1,c5,3,2,1,b5);
+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(g4);
+ beam(4,2,1,c5,5,2,1,d5,6,2,1,e5,7,2,1,g4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+ add_flat(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f4);
+ beam(8,2,1,a5,9,2,1,b5,10,2,1,a5,11,2,1,f4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c5);
+ beam(12,2,1,f5,13,2,1,e5,14,2,1,d5,15,2,1,c5);
+end_of_char;
+new_char(-least_spaced);
+lefthand;
+ barline_(10);
+righthand;
+ barline_(10);
+end_of_char;
+end_of_block;
+new_char(16);
+lefthand;
+ add_rest(-2,0);
+righthand;
+ add_noteheads(b5);
+ add_natural(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a6);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+ beam(17,2,1,b5,18,2,1,a6,19,2,1,g5,20,2,1,f5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+ beam(21,2,1,e5,22,2,1,d5,23,2,1,c5,24,2,1,b5);
+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(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+ beam(25,2,1,c5,26,2,1,d5,27,2,1,c5,28,2,1,d5);
+end_of_char;
+new_char(48);
+righthand;
+ add_noteheads(d5);
+ add_dot(d5);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(d5);
+ beam(29,1,1,d5,30,3,1,c5,31,3,1,d5);
+end_of_char;
+new_char(-least_spaced);
+lefthand;
+ barline_(10);
+righthand;
+ barline_(10);
+end_of_char;
+end_of_block;
+new_char(16);
+lefthand;
+ add_rest(1,0);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ clef_(0);
+ add_noteheads(c4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+ add_natural(b4);
+ beam(35,2,1,c4,36,2,1,b4);
+righthand;
+ add_noteheads(d5);
+ beam(33,2,1,e5,34,2,1,d5,35,2,1,c5,36,2,1,d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+righthand;
+ add_noteheads(g5);
+ beam(37,2,1,e5,38,2,1,f5,39,1,1,g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+ beam(37,2,1,c4,38,2,1,d4,39,2,1,e4,40,2,1,g3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+ add_flat(b4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(f5);
+ beam(41,1,1,g5,43,1,1,f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ beam(41,2,1,a4,42,2,1,b4,43,2,1,a4,44,2,1,f3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+righthand;
+ add_rest(1,0);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+righthand;
+ add_noteheads(f5);
+ regular_stem;
+ add_flag(1);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+ beam(45,2,1,f4,46,2,1,e4,47,2,1,d4,48,2,1,c4);
+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(b4);
+ add_natural(b4);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g4);
+righthand;
+ add_noteheads(e5);
+ beam(50,1,1,f5,52,1,1,e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+ beam(50,2,1,b4,51,2,1,a5,52,2,1,g4,53,2,1,f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+righthand;
+ add_rest(1,0);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(d5);
+ regular_stem;
+ add_flag(1);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+ beam(54,2,1,e4,55,2,1,d4,56,2,1,c4,57,2,1,b4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(a5);
+ add_tie(a5);
+ beam(58,1,1,e5,60,1,1,a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+ beam(58,2,1,c4,59,2,1,d4,60,2,1,c4,61,2,1,d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+ add_dot(d4);
+righthand;
+ close_tie(a5);
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(f4);
+ beam(62,2,1,a5,63,2,1,f4,64,2,1,b5,65,2,1,f4);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(d4);
+ beam(62,1,1,d4,65,3,1,c4,66,3,1,d4);
+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(e4);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(e5);
+ add_tie(e5);
+ beam(68,1,1,g4,70,1,1,e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+ beam(68,2,1,e4,69,2,1,d4,70,2,1,c4,71,2,1,d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+righthand;
+ close_tie(e5);
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g4);
+ beam(72,2,1,e4,73,2,1,f4,74,1,1,g4);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+ beam(72,2,1,e5,73,2,1,d5,74,2,1,e5,75,2,1,b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+ beam(76,1,1,g4,78,1,1,f4);
+righthand;
+ add_noteheads(a6);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g5);
+ beam(76,2,1,c5,77,2,1,e5,78,2,1,a6,79,2,1,g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_rest(1,0);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+ regular_stem;
+ add_flag(1);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c5);
+ beam(80,2,1,f5,81,2,1,e5,82,2,1,d5,83,2,1,c5);
+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(f4);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+ beam(85,1,1,f4,87,1,1,e4);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+ beam(85,2,1,b5,86,2,1,d5,87,2,1,g5,88,2,1,f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_rest(1,0);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+ regular_stem;
+ add_flag(1);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+ beam(89,2,1,e5,90,2,1,d5,91,2,1,c5,92,2,1,b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+ add_tie(a4);
+ beam(93,1,1,e4,95,1,1,a4);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c5);
+ beam(93,2,1,a5,94,2,1,c5,95,2,1,f5,96,2,1,c5);
+end_of_char;
+new_char(16);
+lefthand;
+ close_tie(a4);
+ add_noteheads(a4);
+righthand;
+ add_noteheads(d5);
+ add_dot(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ beam(97,2,1,a4,98,2,1,f3,99,2,1,b4,100,2,1,f3);
+righthand;
+ add_noteheads(d5);
+ beam(97,1,1,d5,100,2,1,d5);
+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(g3);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+ add_tie(e4);
+ beam(102,1,1,g3,104,1,1,e4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+ beam(102,2,1,e5,103,2,1,b5,104,2,1,c5,105,2,1,b5);
+end_of_char;
+new_char(16);
+lefthand;
+ close_tie(e4);
+ add_noteheads(e4);
+righthand;
+ add_noteheads(g5);
+ regular_stem;
+ add_tie(g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+ beam(106,2,1,e4,107,2,1,d4,108,2,1,e4,109,2,1,b4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ close_tie(g5);
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a5);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g4);
+ beam(110,2,1,c4,111,2,1,e4,112,2,1,a5,113,2,1,g4);
+righthand;
+ add_noteheads(b5);
+ beam(110,2,1,g5,111,2,1,b5,112,2,1,c5,113,2,1,b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+righthand;
+ add_noteheads(a6);
+ regular_stem;
+ add_tie(a6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+ beam(114,2,1,f4,115,2,1,e4,116,2,1,d4,117,2,1,c4);
+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(b4);
+righthand;
+ close_tie(a6);
+ add_noteheads(a6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g4);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+ beam(119,2,1,b4,120,2,1,d4,121,2,1,g4,122,2,1,f4);
+righthand;
+ add_noteheads(d5);
+ beam(119,2,1,a6,120,2,1,b5,121,2,1,e5,122,2,1,d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(a6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+ beam(123,2,1,e4,124,2,1,d4,125,2,1,c4,126,2,1,b4);
+righthand;
+ add_noteheads(g5);
+ beam(123,2,1,g5,124,2,1,f5,125,2,1,a6,126,2,1,g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(c6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(b6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+righthand;
+ add_noteheads(a6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+ beam(127,2,1,a4,128,2,1,c4,129,2,1,f4,130,2,1,c4);
+righthand;
+ add_noteheads(g5);
+ beam(127,2,1,c6,128,2,1,b6,129,2,1,a6,130,2,1,g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+ add_dot(d4);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b6);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+ beam(131,1,1,d4,134,2,1,d4);
+righthand;
+ add_noteheads(b6);
+ beam(131,2,1,f5,132,2,1,b6,133,2,1,a6,134,2,1,b6);
+end_of_char;
+new_char(-least_spaced);
+lefthand;
+ barline_(10);
+righthand;
+ barline_(10);
+end_of_char;
+end_of_block;
+make_line(next_char); showstats; end.
diff --git a/macros/texmuse/Samples/tex/cminor2.mf b/macros/texmuse/Samples/tex/cminor2.mf
new file mode 100644
index 0000000000..5c36aab9d0
--- /dev/null
+++ b/macros/texmuse/Samples/tex/cminor2.mf
@@ -0,0 +1,869 @@
+mode_setup;
+input txmfont;
+input texmuse;
+instr_no(2);
+key_ := -3;
+desired_width := 469.75499pt/pt;
+staff_1="-1,0,1,2,3";
+bar_type1=10;
+instr_clef1:= 0;
+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(e4);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(b6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(a6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+ beam(1,2,1,e4,2,2,1,b4,3,2,1,c4,4,2,1,b4);
+righthand;
+ add_noteheads(b6);
+ beam(1,2,1,g5,2,2,1,b6,3,2,1,a6,4,2,1,b6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g4);
+ regular_stem;
+ add_tie(g4);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g5);
+ beam(5,2,1,e5,6,2,1,g5,7,2,1,f5,8,2,1,g5);
+end_of_char;
+new_char(16);
+lefthand;
+ close_tie(g4);
+ add_noteheads(g4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+ beam(9,2,1,g4,10,2,1,b4,11,2,1,c4,12,2,1,b4);
+righthand;
+ add_noteheads(f5);
+ beam(9,2,1,c5,10,2,1,d5,11,2,1,e5,12,2,1,f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a5);
+ regular_stem;
+ add_tie(a5);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g5);
+ beam(13,2,1,d5,14,2,1,e5,15,2,1,f5,16,2,1,g5);
+end_of_char;
+new_char(-least_spaced);
+lefthand;
+ barline_(10);
+righthand;
+ barline_(10);
+end_of_char;
+end_of_block;
+new_char(16);
+lefthand;
+ close_tie(a5);
+ add_noteheads(a5);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+ beam(18,2,1,a5,19,2,1,b4,20,2,1,e4,21,2,1,d4);
+righthand;
+ add_noteheads(a6);
+ beam(18,2,1,e5,19,2,1,f5,20,2,1,g5,21,2,1,a6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g4);
+righthand;
+ add_noteheads(b6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+righthand;
+ add_noteheads(a6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a5);
+righthand;
+ add_noteheads(c6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g4);
+ beam(22,2,1,g4,23,2,1,f4,24,2,1,a5,25,2,1,g4);
+righthand;
+ add_noteheads(b6);
+ beam(22,2,1,b6,23,2,1,a6,24,2,1,c6,25,2,1,b6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c5);
+righthand;
+ add_noteheads(a6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b5);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a5);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g4);
+ beam(26,2,1,c5,27,2,1,b5,28,2,1,a5,29,2,1,g4);
+righthand;
+ add_noteheads(a6);
+ beam(26,2,1,a6,27,2,1,g5,28,2,1,f5,29,2,1,a6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+righthand;
+ add_noteheads(d5);
+ regular_stem;
+ add_tie(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b5);
+ beam(30,2,1,f4,31,2,1,b5,32,2,1,a5,33,2,1,b5);
+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(g4);
+righthand;
+ close_tie(d5);
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ clef_(6);
+ add_noteheads(e3);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ beam(35,1,1,g4,37,2,1,e3,38,2,1,f3);
+righthand;
+ add_noteheads(d5);
+ beam(35,2,1,d5,36,2,1,d5,37,2,1,g5,38,2,1,d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+ add_natural(a4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+ beam(39,2,1,g3,40,2,1,a4,41,2,1,b4,42,2,1,d3);
+righthand;
+ add_noteheads(b5);
+ beam(39,2,1,e5,40,2,1,c5,41,2,1,d5,42,2,1,b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+righthand;
+ add_noteheads(c5);
+ regular_stem;
+ add_tie(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+ beam(43,2,1,e3,44,2,1,f3,45,2,1,e3,46,2,1,c3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ close_tie(c5);
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(f5);
+ add_sharp(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+ beam(47,2,1,c4,48,2,1,b4,49,2,1,a4,50,2,1,g3);
+righthand;
+ add_noteheads(a6);
+ add_natural(a6);
+ beam(47,2,1,c5,48,2,1,g5,49,2,1,f5,50,2,1,a6);
+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(f3);
+ add_sharp(f3);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+righthand;
+ add_noteheads(c5);
+ add_tie(c5);
+ beam(52,2,1,c5,53,2,1,b5,54,1,1,c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+ beam(52,2,1,f3,53,2,1,e4,54,2,1,d4,55,2,1,c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ close_tie(c5);
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+ add_natural(a4);
+righthand;
+ add_noteheads(f5);
+ add_sharp(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(e5);
+ add_natural(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ beam(56,2,1,b4,57,2,1,a4,58,2,1,g3,59,2,1,f3);
+righthand;
+ add_noteheads(d5);
+ beam(56,2,1,c5,57,2,1,f5,58,2,1,e5,59,2,1,d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(b6);
+ add_dot(b6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+ beam(60,2,1,g3,61,2,1,a4,62,2,1,g3,63,2,1,a4);
+ beam(60,2,1,g3,61,2,1,a4,62,2,1,g3,63,2,1,a4);
+righthand;
+ add_noteheads(e5);
+ beam(60,1,1,b6,63,2,1,e5);
+end_of_char;
+new_char(48);
+lefthand;
+ add_noteheads(a4);
+ regular_stem;
+ add_flag(1);
+ add_dot(a4);
+righthand;
+ add_noteheads(f5);
+ add_dot(f5);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(g3);
+ regular_stem;
+ add_flag(3);
+righthand;
+ add_noteheads(g5);
+ beam(64,1,1,f5,65,2,1,g5);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(a4);
+ regular_stem;
+ add_flag(3);
+ beam(60,2,1,g3,61,2,1,a4,62,2,1,g3,63,2,1,a4);
+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(b4);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+ add_natural(a4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+ beam(68,2,1,b4,69,2,1,a4,70,2,1,g3,71,2,1,a4);
+righthand;
+ add_noteheads(f4);
+ add_sharp(f4);
+ beam(68,1,1,g5,70,2,1,g4,71,2,1,f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(a5);
+ add_natural(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+ beam(72,2,1,b4,73,2,1,c4,74,1,1,d4);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d4);
+ beam(72,2,1,g4,73,2,1,a5,74,2,1,b5,75,2,1,d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+ beam(76,1,1,d4,78,1,1,c4);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c4);
+ beam(76,2,1,e4,77,2,1,f4,78,2,1,e4,79,2,1,c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+ regular_stem;
+ add_flag(1);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_rest(1,0);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g4);
+ beam(80,2,1,c5,81,2,1,b5,82,2,1,a5,83,2,1,g4);
+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(c4);
+righthand;
+ add_noteheads(f4);
+ add_sharp(f4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+ beam(85,1,1,c4,87,1,1,b4);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c5);
+ beam(85,2,1,f4,86,2,1,e5,87,2,1,d5,88,2,1,c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_rest(1,0);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a5);
+ add_natural(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+ add_natural(a4);
+ regular_stem;
+ add_flag(1);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f4);
+ beam(89,2,1,b5,90,2,1,a5,91,2,1,g4,92,2,1,f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+ add_tie(e3);
+ beam(93,1,1,b4,95,1,1,e3);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a5);
+ beam(93,2,1,g4,94,2,1,a5,95,2,1,g4,96,2,1,a5);
+end_of_char;
+new_char(16);
+lefthand;
+ close_tie(e3);
+ add_noteheads(e3);
+righthand;
+ add_noteheads(a5);
+ add_dot(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ add_natural(f3);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(c3);
+ beam(97,2,1,e3,98,2,1,c3,99,2,1,f3,100,2,1,c3);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(a5);
+ beam(97,1,1,a5,100,3,1,g4,101,3,1,a5);
+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(d3);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a5);
+ add_natural(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+ beam(103,1,1,d3,105,1,1,b4);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a5);
+ beam(103,2,1,b5,104,2,1,a5,105,2,1,g4,106,2,1,a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+ add_natural(a4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(d5);
+ beam(107,2,1,b5,108,2,1,c5,109,1,1,d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ beam(107,2,1,b4,108,2,1,a4,109,2,1,b4,110,2,1,f3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+righthand;
+ add_noteheads(c5);
+ beam(111,1,1,d5,113,1,1,c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+ beam(111,2,1,g3,112,2,1,b4,113,2,1,e4,114,2,1,d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(c5);
+ regular_stem;
+ add_flag(1);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_rest(1,0);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+ beam(115,2,1,c4,116,2,1,b4,117,2,1,a4,118,2,1,g3);
+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(f3);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+ add_natural(a4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(b5);
+ beam(120,1,1,c5,122,1,1,b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+ beam(120,2,1,f3,121,2,1,a4,122,2,1,c4,123,2,1,d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_rest(1,0);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(a5);
+ add_natural(a5);
+ regular_stem;
+ add_flag(1);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+ beam(124,2,1,b4,125,2,1,a4,126,2,1,g3,127,2,1,a4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(e4);
+ add_tie(e4);
+ beam(128,1,1,b5,130,1,1,e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+ beam(128,2,1,e3,129,2,1,g3,130,2,1,c4,131,2,1,g3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+ add_dot(a4);
+righthand;
+ close_tie(e4);
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f4);
+ add_natural(f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+ beam(132,1,1,a4,135,2,1,a4);
+righthand;
+ add_noteheads(c4);
+ beam(132,2,1,e4,133,2,1,c4,134,2,1,f4,135,2,1,c4);
+end_of_char;
+new_char(-least_spaced);
+lefthand;
+ barline_(10);
+righthand;
+ barline_(10);
+end_of_char;
+end_of_block;
+make_line(next_char); showstats; end.
diff --git a/macros/texmuse/Samples/tex/cminor3.mf b/macros/texmuse/Samples/tex/cminor3.mf
new file mode 100644
index 0000000000..39bcf0382c
--- /dev/null
+++ b/macros/texmuse/Samples/tex/cminor3.mf
@@ -0,0 +1,890 @@
+mode_setup;
+input txmfont;
+input texmuse;
+instr_no(2);
+key_ := -3;
+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(b4);
+righthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(b5);
+ add_tie(b5);
+ beam(1,1,1,d4,3,1,1,b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ beam(1,2,1,b4,2,2,1,f3,3,2,1,g3,4,2,1,f3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+ regular_stem;
+ add_tie(d4);
+ beam(1,2,1,b4,2,2,1,f3,3,2,1,g3,4,2,1,f3);
+righthand;
+ close_tie(b5);
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a5);
+ add_natural(a5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f4);
+ beam(5,2,1,b5,6,2,1,a5,7,2,1,b5,8,2,1,f4);
+end_of_char;
+new_char(16);
+lefthand;
+ close_tie(d4);
+ add_noteheads(d4);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ beam(9,2,1,d4,10,2,1,f3,11,2,1,g3,12,2,1,f3);
+righthand;
+ add_noteheads(d5);
+ beam(9,2,1,g4,10,2,1,b5,11,2,1,e5,12,2,1,d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+ regular_stem;
+ add_tie(e4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g4);
+ beam(13,2,1,c5,14,2,1,b5,15,2,1,a5,16,2,1,g4);
+end_of_char;
+new_char(-least_spaced);
+lefthand;
+ barline_(10);
+righthand;
+ barline_(10);
+end_of_char;
+end_of_block;
+new_char(16);
+lefthand;
+ close_tie(e4);
+ add_noteheads(e4);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(a5);
+ add_natural(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+ add_natural(a4);
+ beam(18,2,1,e4,19,2,1,f3,20,2,1,b4,21,2,1,a4);
+righthand;
+ add_noteheads(d5);
+ beam(18,2,1,f4,19,2,1,a5,20,2,1,c5,21,2,1,d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+ beam(22,2,1,d4,23,2,1,c4,24,2,1,e4,25,2,1,d4);
+righthand;
+ add_noteheads(a5);
+ beam(22,2,1,b5,23,2,1,a5,24,2,1,g4,25,2,1,a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g4);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+ beam(26,2,1,g4,27,2,1,f4,28,2,1,e4,29,2,1,d4);
+righthand;
+ add_noteheads(g4);
+ beam(26,2,1,e4,27,2,1,g4,28,2,1,c5,29,2,1,g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(a5);
+ add_dot(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+ beam(30,2,1,c4,31,2,1,f4,32,2,1,e4,33,2,1,f4);
+righthand;
+ add_noteheads(a5);
+ beam(30,1,1,a5,33,2,1,a5);
+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(d4);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+ beam(35,2,1,d4,36,2,1,f4,37,2,1,e4,38,2,1,f4);
+righthand;
+ add_noteheads(f4);
+ beam(35,2,1,b5,36,2,1,f4,37,2,1,g4,38,2,1,f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(d5);
+ regular_stem;
+ add_tie(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+ beam(39,2,1,b4,40,2,1,d4,41,2,1,c4,42,2,1,d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ close_tie(d5);
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+ add_natural(a4);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+ beam(43,2,1,g3,44,2,1,a4,45,2,1,b4,46,2,1,c4);
+righthand;
+ add_noteheads(f4);
+ beam(43,2,1,d5,44,2,1,f4,45,2,1,g4,46,2,1,f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(e4);
+ regular_stem;
+ add_tie(e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+ beam(47,2,1,a4,48,2,1,b4,49,2,1,c4,50,2,1,d4);
+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(b4);
+righthand;
+ close_tie(e4);
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+ beam(52,2,1,b4,53,2,1,c4,54,2,1,d4,55,2,1,e4);
+righthand;
+ add_noteheads(a5);
+ add_natural(a5);
+ beam(52,2,1,e4,53,2,1,f4,54,2,1,b5,55,2,1,a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g4);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+ beam(56,2,1,f4,57,2,1,e4,58,2,1,g4,59,2,1,f4);
+righthand;
+ add_noteheads(d5);
+ beam(56,2,1,d5,57,2,1,c5,58,2,1,e5,59,2,1,d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+ beam(60,2,1,e4,61,2,1,d4,62,2,1,c4,63,2,1,e4);
+righthand;
+ add_noteheads(d5);
+ beam(60,2,1,g5,61,2,1,f5,62,2,1,e5,63,2,1,d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+ add_natural(a4);
+ regular_stem;
+ add_tie(a4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+ beam(64,2,1,c5,65,2,1,f5,66,2,1,e5,67,2,1,f5);
+end_of_char;
+new_char(-least_spaced);
+lefthand;
+ barline_(10);
+righthand;
+ barline_(10);
+end_of_char;
+end_of_block;
+new_char(16);
+lefthand;
+ close_tie(a4);
+ add_noteheads(a4);
+ add_natural(a4);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ add_sharp(f3);
+ beam(69,2,1,a4,70,2,1,d4,71,2,1,g3,72,2,1,f3);
+righthand;
+ add_noteheads(a5);
+ add_natural(a5);
+ beam(69,2,1,d5,70,2,1,c5,71,2,1,b5,72,2,1,a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+ beam(73,2,1,b4,74,2,1,a4,75,2,1,c4,76,2,1,b4);
+righthand;
+ add_noteheads(d5);
+ beam(73,2,1,d5,74,2,1,c5,75,2,1,e5,76,2,1,d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+ beam(77,2,1,e4,78,2,1,d4,79,2,1,c4,80,2,1,b4);
+righthand;
+ add_noteheads(c5);
+ beam(77,2,1,c5,78,2,1,b5,79,2,1,a5,80,2,1,c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(f5);
+ regular_stem;
+ add_tie(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+ beam(81,2,1,a4,82,2,1,d4,83,2,1,c4,84,2,1,d4);
+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(b4);
+ add_natural(b4);
+righthand;
+ close_tie(f5);
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+ beam(86,2,1,b4,87,2,1,f4,88,2,1,e4,89,2,1,d4);
+righthand;
+ add_noteheads(b5);
+ add_natural(b5);
+ beam(86,2,1,f5,87,2,1,g4,88,2,1,c5,89,2,1,b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+ add_flat(b4);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+ add_flat(a4);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+ beam(90,2,1,c4,91,2,1,b4,92,2,1,a4,93,2,1,g3);
+righthand;
+ add_noteheads(e5);
+ beam(90,2,1,e5,91,2,1,d5,92,2,1,f5,93,2,1,e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(a6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+ beam(94,2,1,f3,95,2,1,e3,96,2,1,d3,97,2,1,c3);
+ beam(94,2,1,f3,95,2,1,e3,96,2,1,d3,97,2,1,c3);
+righthand;
+ add_noteheads(e5);
+ beam(94,2,1,a6,95,2,1,g5,96,2,1,f5,97,2,1,e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+ regular_stem;
+ add_flag(1);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g2);
+ regular_stem;
+ add_flag(1);
+ beam(94,2,1,f3,95,2,1,e3,96,2,1,d3,97,2,1,c3);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g5);
+ beam(98,2,1,d5,99,2,1,g5,100,2,1,f5,101,2,1,g5);
+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(c3);
+ add_dot(c3);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+ beam(103,1,1,c3,106,2,1,d3);
+righthand;
+ add_noteheads(b5);
+ add_natural(b5);
+ beam(103,2,1,e5,104,2,1,d5,105,2,1,c5,106,2,1,b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+ beam(107,2,1,e3,108,2,1,f3,109,1,1,g3);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g4);
+ beam(107,2,1,c5,108,2,1,d5,109,2,1,e5,110,2,1,g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+ add_flat(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ beam(111,1,1,g3,113,1,1,f3);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f4);
+ beam(111,2,1,a5,112,2,1,b5,113,2,1,a5,114,2,1,f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_rest(1,0);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ regular_stem;
+ add_flag(1);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c5);
+ beam(115,2,1,f5,116,2,1,e5,117,2,1,d5,118,2,1,c5);
+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(f3);
+righthand;
+ add_noteheads(b5);
+ add_natural(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+ add_tie(e3);
+ beam(120,1,1,f3,122,1,1,e3);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+ beam(120,2,1,b5,121,2,1,a6,122,2,1,g5,123,2,1,f5);
+end_of_char;
+new_char(16);
+lefthand;
+ close_tie(e3);
+ add_noteheads(e3);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+ beam(124,2,1,e3,125,2,1,f3,126,2,1,e3,127,2,1,d3);
+righthand;
+ add_noteheads(b5);
+ beam(124,2,1,e5,125,2,1,d5,126,2,1,c5,127,2,1,b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b3);
+ add_flat(b3);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a3);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g2);
+ beam(128,2,1,c3,129,2,1,b3,130,2,1,a3,131,2,1,g2);
+righthand;
+ add_noteheads(d5);
+ beam(128,2,1,c5,129,2,1,d5,130,2,1,c5,131,2,1,d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f2);
+righthand;
+ add_noteheads(d5);
+ add_dot(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e2);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f2);
+end_of_char;
+new_char(8);
+lefthand;
+ add_noteheads(g2);
+ beam(132,2,1,f2,133,2,1,e2,134,2,1,f2,135,2,1,g2);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(8);
+righthand;
+ add_noteheads(d5);
+ beam(132,1,1,d5,135,3,1,c5,136,3,1,d5);
+end_of_char;
+new_char(-least_spaced);
+lefthand;
+ barline_(10);
+righthand;
+ barline_(10);
+end_of_char;
+end_of_block;
+make_line(next_char); showstats; end.
diff --git a/macros/texmuse/Samples/tex/cminor4.mf b/macros/texmuse/Samples/tex/cminor4.mf
new file mode 100644
index 0000000000..f058fd6522
--- /dev/null
+++ b/macros/texmuse/Samples/tex/cminor4.mf
@@ -0,0 +1,236 @@
+mode_setup;
+input txmfont;
+input texmuse;
+instr_no(2);
+key_ := -3;
+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(c2);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b3);
+ add_natural(b3);
+ beam(1,1,1,c2,3,2,1,c3,4,2,1,b3);
+righthand;
+ add_noteheads(d5);
+ beam(1,2,1,e5,2,2,1,d5,3,2,1,c5,4,2,1,d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+righthand;
+ add_noteheads(g5);
+ beam(5,2,1,e5,6,2,1,f5,7,1,1,g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g2);
+ beam(5,2,1,c3,6,2,1,d3,7,2,1,e3,8,2,1,g2);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a3);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b3);
+ add_flat(b3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a3);
+righthand;
+ add_noteheads(f5);
+ beam(9,1,1,g5,11,1,1,f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f2);
+ beam(9,2,1,a3,10,2,1,b3,11,2,1,a3,12,2,1,f2);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_rest(1,0);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+righthand;
+ add_noteheads(f5);
+ regular_stem;
+ add_flag(1);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+ beam(13,2,1,f3,14,2,1,e3,15,2,1,d3,16,2,1,c3);
+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(b3);
+ add_natural(b3);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(e5);
+ beam(18,1,1,f5,20,1,1,e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ beam(18,2,1,b3,19,2,1,a4,20,2,1,g3,21,2,1,f3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+righthand;
+ add_noteheads(a6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b3);
+ beam(22,2,1,e3,23,2,1,d3,24,2,1,c3,25,2,1,b3);
+righthand;
+ add_noteheads(g5);
+ beam(22,2,1,g5,23,2,1,f5,24,2,1,a6,25,2,1,g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+righthand;
+ add_noteheads(g5);
+ add_dot(g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g2);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f2);
+ beam(26,2,1,c3,27,2,1,g2,28,2,1,a3,29,2,1,f2);
+righthand;
+ add_noteheads(a6);
+ beam(26,1,1,g5,29,2,1,a6);
+end_of_char;
+new_char(32);
+lefthand;
+ add_noteheads(g2);
+righthand;
+ add_noteheads(d5);
+ add_dot(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g2);
+ beam(30,1,1,g2,31,1,1,g2);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c5);
+ beam(30,1,1,d5,32,2,1,c5);
+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(c2);
+righthand;
+ add_wholeheads(c5);
+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.
diff --git a/macros/texmuse/Samples/tex/dmajor.dvi b/macros/texmuse/Samples/tex/dmajor.dvi
new file mode 100644
index 0000000000..9a7213d748
--- /dev/null
+++ b/macros/texmuse/Samples/tex/dmajor.dvi
Binary files differ
diff --git a/macros/texmuse/Samples/tex/dmajor.tex b/macros/texmuse/Samples/tex/dmajor.tex
new file mode 100644
index 0000000000..a48a8b63c6
--- /dev/null
+++ b/macros/texmuse/Samples/tex/dmajor.tex
@@ -0,0 +1,57 @@
+%dtc\mandate
+\documentclass[draft]{article}
+\input texmuse.tex
+\begin{document}
+\makeatletter
+\newinstrument{righthand}
+\newinstrument[\bassclef]{lefthand}
+\parindent0pt
+\FontSplit170
+
+\title{Invention in D}
+\author{J. S. Bach}
+\maketitle
+\thispagestyle{empty}
+\begin{figure}[b]
+\flushright\small Typeset by \TeXmuse
+\end{figure}
+\begin{texmuse}
+\meter38
+\righthand{\rangefrom{D4}3[DE]|[FEGFED] [AGFEFD] 4[AB3CD+] [4CA3CD+]
+ \rangefrom{G4}3[ECFDCB] [ECDBA\#G] [ECFDCB] [ECDBA\#G]
+ [CBDCBA] 4[F\#GA=] 3[AB]4[B.3A] 5A4R
+ 4R[EA+=] [3A+BC\#DEF] [G+FA+G+FE] 4[B+B]R
+ 4R[F-B=] 3[B\#ABCDE] [FEG+FED] [EDFEDC]
+ [DCEDCB] 4[C\#AB=] [3BC4C.3B] [BF-\#G\#ABC]
+ [DCEDCB] 5G+.= G+.= 3[G+E-F-\#GAB]
+ [CBDCBA] 5F.= F.= 3[FBEDCB]
+ [CBDCBA] 4[\#GE-3AB] [CBDCBA] [4F.3\#GAG]
+ [AD4B.3A] [4A.3CDE] 4[F-GA] [BCD=]
+ 3[DCEDCD] [EDCBAG] [F-E-GF-E-D-] [AGF-E-F-D-]
+ 4[AB3CD] 4[CAD] [DD-D] [DD-D]
+ [DD-D] [DD-3DE] [FEG+FED] [4B+CD=]
+ 3[DE4E.3D] 4[DD-G=] [3GA-B-C-D-E-] [F-E-GF-E-D-]
+ [4B.3C-D-C-] [D-G4E-.3D-] 5D-
+}
+\lefthand{\rangefrom{D3}4R|5R4R RR3[DE] [FEGFED] [AGFEFD]
+ 4[AA-A] [AA-A] [AA-A] [AA-A]
+ [ABC] 3[D+CE+D+CB] [CD+]4[E+E] [3AEF\#GAB]
+ [CBD+CBA] 4[E+E]R R[BE+=] [3E+F\#G\#ABC]
+ \trebleclef\rangefrom{C4}3[DCEDCB-] 4[FF-F] [D3B\#A4B] [C3\#A\#G4A]
+ 3[B\nA\nGFED] [EDFEDC] \bassclef[DE4FF-] \rangefrom{B3}[B+FD]
+ 5B4R 3R[BC\#DEF] [GFAGFE] 5A.=
+ A.= [3AA-BCDE] [FEGFED] [4\#G.3EFG]
+ [A\#GFEDF] [EDCBCG-] 4[AFC] 3[DCEDCB]
+ [CD][4EE-] 3[A-CDEFG] [AGB+AGF] [GFAGFE]
+ [FEGFED] 4[AA-]R 5R4R 4RR3[DE]
+ [FEGFED] [AGFEFD] [AFB+GFE] [AFGEDC]
+ [AFB+GFE] [AFGEDC] 4[DEF] [3GFAGFE]
+ [FG4AA-] 3[BA-\nCBA-G-] 5D.= [3DCBA-G-F-]
+ [G-F-A-G-F-E-] [F-G-]5A- 5D-
+}
+\end{texmuse}
+
+\makeatletter
+\music{lefthand,righthand}
+
+\end{document} \ No newline at end of file
diff --git a/macros/texmuse/Samples/tex/dmajor1.mf b/macros/texmuse/Samples/tex/dmajor1.mf
new file mode 100644
index 0000000000..d264b71340
--- /dev/null
+++ b/macros/texmuse/Samples/tex/dmajor1.mf
@@ -0,0 +1,1014 @@
+mode_setup;
+input txmfont;
+input texmuse;
+instr_no(2);
+key_ := 0;
+desired_width := 345.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(16);
+lefthand;
+ add_rest(1,0);
+righthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e4);
+ beam(1,2,1,d4,2,2,1,e4);
+end_of_char;
+new_char(-least_spaced);
+lefthand;
+ barline_(10);
+righthand;
+ barline_(10);
+end_of_char;
+end_of_block;
+new_char(16);
+lefthand;
+ add_rest(0,0);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_rest(1,0);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d4);
+ beam(4,2,1,f4,5,2,1,e4,6,2,1,g4,7,2,1,f4,8,2,1,e4,9,2,1,d4);
+end_of_char;
+new_char(-least_spaced);
+lefthand;
+ barline_(10);
+righthand;
+ barline_(10);
+end_of_char;
+end_of_block;
+new_char(16);
+lefthand;
+ add_rest(1,0);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_rest(1,0);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+ beam(15,2,1,d3,16,2,1,e3);
+righthand;
+ add_noteheads(d4);
+ beam(11,2,1,a5,12,2,1,g4,13,2,1,f4,14,2,1,e4,15,2,1,f4,16,2,1,d4);
+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(f3);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+ beam(18,2,1,f3,19,2,1,e3,20,2,1,g3,21,2,1,f3,22,2,1,e3,23,2,1,d3);
+righthand;
+ add_noteheads(d5);
+ beam(18,1,1,a5,20,1,1,b5,22,2,1,c5,23,2,1,d5);
+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(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+ beam(25,2,1,a4,26,2,1,g3,27,2,1,f3,28,2,1,e3,29,2,1,f3,30,2,1,d3);
+righthand;
+ add_noteheads(d5);
+ beam(25,1,1,c5,27,1,1,a5,29,2,1,c5,30,2,1,d5);
+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(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a3);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+ beam(32,1,1,a4,34,1,1,a3,36,1,1,a4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+ beam(32,2,1,e5,33,2,1,c5,34,2,1,f5,35,2,1,d5,36,2,1,c5,37,2,1,b5);
+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(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a3);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+ beam(39,1,1,a4,41,1,1,a3,43,1,1,a4);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g4);
+ add_sharp(g4);
+ beam(39,2,1,e5,40,2,1,c5,41,2,1,d5,42,2,1,b5,43,2,1,a5,44,2,1,g4);
+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(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a3);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+ beam(46,1,1,a4,48,1,1,a3,50,1,1,a4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+ beam(46,2,1,e5,47,2,1,c5,48,2,1,f5,49,2,1,d5,50,2,1,c5,51,2,1,b5);
+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(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a3);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+ beam(53,1,1,a4,55,1,1,a3,57,1,1,a4);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g4);
+ add_sharp(g4);
+ beam(53,2,1,e5,54,2,1,c5,55,2,1,d5,56,2,1,b5,57,2,1,a5,58,2,1,g4);
+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(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+ beam(60,1,1,a4,62,1,1,b4,64,1,1,c4);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a5);
+ beam(60,2,1,c5,61,2,1,b5,62,2,1,d5,63,2,1,c5,64,2,1,b5,65,2,1,a5);
+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(d4);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+righthand;
+ add_noteheads(g4);
+ add_sharp(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(a5);
+ add_tie(a5);
+ beam(67,1,1,f5,69,1,1,g4,71,1,1,a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+ beam(67,2,1,d4,68,2,1,c4,69,2,1,e4,70,2,1,d4,71,2,1,c4,72,2,1,b4);
+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(c4);
+righthand;
+ close_tie(a5);
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+ beam(74,2,1,c4,75,2,1,d4);
+righthand;
+ add_noteheads(b5);
+ beam(74,2,1,a5,75,2,1,b5);
+end_of_char;
+new_char(32);
+lefthand;
+ add_noteheads(e4);
+righthand;
+ add_noteheads(b5);
+ add_dot(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+ beam(76,1,1,e4,77,1,1,e3);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a5);
+ beam(76,1,1,b5,78,2,1,a5);
+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(a5);
+ regular_stem;
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+ add_sharp(g3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_rest(1,0);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+ beam(80,2,1,a4,81,2,1,e3,82,2,1,f3,83,2,1,g3,84,2,1,a4,85,2,1,b4);
+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(c4);
+righthand;
+ add_rest(1,0);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(a6);
+ add_tie(a6);
+ beam(89,1,1,e5,91,1,1,a6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+ beam(87,2,1,c4,88,2,1,b4,89,2,1,d4,90,2,1,c4,91,2,1,b4,92,2,1,a4);
+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(e4);
+righthand;
+ close_tie(a6);
+ add_noteheads(a6);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+ beam(94,1,1,e4,96,1,1,e3);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+ add_sharp(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_rest(1,0);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+ beam(94,2,1,a6,95,2,1,b5,96,2,1,c5,97,2,1,d5,98,2,1,e5,99,2,1,f5);
+end_of_char;
+new_char(-least_spaced);
+lefthand;
+ barline_(10);
+righthand;
+ barline_(10);
+end_of_char;
+end_of_block;
+new_char(16);
+lefthand;
+ add_rest(1,0);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(a6);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+ add_tie(e4);
+ beam(103,1,1,b4,105,1,1,e4);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e5);
+ beam(101,2,1,g5,102,2,1,f5,103,2,1,a6,104,2,1,g5,105,2,1,f5,106,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;
+ close_tie(e4);
+ add_noteheads(e4);
+righthand;
+ add_noteheads(b6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+ add_sharp(g3);
+righthand;
+ add_noteheads(b5);
+ beam(108,1,1,b6,110,1,1,b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+ add_sharp(a4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_rest(1,0);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+ beam(108,2,1,e4,109,2,1,f3,110,2,1,g3,111,2,1,a4,112,2,1,b4,113,2,1,c4);
+end_of_char;
+new_char(-least_spaced);
+lefthand;
+ clef_(0);
+ barline_(10);
+righthand;
+ barline_(10);
+end_of_char;
+end_of_block;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+righthand;
+ add_rest(1,0);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(b5);
+ add_tie(b5);
+ beam(117,1,1,f4,119,1,1,b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+ beam(115,2,1,d4,116,2,1,c4,117,2,1,e4,118,2,1,d4,119,2,1,c4,120,2,1,b4);
+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(f4);
+righthand;
+ close_tie(b5);
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a5);
+ add_sharp(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+ beam(122,1,1,f4,124,1,1,f3,126,1,1,f4);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e5);
+ beam(122,2,1,b5,123,2,1,a5,124,2,1,b5,125,2,1,c5,126,2,1,d5,127,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(d4);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b5);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a5);
+ add_sharp(a5);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b5);
+ beam(129,1,1,d4,131,2,1,b5,132,2,1,a5,133,1,1,b5);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+ beam(129,2,1,f5,130,2,1,e5,131,2,1,g5,132,2,1,f5,133,2,1,e5,134,2,1,d5);
+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(c4);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a5);
+ add_sharp(a5);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g4);
+ add_sharp(g4);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a5);
+ beam(136,1,1,c4,138,2,1,a5,139,2,1,g4,140,1,1,a5);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c5);
+ beam(136,2,1,e5,137,2,1,d5,138,2,1,f5,139,2,1,e5,140,2,1,d5,141,2,1,c5);
+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(b5);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a5);
+ add_natural(a5);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g4);
+ add_natural(g4);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+ beam(143,2,1,b5,144,2,1,a5,145,2,1,g4,146,2,1,f4,147,2,1,e4,148,2,1,d4);
+righthand;
+ add_noteheads(b5);
+ beam(143,2,1,d5,144,2,1,c5,145,2,1,e5,146,2,1,d5,147,2,1,c5,148,2,1,b5);
+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(e4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+righthand;
+ add_noteheads(a5);
+ add_sharp(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+righthand;
+ add_noteheads(b5);
+ add_tie(b5);
+ beam(150,1,1,c5,152,1,1,a5,154,1,1,b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+ beam(150,2,1,e4,151,2,1,d4,152,2,1,f4,153,2,1,e4,154,2,1,d4,155,2,1,c4);
+end_of_char;
+new_char(-least_spaced);
+lefthand;
+ clef_(6);
+ barline_(10);
+righthand;
+ barline_(10);
+end_of_char;
+end_of_block;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+righthand;
+ close_tie(b5);
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(32);
+lefthand;
+ add_noteheads(f4);
+righthand;
+ add_noteheads(c5);
+ add_dot(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ beam(157,2,1,d4,158,2,1,e4,159,1,1,f4,160,1,1,f3);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+ beam(157,2,1,b5,158,2,1,c5,159,1,1,c5,161,2,1,b5);
+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(b4);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(g4);
+ add_sharp(g4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a5);
+ add_sharp(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+ beam(163,1,1,b4,165,1,1,f3,167,1,1,d3);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c5);
+ beam(163,2,1,b5,164,2,1,f4,165,2,1,g4,166,2,1,a5,167,2,1,b5,168,2,1,c5);
+end_of_char;
+new_char(-least_spaced);
+lefthand;
+ barline_(10);
+righthand;
+ barline_(10);
+end_of_char;
+end_of_block;
+make_line(next_char); showstats; end.
diff --git a/macros/texmuse/Samples/tex/dmajor2.mf b/macros/texmuse/Samples/tex/dmajor2.mf
new file mode 100644
index 0000000000..4e595a0669
--- /dev/null
+++ b/macros/texmuse/Samples/tex/dmajor2.mf
@@ -0,0 +1,983 @@
+mode_setup;
+input txmfont;
+input texmuse;
+instr_no(2);
+key_ := 0;
+desired_width := 345.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(16);
+lefthand;
+ add_noteheads(b3);
+ regular_stem;
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_rest(1,0);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+ beam(1,2,1,d5,2,2,1,c5,3,2,1,e5,4,2,1,d5,5,2,1,c5,6,2,1,b5);
+end_of_char;
+new_char(-least_spaced);
+lefthand;
+ barline_(10);
+righthand;
+ barline_(10);
+end_of_char;
+end_of_block;
+new_char(16);
+lefthand;
+ add_rest(2,0);
+righthand;
+ add_noteheads(g5);
+ regular_stem;
+ add_dot(g5);
+ add_tie(g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+ add_sharp(d3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ beam(9,2,1,b3,10,2,1,c3,11,2,1,d3,12,2,1,e3,13,2,1,f3);
+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(g3);
+righthand;
+ close_tie(g5);
+ add_noteheads(g5);
+ regular_stem;
+ add_dot(g5);
+ add_tie(g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+ beam(15,2,1,g3,16,2,1,f3,17,2,1,a4,18,2,1,g3,19,2,1,f3,20,2,1,e3);
+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);
+ regular_stem;
+ add_dot(a4);
+ add_tie(a4);
+righthand;
+ close_tie(g5);
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g4);
+ add_sharp(g4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+ beam(22,2,1,g5,23,2,1,e4,24,2,1,f4,25,2,1,g4,26,2,1,a5,27,2,1,b5);
+end_of_char;
+new_char(-least_spaced);
+lefthand;
+ barline_(10);
+righthand;
+ barline_(10);
+end_of_char;
+end_of_block;
+new_char(16);
+lefthand;
+ close_tie(a4);
+ add_noteheads(a4);
+ regular_stem;
+ add_dot(a4);
+ add_tie(a4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a5);
+ beam(29,2,1,c5,30,2,1,b5,31,2,1,d5,32,2,1,c5,33,2,1,b5,34,2,1,a5);
+end_of_char;
+new_char(-least_spaced);
+lefthand;
+ barline_(10);
+righthand;
+ barline_(10);
+end_of_char;
+end_of_block;
+new_char(16);
+lefthand;
+ close_tie(a4);
+ add_noteheads(a4);
+righthand;
+ add_noteheads(f5);
+ regular_stem;
+ add_dot(f5);
+ add_tie(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+ beam(36,2,1,a4,37,2,1,a3,38,2,1,b3,39,2,1,c3,40,2,1,d3,41,2,1,e3);
+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(f3);
+righthand;
+ close_tie(f5);
+ add_noteheads(f5);
+ regular_stem;
+ add_dot(f5);
+ add_tie(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+ beam(43,2,1,f3,44,2,1,e3,45,2,1,g3,46,2,1,f3,47,2,1,e3,48,2,1,d3);
+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(g3);
+ add_sharp(g3);
+ add_dot(g3);
+righthand;
+ close_tie(f5);
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+ beam(50,1,1,g3,53,2,1,e3,54,2,1,f3,55,2,1,g3);
+righthand;
+ add_noteheads(b5);
+ beam(50,2,1,f5,51,2,1,b5,52,2,1,e5,53,2,1,d5,54,2,1,c5,55,2,1,b5);
+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(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+ add_sharp(g3);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ beam(57,2,1,a4,58,2,1,g3,59,2,1,f3,60,2,1,e3,61,2,1,d3,62,2,1,f3);
+righthand;
+ add_noteheads(a5);
+ beam(57,2,1,c5,58,2,1,b5,59,2,1,d5,60,2,1,c5,61,2,1,b5,62,2,1,a5);
+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(e3);
+righthand;
+ add_noteheads(g4);
+ add_sharp(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g2);
+ beam(64,2,1,e3,65,2,1,d3,66,2,1,c3,67,2,1,b3,68,2,1,c3,69,2,1,g2);
+righthand;
+ add_noteheads(b5);
+ beam(64,1,1,g4,66,1,1,e4,68,2,1,a5,69,2,1,b5);
+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(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+ beam(71,1,1,a4,73,1,1,f3,75,1,1,c3);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a5);
+ beam(71,2,1,c5,72,2,1,b5,73,2,1,d5,74,2,1,c5,75,2,1,b5,76,2,1,a5);
+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(d3);
+righthand;
+ add_noteheads(f5);
+ add_dot(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+righthand;
+ add_noteheads(g4);
+ add_sharp(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b3);
+ beam(78,2,1,d3,79,2,1,c3,80,2,1,e3,81,2,1,d3,82,2,1,c3,83,2,1,b3);
+righthand;
+ add_noteheads(g4);
+ beam(78,1,1,f5,81,2,1,g4,82,2,1,a5,83,2,1,g4);
+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(c3);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+ beam(85,2,1,c3,86,2,1,d3);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(32);
+lefthand;
+ add_noteheads(e3);
+righthand;
+ add_noteheads(b5);
+ add_dot(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e2);
+ beam(87,1,1,e3,88,1,1,e2);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a5);
+ beam(85,2,1,a5,86,2,1,d5,87,1,1,b5,89,2,1,a5);
+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(a3);
+righthand;
+ add_noteheads(a5);
+ add_dot(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+ beam(91,2,1,a3,92,2,1,c3,93,2,1,d3,94,2,1,e3,95,2,1,f3,96,2,1,g3);
+righthand;
+ add_noteheads(e5);
+ beam(91,1,1,a5,94,2,1,c5,95,2,1,d5,96,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(16);
+lefthand;
+ add_noteheads(g3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(a5);
+ beam(98,1,1,f4,100,1,1,g4,102,1,1,a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ beam(98,2,1,a4,99,2,1,g3,100,2,1,b4,101,2,1,a4,102,2,1,g3,103,2,1,f3);
+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(g3);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(d5);
+ add_tie(d5);
+ beam(105,1,1,b5,107,1,1,c5,109,1,1,d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+ beam(105,2,1,g3,106,2,1,f3,107,2,1,a4,108,2,1,g3,109,2,1,f3,110,2,1,e3);
+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(f3);
+righthand;
+ close_tie(d5);
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+ beam(112,2,1,f3,113,2,1,e3,114,2,1,g3,115,2,1,f3,116,2,1,e3,117,2,1,d3);
+righthand;
+ add_noteheads(d5);
+ beam(112,2,1,d5,113,2,1,c5,114,2,1,e5,115,2,1,d5,116,2,1,c5,117,2,1,d5);
+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(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a3);
+ beam(119,1,1,a4,121,1,1,a3);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_rest(1,0);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g4);
+ beam(119,2,1,e5,120,2,1,d5,121,2,1,c5,122,2,1,b5,123,2,1,a5,124,2,1,g4);
+end_of_char;
+new_char(-least_spaced);
+lefthand;
+ barline_(10);
+righthand;
+ barline_(10);
+end_of_char;
+end_of_block;
+new_char(16);
+lefthand;
+ add_rest(0,0);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_rest(1,0);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d4);
+ beam(126,2,1,f4,127,2,1,e4,128,2,1,g4,129,2,1,f4,130,2,1,e4,131,2,1,d4);
+end_of_char;
+new_char(-least_spaced);
+lefthand;
+ barline_(10);
+righthand;
+ barline_(10);
+end_of_char;
+end_of_block;
+new_char(16);
+lefthand;
+ add_rest(1,0);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_rest(1,0);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+ beam(137,2,1,d3,138,2,1,e3);
+righthand;
+ add_noteheads(d4);
+ beam(133,2,1,a5,134,2,1,g4,135,2,1,f4,136,2,1,e4,137,2,1,f4,138,2,1,d4);
+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(f3);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+ beam(140,2,1,f3,141,2,1,e3,142,2,1,g3,143,2,1,f3,144,2,1,e3,145,2,1,d3);
+righthand;
+ add_noteheads(d5);
+ beam(140,1,1,a5,142,1,1,b5,144,2,1,c5,145,2,1,d5);
+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(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(d5);
+ beam(147,1,1,c5,149,1,1,a5,151,1,1,d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+ beam(147,2,1,a4,148,2,1,g3,149,2,1,f3,150,2,1,e3,151,2,1,f3,152,2,1,d3);
+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(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(d5);
+ beam(154,1,1,d5,156,1,1,d4,158,1,1,d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+ beam(154,2,1,a4,155,2,1,f3,156,2,1,b4,157,2,1,g3,158,2,1,f3,159,2,1,e3);
+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(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+righthand;
+ add_noteheads(d5);
+ beam(161,1,1,d5,163,1,1,d4,165,1,1,d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+ beam(161,2,1,a4,162,2,1,f3,163,2,1,g3,164,2,1,e3,165,2,1,d3,166,2,1,c3);
+end_of_char;
+new_char(-least_spaced);
+lefthand;
+ barline_(10);
+righthand;
+ barline_(10);
+end_of_char;
+end_of_block;
+make_line(next_char); showstats; end.
diff --git a/macros/texmuse/Samples/tex/dmajor3.mf b/macros/texmuse/Samples/tex/dmajor3.mf
new file mode 100644
index 0000000000..779b41bdca
--- /dev/null
+++ b/macros/texmuse/Samples/tex/dmajor3.mf
@@ -0,0 +1,436 @@
+mode_setup;
+input txmfont;
+input texmuse;
+instr_no(2);
+key_ := 0;
+desired_width := 345.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(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(d5);
+ beam(1,1,1,d5,3,1,1,d4,5,1,1,d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+ beam(1,2,1,a4,2,2,1,f3,3,2,1,b4,4,2,1,g3,5,2,1,f3,6,2,1,e3);
+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(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+ beam(8,2,1,a4,9,2,1,f3,10,2,1,g3,11,2,1,e3,12,2,1,d3,13,2,1,c3);
+righthand;
+ add_noteheads(e5);
+ beam(8,1,1,d5,10,1,1,d4,12,2,1,d5,13,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(d3);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ beam(15,1,1,d3,17,1,1,e3,19,1,1,f3);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+ beam(15,2,1,f5,16,2,1,e5,17,2,1,g5,18,2,1,f5,19,2,1,e5,20,2,1,d5);
+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(g3);
+righthand;
+ add_noteheads(b6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(d5);
+ add_tie(d5);
+ beam(22,1,1,b6,24,1,1,c5,26,1,1,d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+ beam(22,2,1,g3,23,2,1,f3,24,2,1,a4,25,2,1,g3,26,2,1,f3,27,2,1,e3);
+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(f3);
+righthand;
+ close_tie(d5);
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(32);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(e5);
+ add_dot(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a3);
+ beam(29,2,1,f3,30,2,1,g3,31,1,1,a4,32,1,1,a3);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+ beam(29,2,1,d5,30,2,1,e5,31,1,1,e5,33,2,1,d5);
+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(b3);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+ add_natural(c3);
+righthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a3);
+righthand;
+ add_noteheads(g4);
+ add_tie(g4);
+ beam(35,1,1,d5,37,1,1,d4,39,1,1,g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g2);
+ beam(35,2,1,b3,36,2,1,a3,37,2,1,c3,38,2,1,b3,39,2,1,a3,40,2,1,g2);
+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(d3);
+ regular_stem;
+ add_dot(d3);
+ add_tie(d3);
+righthand;
+ close_tie(g4);
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e4);
+ beam(42,2,1,g4,43,2,1,a4,44,2,1,b4,45,2,1,c4,46,2,1,d4,47,2,1,e4);
+end_of_char;
+new_char(-least_spaced);
+lefthand;
+ barline_(10);
+righthand;
+ barline_(10);
+end_of_char;
+end_of_block;
+new_char(16);
+lefthand;
+ close_tie(d3);
+ add_noteheads(d3);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b3);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a3);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g2);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f2);
+ beam(49,2,1,d3,50,2,1,c3,51,2,1,b3,52,2,1,a3,53,2,1,g2,54,2,1,f2);
+righthand;
+ add_noteheads(d4);
+ beam(49,2,1,f4,50,2,1,e4,51,2,1,g4,52,2,1,f4,53,2,1,e4,54,2,1,d4);
+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(g2);
+righthand;
+ add_noteheads(b5);
+ add_dot(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f2);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g2);
+righthand;
+ add_noteheads(c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f2);
+righthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e2);
+ beam(56,2,1,g2,57,2,1,f2,58,2,1,a3,59,2,1,g2,60,2,1,f2,61,2,1,e2);
+righthand;
+ add_noteheads(c4);
+ beam(56,1,1,b5,59,2,1,c4,60,2,1,d4,61,2,1,c4);
+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(f2);
+righthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g2);
+ beam(63,2,1,f2,64,2,1,g2);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(48);
+lefthand;
+ add_noteheads(a3);
+ regular_stem;
+righthand;
+ add_noteheads(e4);
+ add_dot(e4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d4);
+ beam(63,2,1,d4,64,2,1,g4,65,1,1,e4,66,2,1,d4);
+end_of_char;
+new_char(-least_spaced);
+lefthand;
+ barline_(10);
+righthand;
+ barline_(10);
+end_of_char;
+end_of_block;
+new_char(96);
+lefthand;
+ add_noteheads(d2);
+ regular_stem;
+righthand;
+ add_noteheads(d4);
+ 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);
+showstats; end.
diff --git a/macros/texmuse/Samples/tex/dmajor4.mf b/macros/texmuse/Samples/tex/dmajor4.mf
new file mode 100644
index 0000000000..ded238a548
--- /dev/null
+++ b/macros/texmuse/Samples/tex/dmajor4.mf
@@ -0,0 +1,27 @@
+mode_setup;
+input txmfont;
+input texmuse;
+instr_no(1);
+staff_1="-1,0,1,2,3";
+bar_type11=10;
+key_ := 0;
+desired_width := 345.0pt/pt;
+instr_clef1:= 0;
+def righthand =
+ curr_instr:="righthand;";
+ note_[index][instr_]:=currentpicture;
+ instr_:=1;
+ currentpicture:=note_[index][instr_];
+ enddef;
+new_char(96);
+righthand;
+ add_noteheads(f5);
+ regular_stem;
+ add_dot(f5);
+ add_tie(f5);
+end_of_char;
+new_char(-least_spaced);
+righthand;
+ barline_(10);
+end_of_char;
+end_of_block;
diff --git a/macros/texmuse/Samples/tex/dminor.dvi b/macros/texmuse/Samples/tex/dminor.dvi
new file mode 100644
index 0000000000..e56ba7be3f
--- /dev/null
+++ b/macros/texmuse/Samples/tex/dminor.dvi
Binary files differ
diff --git a/macros/texmuse/Samples/tex/dminor.tex b/macros/texmuse/Samples/tex/dminor.tex
new file mode 100644
index 0000000000..a0cc953edb
--- /dev/null
+++ b/macros/texmuse/Samples/tex/dminor.tex
@@ -0,0 +1,54 @@
+%dtc\medici
+\documentclass[draft]{cfart}
+\input texmuse.tex
+\begin{document}
+\makeatletter
+\newinstrument{righthand}
+\newinstrument[\bassclef]{lefthand}
+\parindent0pt
+\FontSplit170
+
+\title{Invention in d}
+\author{J. S. Bach}
+\maketitle
+\thispagestyle{empty}
+\begin{figure}[b]
+\flushright\small Typeset by \TeXmuse
+\end{figure}
+\begin{texmuse}
+\meter38\key{-1}
+\righthand{\rangefrom{C4}
+ 3[DEFGAB] [\#CBAGFE] 4[FAD+] [G\#C+E+]
+ \rangefrom{C5}3[DEFGAB] [\#CBAGFE] [FDEFGA] [B-AGFED]
+ [ECDEFG] [A-GFEDC] [DEFDEF] 4G-RR
+ 3[CDECDE] \rangefrom{F4}4FRB= [BAG] 3[CBAGFE-]
+ [FG4G.3F] 4[FCC] 5C.= C.=
+ C.= 3[CBAGFE-] [CD-E-\#FGA] [BAG\nFE-D-]
+ [BC-D-E-FG] [A\nBCDEF+] [\#GF+EDC\nB] [C\nBDCBA]
+ [\#GAG\#FE-D-] [C-D-E-\#F\#GA] [D-C\nBA\#G\#F] [E-\#F\#GA\nBC]
+ [\#FEDC\nBA] [\#GA\nBCDE] [AF+EDC\nB] [A+\#G+\#F+E4A+=]
+ [3A+D4\nB.3A] [4A.3A\bBC] 4[D-\#FA] 3[BGABCD]
+ [E-DCBAG] 4[A3F+E4F+] [GE]R \rangefrom{C5}3[DEFGAB]
+ [\#CBAGFE] 4[FDG-=] [3G-D\#CEA-C] [D\nB-4\#C.3D]
+ \rangefrom{C4}[D+\nC+\bBAGF] [B\#CDEFG] [AD+4F3ED] 5D.
+}
+\lefthand{\rangefrom{C3}
+ 5R4R 5R4R 3[DEFGAB] [\#CBAGFE]
+ 4[FAD+] [G\#C+E+] [DD+F] [GAB]
+ [C-CE] [FEG] 3[BGABC+D+] [ED+C+BAG]
+ [AFGABC+] [DC+BAGF] [ECDEFG] [A-GFEDC]
+ [DB-4CC-] \rangefrom{F2}3[FGABCD] [E-DCBAG] [ABCDEF+]
+ [GFEDCB] [ABCABC] 4\#FRR 3[GABGAB]
+ 4E-RR [FF+D] [\nB\#GE-] [3A\#GA\nBCD]
+ 5E.= E.= E.= E.=
+ E.= 4\rangefrom{E3}[EE+D] [C\nBA] [DE+\nF+]
+ [DE+E] \rangefrom{A3}3[A+A\bBCD\bE] [\#F-\bEDCBA] [4G-.3G-AB]
+ 4[C-G-C] \rangefrom{E3}3[FGA\nB\#CD] [ED\#C\nBAG] 4[FAD]
+ [EG\#C] 3[D-EFGAB] [\#C-BAGFE] [FG4AA-]
+ [B-.3C-B-A-] [G-BAGFE] [FG4AA-] 5D-.
+}
+\end{texmuse}
+
+\music{lefthand,righthand}
+
+\end{document} \ No newline at end of file
diff --git a/macros/texmuse/Samples/tex/dminor1.mf b/macros/texmuse/Samples/tex/dminor1.mf
new file mode 100644
index 0000000000..60e5190a18
--- /dev/null
+++ b/macros/texmuse/Samples/tex/dminor1.mf
@@ -0,0 +1,994 @@
+mode_setup;
+input txmfont;
+input texmuse;
+instr_no(2);
+key_ := -1;
+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_rest(0,0);
+righthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_rest(1,0);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+ beam(1,2,1,d4,2,2,1,e4,3,2,1,f4,4,2,1,g4,5,2,1,a5,6,2,1,b5);
+end_of_char;
+new_char(-least_spaced);
+lefthand;
+ barline_(10);
+righthand;
+ barline_(10);
+end_of_char;
+end_of_block;
+new_char(16);
+lefthand;
+ add_rest(0,0);
+righthand;
+ add_noteheads(c4);
+ add_sharp(c4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_rest(1,0);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e4);
+ beam(8,2,1,c4,9,2,1,b5,10,2,1,a5,11,2,1,g4,12,2,1,f4,13,2,1,e4);
+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(d3);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(d5);
+ beam(15,1,1,f4,17,1,1,a5,19,1,1,d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+ beam(15,2,1,d3,16,2,1,e3,17,2,1,f3,18,2,1,g3,19,2,1,a4,20,2,1,b4);
+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(c3);
+ add_sharp(c3);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(c5);
+ add_sharp(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(e5);
+ beam(22,1,1,g4,24,1,1,c5,26,1,1,e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+ beam(22,2,1,c3,23,2,1,b4,24,2,1,a4,25,2,1,g3,26,2,1,f3,27,2,1,e3);
+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(f3);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+ beam(29,1,1,f3,31,1,1,a4,33,1,1,d4);
+righthand;
+ add_noteheads(a6);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b6);
+ beam(29,2,1,d5,30,2,1,e5,31,2,1,f5,32,2,1,g5,33,2,1,a6,34,2,1,b6);
+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(g3);
+righthand;
+ add_noteheads(c5);
+ add_sharp(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+ add_sharp(c4);
+righthand;
+ add_noteheads(a6);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+ beam(36,1,1,g3,38,1,1,c4,40,1,1,e4);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e5);
+ beam(36,2,1,c5,37,2,1,b6,38,2,1,a6,39,2,1,g5,40,2,1,f5,41,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(d3);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ beam(43,1,1,d3,45,1,1,d4,47,1,1,f3);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a6);
+ beam(43,2,1,f5,44,2,1,d5,45,2,1,e5,46,2,1,f5,47,2,1,g5,48,2,1,a6);
+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(g3);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+ beam(50,1,1,g3,52,1,1,a4,54,1,1,b4);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+ beam(50,2,1,b5,51,2,1,a6,52,2,1,g5,53,2,1,f5,54,2,1,e5,55,2,1,d5);
+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(c2);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+ beam(57,1,1,c2,59,1,1,c3,61,1,1,e3);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g5);
+ beam(57,2,1,e5,58,2,1,c5,59,2,1,d5,60,2,1,e5,61,2,1,f5,62,2,1,g5);
+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(f3);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+ beam(64,1,1,f3,66,1,1,e3,68,1,1,g3);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c5);
+ beam(64,2,1,a5,65,2,1,g5,66,2,1,f5,67,2,1,e5,68,2,1,d5,69,2,1,c5);
+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(b4);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+ beam(71,2,1,b4,72,2,1,g3,73,2,1,a4,74,2,1,b4,75,2,1,c4,76,2,1,d4);
+righthand;
+ add_noteheads(f5);
+ beam(71,2,1,d5,72,2,1,e5,73,2,1,f5,74,2,1,d5,75,2,1,e5,76,2,1,f5);
+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(e3);
+righthand;
+ add_noteheads(g4);
+ regular_stem;
+ add_flag(1);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_rest(1,0);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_rest(1,0);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+ beam(78,2,1,e3,79,2,1,d4,80,2,1,c4,81,2,1,b4,82,2,1,a4,83,2,1,g3);
+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(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+ beam(85,2,1,a4,86,2,1,f3,87,2,1,g3,88,2,1,a4,89,2,1,b4,90,2,1,c4);
+righthand;
+ add_noteheads(e5);
+ beam(85,2,1,c5,86,2,1,d5,87,2,1,e5,88,2,1,c5,89,2,1,d5,90,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(d3);
+righthand;
+ add_noteheads(f4);
+ regular_stem;
+ add_flag(1);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_rest(1,0);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(b5);
+ regular_stem;
+ add_flag(1);
+ add_tie(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ beam(92,2,1,d3,93,2,1,c4,94,2,1,b4,95,2,1,a4,96,2,1,g3,97,2,1,f3);
+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(e3);
+righthand;
+ close_tie(b5);
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(g4);
+ beam(99,1,1,b5,101,1,1,a5,103,1,1,g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+ beam(99,2,1,e3,100,2,1,c3,101,2,1,d3,102,2,1,e3,103,2,1,f3,104,2,1,g3);
+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(a3);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+ beam(106,2,1,a3,107,2,1,g3,108,2,1,f3,109,2,1,e3,110,2,1,d3,111,2,1,c3);
+righthand;
+ add_noteheads(e4);
+ beam(106,2,1,c5,107,2,1,b5,108,2,1,a5,109,2,1,g4,110,2,1,f4,111,2,1,e4);
+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(d3);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b3);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(32);
+lefthand;
+ add_noteheads(c3);
+righthand;
+ add_noteheads(g4);
+ add_dot(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c2);
+ beam(113,2,1,d3,114,2,1,b3,115,1,1,c3,116,1,1,c2);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f4);
+ beam(113,2,1,f4,114,2,1,g4,115,1,1,g4,117,2,1,f4);
+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(f2);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g2);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a3);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+righthand;
+ add_noteheads(c5);
+ beam(119,1,1,f4,121,1,1,c5,123,1,1,c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+ beam(119,2,1,f2,120,2,1,g2,121,2,1,a3,122,2,1,b3,123,2,1,c3,124,2,1,d3);
+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(e2);
+righthand;
+ add_noteheads(c5);
+ regular_stem;
+ add_dot(c5);
+ add_tie(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g2);
+ beam(126,2,1,e2,127,2,1,d3,128,2,1,c3,129,2,1,b3,130,2,1,a3,131,2,1,g2);
+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(a3);
+righthand;
+ close_tie(c5);
+ add_noteheads(c5);
+ regular_stem;
+ add_dot(c5);
+ add_tie(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ beam(133,2,1,a3,134,2,1,b3,135,2,1,c3,136,2,1,d3,137,2,1,e3,138,2,1,f3);
+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(g2);
+righthand;
+ close_tie(c5);
+ add_noteheads(c5);
+ regular_stem;
+ add_dot(c5);
+ add_tie(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f2);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b3);
+ beam(140,2,1,g2,141,2,1,f2,142,2,1,e3,143,2,1,d3,144,2,1,c3,145,2,1,b3);
+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(a3);
+righthand;
+ close_tie(c5);
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b3);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a3);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b3);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+ beam(147,2,1,a3,148,2,1,b3,149,2,1,c3,150,2,1,a3,151,2,1,b3,152,2,1,c3);
+righthand;
+ add_noteheads(e4);
+ beam(147,2,1,c5,148,2,1,b5,149,2,1,a5,150,2,1,g4,151,2,1,f4,152,2,1,e4);
+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(f2);
+ add_sharp(f2);
+ regular_stem;
+ add_flag(1);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_rest(1,0);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f4);
+ add_sharp(f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_rest(1,0);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a5);
+ beam(154,2,1,c5,155,2,1,d4,156,2,1,e4,157,2,1,f4,158,2,1,g4,159,2,1,a5);
+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(g2);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a3);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b3);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g2);
+righthand;
+ add_noteheads(f4);
+ add_natural(f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a3);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b3);
+ beam(161,2,1,g2,162,2,1,a3,163,2,1,b3,164,2,1,g2,165,2,1,a3,166,2,1,b3);
+righthand;
+ add_noteheads(d4);
+ beam(161,2,1,b5,162,2,1,a5,163,2,1,g4,164,2,1,f4,165,2,1,e4,166,2,1,d4);
+end_of_char;
+new_char(-least_spaced);
+lefthand;
+ barline_(10);
+righthand;
+ barline_(10);
+end_of_char;
+end_of_block;
+make_line(next_char); showstats; end.
diff --git a/macros/texmuse/Samples/tex/dminor2.mf b/macros/texmuse/Samples/tex/dminor2.mf
new file mode 100644
index 0000000000..9646c278b6
--- /dev/null
+++ b/macros/texmuse/Samples/tex/dminor2.mf
@@ -0,0 +1,1013 @@
+mode_setup;
+input txmfont;
+input texmuse;
+instr_no(2);
+key_ := -1;
+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(e2);
+ regular_stem;
+ add_flag(1);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_rest(1,0);
+righthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_rest(1,0);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g4);
+ beam(1,2,1,b5,2,2,1,c4,3,2,1,d4,4,2,1,e4,5,2,1,f4,6,2,1,g4);
+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(f2);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+ add_natural(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+ beam(8,1,1,f2,10,1,1,f3,12,1,1,d3);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+ beam(8,2,1,a5,9,2,1,b5,10,2,1,c5,11,2,1,d5,12,2,1,e5,13,2,1,f5);
+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(b3);
+ add_natural(b3);
+righthand;
+ add_noteheads(g4);
+ add_sharp(g4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g2);
+ add_sharp(g2);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e2);
+ beam(15,1,1,b3,17,1,1,g2,19,1,1,e2);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+ add_natural(b5);
+ beam(15,2,1,g4,16,2,1,f5,17,2,1,e5,18,2,1,d5,19,2,1,c5,20,2,1,b5);
+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(a3);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g2);
+ add_sharp(g2);
+righthand;
+ add_noteheads(b5);
+ add_natural(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a3);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b3);
+ add_natural(b3);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+ beam(22,2,1,a3,23,2,1,g2,24,2,1,a3,25,2,1,b3,26,2,1,c3,27,2,1,d3);
+righthand;
+ add_noteheads(a5);
+ beam(22,2,1,c5,23,2,1,b5,24,2,1,d5,25,2,1,c5,26,2,1,b5,27,2,1,a5);
+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(e3);
+ regular_stem;
+ add_dot(e3);
+ add_tie(e3);
+righthand;
+ add_noteheads(g4);
+ add_sharp(g4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f4);
+ add_sharp(f4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d4);
+ beam(29,2,1,g4,30,2,1,a5,31,2,1,g4,32,2,1,f4,33,2,1,e4,34,2,1,d4);
+end_of_char;
+new_char(-least_spaced);
+lefthand;
+ barline_(10);
+righthand;
+ barline_(10);
+end_of_char;
+end_of_block;
+new_char(16);
+lefthand;
+ close_tie(e3);
+ add_noteheads(e3);
+ regular_stem;
+ add_dot(e3);
+ add_tie(e3);
+righthand;
+ add_noteheads(c4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f4);
+ add_sharp(f4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g4);
+ add_sharp(g4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a5);
+ beam(36,2,1,c4,37,2,1,d4,38,2,1,e4,39,2,1,f4,40,2,1,g4,41,2,1,a5);
+end_of_char;
+new_char(-least_spaced);
+lefthand;
+ barline_(10);
+righthand;
+ barline_(10);
+end_of_char;
+end_of_block;
+new_char(16);
+lefthand;
+ close_tie(e3);
+ add_noteheads(e3);
+ regular_stem;
+ add_dot(e3);
+ add_tie(e3);
+righthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+ add_natural(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g4);
+ add_sharp(g4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f4);
+ add_sharp(f4);
+ beam(43,2,1,d4,44,2,1,c5,45,2,1,b5,46,2,1,a5,47,2,1,g4,48,2,1,f4);
+end_of_char;
+new_char(-least_spaced);
+lefthand;
+ barline_(10);
+righthand;
+ barline_(10);
+end_of_char;
+end_of_block;
+new_char(16);
+lefthand;
+ close_tie(e3);
+ add_noteheads(e3);
+ regular_stem;
+ add_dot(e3);
+ add_tie(e3);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f4);
+ add_sharp(f4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g4);
+ add_sharp(g4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+ add_natural(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c5);
+ beam(50,2,1,e4,51,2,1,f4,52,2,1,g4,53,2,1,a5,54,2,1,b5,55,2,1,c5);
+end_of_char;
+new_char(-least_spaced);
+lefthand;
+ barline_(10);
+righthand;
+ barline_(10);
+end_of_char;
+end_of_block;
+new_char(16);
+lefthand;
+ close_tie(e3);
+ add_noteheads(e3);
+ regular_stem;
+ add_dot(e3);
+ add_tie(e3);
+righthand;
+ add_noteheads(f4);
+ add_sharp(f4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+ add_natural(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a5);
+ beam(57,2,1,f4,58,2,1,e5,59,2,1,d5,60,2,1,c5,61,2,1,b5,62,2,1,a5);
+end_of_char;
+new_char(-least_spaced);
+lefthand;
+ barline_(10);
+righthand;
+ barline_(10);
+end_of_char;
+end_of_block;
+new_char(16);
+lefthand;
+ close_tie(e3);
+ add_noteheads(e3);
+righthand;
+ add_noteheads(g4);
+ add_sharp(g4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+righthand;
+ add_noteheads(b5);
+ add_natural(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+ beam(64,1,1,e3,66,1,1,e4,68,1,1,d4);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e5);
+ beam(64,2,1,g4,65,2,1,a5,66,2,1,b5,67,2,1,c5,68,2,1,d5,69,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(c4);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+ add_natural(b4);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+ beam(71,1,1,c4,73,1,1,b4,75,1,1,a4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+ add_natural(b5);
+ beam(71,2,1,a5,72,2,1,f5,73,2,1,e5,74,2,1,d5,75,2,1,c5,76,2,1,b5);
+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(d4);
+righthand;
+ add_noteheads(a6);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g5);
+ add_sharp(g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+righthand;
+ add_noteheads(f5);
+ add_sharp(f5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(32);
+lefthand;
+ add_noteheads(f4);
+ add_natural(f4);
+ beam(78,1,1,d4,80,1,1,e4,82,1,1,f4);
+righthand;
+ add_noteheads(a6);
+ add_tie(a6);
+ beam(78,2,1,a6,79,2,1,g5,80,2,1,f5,81,2,1,e5,82,1,1,a6);
+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(d4);
+righthand;
+ close_tie(a6);
+ add_noteheads(a6);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(32);
+lefthand;
+ add_noteheads(e4);
+righthand;
+ add_noteheads(b5);
+ add_natural(b5);
+ add_dot(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+ beam(84,1,1,d4,86,1,1,e4,87,1,1,e3);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a5);
+ beam(84,2,1,a6,85,2,1,d5,86,1,1,b5,88,2,1,a5);
+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(a5);
+ add_dot(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b3);
+ add_flat(b3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+righthand;
+ add_noteheads(b5);
+ add_flat(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+ add_flat(e3);
+ beam(90,2,1,a4,91,2,1,a3,92,2,1,b3,93,2,1,c3,94,2,1,d3,95,2,1,e3);
+righthand;
+ add_noteheads(c5);
+ beam(90,1,1,a5,93,2,1,a5,94,2,1,b5,95,2,1,c5);
+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(f2);
+ add_sharp(f2);
+righthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+ add_flat(e3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+righthand;
+ add_noteheads(f4);
+ add_sharp(f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b3);
+righthand;
+ add_noteheads(a5);
+ beam(97,1,1,d4,99,1,1,f4,101,1,1,a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a3);
+ beam(97,2,1,f2,98,2,1,e3,99,2,1,d3,100,2,1,c3,101,2,1,b3,102,2,1,a3);
+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(g2);
+ add_dot(g2);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g2);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a3);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b3);
+ beam(104,1,1,g2,107,2,1,g2,108,2,1,a3,109,2,1,b3);
+righthand;
+ add_noteheads(d5);
+ beam(104,2,1,b5,105,2,1,g4,106,2,1,a5,107,2,1,b5,108,2,1,c5,109,2,1,d5);
+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(c2);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g2);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+ beam(111,1,1,c2,113,1,1,g2,115,1,1,c3);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g4);
+ beam(111,2,1,e4,112,2,1,d5,113,2,1,c5,114,2,1,b5,115,2,1,a5,116,2,1,g4);
+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(f3);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+ add_natural(b4);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+ add_sharp(c4);
+righthand;
+ add_noteheads(f5);
+ beam(118,1,1,a5,120,2,1,f5,121,2,1,e5,122,1,1,f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+ beam(118,2,1,f3,119,2,1,g3,120,2,1,a4,121,2,1,b4,122,2,1,c4,123,2,1,d4);
+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(e3);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+ add_sharp(c4);
+righthand;
+ add_noteheads(e5);
+ beam(125,1,1,g4,127,1,1,e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+ add_natural(b4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_rest(1,0);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+ beam(125,2,1,e3,126,2,1,d4,127,2,1,c4,128,2,1,b4,129,2,1,a4,130,2,1,g3);
+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(f3);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+ beam(132,1,1,f3,134,1,1,a4,136,1,1,d4);
+righthand;
+ add_noteheads(a6);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b6);
+ beam(132,2,1,d5,133,2,1,e5,134,2,1,f5,135,2,1,g5,136,2,1,a6,137,2,1,b6);
+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(e3);
+righthand;
+ add_noteheads(c5);
+ add_sharp(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(a6);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+ add_sharp(c4);
+ beam(139,1,1,e3,141,1,1,g3,143,1,1,c4);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e5);
+ beam(139,2,1,c5,140,2,1,b6,141,2,1,a6,142,2,1,g5,143,2,1,f5,144,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(d3);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(g4);
+ add_tie(g4);
+ beam(146,1,1,f5,148,1,1,d5,150,1,1,g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+ beam(146,2,1,d3,147,2,1,e3,148,2,1,f3,149,2,1,g3,150,2,1,a4,151,2,1,b4);
+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(c3);
+ add_sharp(c3);
+righthand;
+ close_tie(g4);
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(c5);
+ add_sharp(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+ beam(153,2,1,c3,154,2,1,b4,155,2,1,a4,156,2,1,g3,157,2,1,f3,158,2,1,e3);
+righthand;
+ add_noteheads(c5);
+ beam(153,2,1,g4,154,2,1,d5,155,2,1,c5,156,2,1,e5,157,2,1,a5,158,2,1,c5);
+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(f3);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(b5);
+ add_natural(b5);
+end_of_char;
+new_char(32);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(c5);
+ add_sharp(c5);
+ add_dot(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a3);
+ beam(160,2,1,f3,161,2,1,g3,162,1,1,a4,163,1,1,a3);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+ beam(160,2,1,d5,161,2,1,b5,162,1,1,c5,164,2,1,d5);
+end_of_char;
+new_char(-least_spaced);
+lefthand;
+ barline_(10);
+righthand;
+ barline_(10);
+end_of_char;
+end_of_block;
+make_line(next_char); showstats; end.
diff --git a/macros/texmuse/Samples/tex/dminor3.mf b/macros/texmuse/Samples/tex/dminor3.mf
new file mode 100644
index 0000000000..d6cff3b4ca
--- /dev/null
+++ b/macros/texmuse/Samples/tex/dminor3.mf
@@ -0,0 +1,169 @@
+mode_setup;
+input txmfont;
+input texmuse;
+instr_no(2);
+key_ := -1;
+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(b3);
+ add_dot(b3);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c5);
+ add_natural(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+ add_flat(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b3);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a3);
+ beam(1,1,1,b3,4,2,1,c3,5,2,1,b3,6,2,1,a3);
+righthand;
+ add_noteheads(f4);
+ beam(1,2,1,d5,2,2,1,c5,3,2,1,b5,4,2,1,a5,5,2,1,g4,6,2,1,f4);
+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(g2);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(c4);
+ add_sharp(c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+ beam(8,2,1,g2,9,2,1,b4,10,2,1,a4,11,2,1,g3,12,2,1,f3,13,2,1,e3);
+righthand;
+ add_noteheads(g4);
+ beam(8,2,1,b5,9,2,1,c4,10,2,1,d4,11,2,1,e4,12,2,1,f4,13,2,1,g4);
+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(f3);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(32);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a3);
+ beam(15,2,1,f3,16,2,1,g3,17,1,1,a4,18,1,1,a3);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d4);
+ beam(15,2,1,a5,16,2,1,d5,17,1,1,f4,18,2,1,e4,19,2,1,d4);
+end_of_char;
+new_char(-least_spaced);
+lefthand;
+ barline_(10);
+righthand;
+ barline_(10);
+end_of_char;
+end_of_block;
+new_char(96);
+lefthand;
+ add_noteheads(d3);
+ regular_stem;
+ add_dot(d3);
+righthand;
+ add_noteheads(d4);
+ regular_stem;
+ add_dot(d4);
+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.
diff --git a/macros/texmuse/Samples/tex/ebmajor.dvi b/macros/texmuse/Samples/tex/ebmajor.dvi
new file mode 100644
index 0000000000..997892960f
--- /dev/null
+++ b/macros/texmuse/Samples/tex/ebmajor.dvi
Binary files differ
diff --git a/macros/texmuse/Samples/tex/ebmajor.tex b/macros/texmuse/Samples/tex/ebmajor.tex
new file mode 100644
index 0000000000..32decff526
--- /dev/null
+++ b/macros/texmuse/Samples/tex/ebmajor.tex
@@ -0,0 +1,49 @@
+%apple\bulmer
+\documentclass{cfart}
+\input texmuse.tex
+\begin{document}
+\makeatletter
+\newinstrument{righthand}
+\newinstrument[\bassclef]{lefthand}
+\parindent0pt
+\FontSplit140
+\title{Invention in E$\flat$}
+\author{J. S. Bach}
+\maketitle
+\thispagestyle{empty}
+\begin{figure}[b]
+\flushright\small Typeset by \TeXmuse
+\end{figure}
+\begin{texmuse}
+\meter44\key{-3}
+\righthand{\rangefrom{E4}
+ 4R3[ED-]4[EF]5GA 4R3[FE]4[FG]5AB
+ 4[GC][BA]3[GABA]4[GF] [EGBE+=]3[E+CDE+]4[F+E+] [3DE+DC][DE+CD]\rangefrom{C5}[B-B\nAB][GAFG]
+ 3[EGFG][EFDE][CB\nAG][ABGA] [B-B\nAG][ABGA][FB\bAG][FGEF] [DGFE][DECD][F-EDC][DECD]
+ 4[E3B-A-][4B-C]5\bDE 4R3[CB-]4[C\nD]5EF 4R3[DC]4[DE]5FG
+ 3[EFED][EFDE][CC+BC+][ABGA] [FAGA][FGEF][DC+\nB\nA][BC+AB] [EC+\bB\bA][BC+AB][GC+BA][GAFG]
+ 3[\nEAGF][EFDE][G-FED][EFDE] 4[F3F-\nE-][4F-G-]5A-B-] \rangefrom{G4}4R[3GF-]4[GA]5BC
+ [4A\bDCB]3[\nABCB]4[AG] [F-\nACE=][3EC\bDE]4[FE] [3\bDEDC][DECD][BA+G+F][G+A+FG+]
+ [A+\bDCB][CDBC][AG+F\nE][FG+EF] [G+CBA][BCAB][GF\nED][EFDE] 4[F3AG][4AB]5C\bD
+ 4R[3BA][4AC]5\bDE 3[CA+G+A+][FG+EF][\bDB+A+B+][CDBC] [ACBC][ABGA][F-EDC][DECD]
+ 4[E3E-D-][4E-F-]5GA 4R3[F-E-]4[F-G]5AB 4[GCBA]3[GABA]4[GF-]
+ [E-FE\bD]3[CDED]4[CB] [ACEA+=]3[A+FG+A+]4[B+A+] [4G+.3F]5F6E
+ }
+\lefthand{\rangefrom{E3}
+ 5EE-3R[E+DE+][CDBC] [ACBC][ABGA][FE+DC][DE+CD]
+ [EE+DC][DE+CD][GE+DC][BCAB] [GCBA][GAFG][C-B\nAG][ABGA] 4[B3B-\nA-]4[B-C-]5D-E
+ \rangefrom{C3}4R3[CB-]4[CD]5EF 4[DGFE][3DEFE]4[DC] [B-DFA=][3AFGA][4BA]
+ 3[GAGF][FAFG][EE+\bD+E+][C+D+BC+] [ABAG][ABGA][FF+E+F+][D+E+C+D+] [BC+C\nA][BC+\nAB][GAFG][EFED]
+ 4[C3C\nB-]4[CD]5EF 4R[3DC]4[DE]5FG [4EAGF]3[\nEFGF]4[ED]
+ 4[C\nEGB=]3[BGAB][4C+B] [3ABAG][ABGA][FF+\bE+F+][\bD+E+C+E+] [B\bD+C+D+][BC+AB]\rangefrom{G3}[GF\nE\nD][EFDE]
+ [F-F\bE\bD][EFDE][CFED][CDBC] [\nA\bDCB][ABGA][C-BAG][AGGA] 4[B3B-\nA-][4B-C-]5\bD-E-
+ \rangefrom{F2}4R3[\bAG]4[AB]5C\bD 4R3[GF][4GA]5BC \rangefrom{C3}3[F-C+BC+][ABGA][FAGA][FGEF]
+ [\bDFEF][DECD][B-AGF][FGAG] 4[A3E\nD]4[EF]5GA 4R3[FE]4[FG]5AB
+ 3[GAGF][GAFG][EE+D+E+][C+D+BC+] [AC+BC+][ABGA][FE+D+C+][D+E+C+D+] [EE+D+C+][D+E+C+D+][BE+D+C+][BC+AB]
+ 3[GC+BA][GAFG][EAGF][EF\bDE] [CFE\bD][CDB-C][F-E\nDC][DECD] 4[EG-A-B-]6E-
+ }
+\end{texmuse}
+
+\music{lefthand,righthand}
+
+\end{document} \ No newline at end of file
diff --git a/macros/texmuse/Samples/tex/ebmajor1.mf b/macros/texmuse/Samples/tex/ebmajor1.mf
new file mode 100644
index 0000000000..b3c2bc7ce2
--- /dev/null
+++ b/macros/texmuse/Samples/tex/ebmajor1.mf
@@ -0,0 +1,780 @@
+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);
+lefthand;
+ add_noteheads(e3);
+ regular_stem;
+righthand;
+ add_rest(1,0);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d4);
+ beam(2,2,1,e4,3,2,1,d4);
+end_of_char;
+new_char(32);
+lefthand;
+ add_noteheads(e2);
+ regular_stem;
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(32);
+righthand;
+ add_noteheads(f4);
+ beam(4,1,1,e4,5,1,1,f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_rest(2,0);
+righthand;
+ add_noteheads(g4);
+ regular_stem;
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+ beam(7,2,1,e4,8,2,1,d4,9,2,1,e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(a5);
+ regular_stem;
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+ beam(10,2,1,c4,11,2,1,d4,12,2,1,b4,13,2,1,c4);
+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_rest(1,0);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+ beam(15,2,1,a4,16,2,1,c4,17,2,1,b4,18,2,1,c4);
+righthand;
+ add_noteheads(e4);
+ beam(17,2,1,f4,18,2,1,e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(g4);
+ beam(19,1,1,f4,21,1,1,g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+ beam(19,2,1,a4,20,2,1,b4,21,2,1,g3,22,2,1,a4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(a5);
+ regular_stem;
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+ beam(23,2,1,f3,24,2,1,e4,25,2,1,d4,26,2,1,c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+righthand;
+ add_noteheads(b5);
+ regular_stem;
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+ beam(27,2,1,d4,28,2,1,e4,29,2,1,c4,30,2,1,d4);
+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(e3);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+righthand;
+ add_noteheads(c5);
+ beam(32,1,1,g4,34,1,1,c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+ beam(32,2,1,e3,33,2,1,e4,34,2,1,d4,35,2,1,c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(a5);
+ beam(36,1,1,b5,38,1,1,a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+ beam(36,2,1,d4,37,2,1,e4,38,2,1,c4,39,2,1,d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+ beam(40,2,1,g3,41,2,1,e4,42,2,1,d4,43,2,1,c4);
+righthand;
+ add_noteheads(a5);
+ beam(40,2,1,g4,41,2,1,a5,42,2,1,b5,43,2,1,a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(f4);
+ beam(44,1,1,g4,46,1,1,f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+ beam(44,2,1,b4,45,2,1,c4,46,2,1,a4,47,2,1,b4);
+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(g3);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+ beam(49,2,1,g3,50,2,1,c4,51,2,1,b4,52,2,1,a4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(e5);
+ add_tie(e5);
+ beam(49,1,1,e4,51,1,1,g4,53,1,1,b5,55,1,1,e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+ beam(53,2,1,g3,54,2,1,a4,55,2,1,f3,56,2,1,g3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+righthand;
+ close_tie(e5);
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+ add_natural(a4);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+ beam(57,2,1,c3,58,2,1,b4,59,2,1,a4,60,2,1,g3);
+righthand;
+ add_noteheads(e5);
+ beam(57,2,1,e5,58,2,1,c5,59,2,1,d5,60,2,1,e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(e5);
+ beam(61,1,1,f5,63,1,1,e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+ beam(61,2,1,a4,62,2,1,b4,63,2,1,g3,64,2,1,a4);
+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(b4);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b3);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a3);
+ add_natural(a3);
+ beam(66,1,1,b4,68,2,1,b3,69,2,1,a3);
+righthand;
+ add_noteheads(c5);
+ beam(66,2,1,d5,67,2,1,e5,68,2,1,d5,69,2,1,c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b3);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+ beam(70,1,1,b3,72,1,1,c3);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+ beam(70,2,1,d5,71,2,1,e5,72,2,1,c5,73,2,1,d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+ regular_stem;
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b6);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a6);
+ add_natural(a6);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b6);
+ beam(74,2,1,b5,75,2,1,b6,76,2,1,a6,77,2,1,b6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+ regular_stem;
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a6);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g5);
+ beam(78,2,1,g5,79,2,1,a6,80,2,1,f5,81,2,1,g5);
+end_of_char;
+new_char(-least_spaced);
+lefthand;
+ barline_(10);
+righthand;
+ barline_(10);
+end_of_char;
+end_of_block;
+new_char(16);
+lefthand;
+ add_rest(1,0);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b3);
+ beam(85,2,1,c3,86,2,1,b3);
+righthand;
+ add_noteheads(g5);
+ beam(83,2,1,e5,84,2,1,g5,85,2,1,f5,86,2,1,g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+ beam(87,1,1,c3,89,1,1,d3);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e5);
+ beam(87,2,1,e5,88,2,1,f5,89,2,1,d5,90,2,1,e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+ regular_stem;
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b6);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a6);
+ add_natural(a6);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g5);
+ beam(91,2,1,c5,92,2,1,b6,93,2,1,a6,94,2,1,g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ regular_stem;
+righthand;
+ add_noteheads(a6);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b6);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a6);
+ beam(95,2,1,a6,96,2,1,b6,97,2,1,g5,98,2,1,a6);
+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(d3);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(a6);
+ add_natural(a6);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g5);
+ beam(100,2,1,b5,101,2,1,b6,102,2,1,a6,103,2,1,g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(a6);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+ beam(100,1,1,d3,102,1,1,g3,104,1,1,f3,106,1,1,e3);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a6);
+ beam(104,2,1,a6,105,2,1,b6,106,2,1,g5,107,2,1,a6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+righthand;
+ add_noteheads(b6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(a6);
+ add_flat(a6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+ beam(108,2,1,d3,109,2,1,e3,110,2,1,f3,111,2,1,e3);
+righthand;
+ add_noteheads(g5);
+ beam(108,2,1,f5,109,2,1,b6,110,2,1,a6,111,2,1,g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+ beam(112,1,1,d3,114,1,1,c3);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+ beam(112,2,1,f5,113,2,1,g5,114,2,1,e5,115,2,1,f5);
+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(b3);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e5);
+ beam(117,2,1,d5,118,2,1,g5,119,2,1,f5,120,2,1,e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+ add_tie(a4);
+ beam(117,1,1,b3,119,1,1,d3,121,1,1,f3,123,1,1,a4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+ beam(121,2,1,d5,122,2,1,e5,123,2,1,c5,124,2,1,d5);
+end_of_char;
+new_char(16);
+lefthand;
+ close_tie(a4);
+ add_noteheads(a4);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+ beam(125,2,1,a4,126,2,1,f3,127,2,1,g3,128,2,1,a4);
+righthand;
+ add_noteheads(c5);
+ beam(125,2,1,f4,126,2,1,e5,127,2,1,d5,128,2,1,c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+ beam(129,1,1,b4,131,1,1,a4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+ beam(129,2,1,d5,130,2,1,e5,131,2,1,c5,132,2,1,d5);
+end_of_char;
+new_char(-least_spaced);
+lefthand;
+ barline_(10);
+righthand;
+ barline_(10);
+end_of_char;
+end_of_block;
+make_line(next_char); showstats; end.
diff --git a/macros/texmuse/Samples/tex/ebmajor2.mf b/macros/texmuse/Samples/tex/ebmajor2.mf
new file mode 100644
index 0000000000..a93ff2f888
--- /dev/null
+++ b/macros/texmuse/Samples/tex/ebmajor2.mf
@@ -0,0 +1,796 @@
+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(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ beam(1,2,1,g3,2,2,1,a4,3,2,1,g3,4,2,1,f3);
+righthand;
+ add_noteheads(a5);
+ beam(1,1,1,e5,3,2,1,b5,4,2,1,a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(c5);
+ beam(5,1,1,b5,7,1,1,c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+ beam(5,2,1,f3,6,2,1,a4,7,2,1,f3,8,2,1,g3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+righthand;
+ add_noteheads(d5);
+ add_flat(d5);
+ regular_stem;
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+ add_flat(d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+ beam(9,2,1,e3,10,2,1,e4,11,2,1,d4,12,2,1,e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(e5);
+ regular_stem;
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+ beam(13,2,1,c4,14,2,1,d4,15,2,1,b4,16,2,1,c4);
+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_rest(1,0);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+ beam(18,2,1,a4,19,2,1,b4,20,2,1,a4,21,2,1,g3);
+righthand;
+ add_noteheads(b5);
+ beam(20,2,1,c5,21,2,1,b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(d5);
+ add_natural(d5);
+ beam(22,1,1,c5,24,1,1,d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+ beam(22,2,1,a4,23,2,1,b4,24,2,1,g3,25,2,1,a4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(e5);
+ regular_stem;
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+ beam(26,2,1,f3,27,2,1,f4,28,2,1,e4,29,2,1,f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+righthand;
+ add_noteheads(f5);
+ regular_stem;
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+ beam(30,2,1,d4,31,2,1,e4,32,2,1,c4,33,2,1,d4);
+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(b4);
+righthand;
+ add_rest(1,0);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+ add_natural(a4);
+ beam(35,2,1,b4,36,2,1,c4,37,2,1,c3,38,2,1,a4);
+righthand;
+ add_noteheads(c5);
+ beam(37,2,1,d5,38,2,1,c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+ add_natural(a4);
+righthand;
+ add_noteheads(e5);
+ beam(39,1,1,d5,41,1,1,e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+ beam(39,2,1,b4,40,2,1,c4,41,2,1,a4,42,2,1,b4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(f5);
+ regular_stem;
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+ beam(43,2,1,g3,44,2,1,a4,45,2,1,f3,46,2,1,g3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+righthand;
+ add_noteheads(g5);
+ regular_stem;
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+ beam(47,2,1,e3,48,2,1,f3,49,2,1,e3,50,2,1,d3);
+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(c3);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b3);
+ add_natural(b3);
+ beam(52,1,1,c3,54,2,1,c3,55,2,1,b3);
+righthand;
+ add_noteheads(d5);
+ beam(52,2,1,e5,53,2,1,f5,54,2,1,e5,55,2,1,d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+ beam(56,1,1,c3,58,1,1,d3);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e5);
+ beam(56,2,1,e5,57,2,1,f5,58,2,1,d5,59,2,1,e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+ regular_stem;
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c6);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b6);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c6);
+ beam(60,2,1,c5,61,2,1,c6,62,2,1,b6,63,2,1,c6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ regular_stem;
+righthand;
+ add_noteheads(a6);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b6);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a6);
+ beam(64,2,1,a6,65,2,1,b6,66,2,1,g5,67,2,1,a6);
+end_of_char;
+new_char(-least_spaced);
+lefthand;
+ barline_(10);
+righthand;
+ barline_(10);
+end_of_char;
+end_of_block;
+new_char(16);
+lefthand;
+ add_rest(1,0);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+ beam(71,2,1,d3,72,2,1,c3);
+righthand;
+ add_noteheads(a6);
+ beam(69,2,1,f5,70,2,1,a6,71,2,1,g5,72,2,1,a6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+ beam(73,1,1,d3,75,1,1,e3);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+ beam(73,2,1,f5,74,2,1,g5,75,2,1,e5,76,2,1,f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ regular_stem;
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c6);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b6);
+ add_natural(b6);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a6);
+ add_natural(a6);
+ beam(77,2,1,d5,78,2,1,c6,79,2,1,b6,80,2,1,a6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+ regular_stem;
+righthand;
+ add_noteheads(b6);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c6);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a6);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b6);
+ beam(81,2,1,b6,82,2,1,c6,83,2,1,a6,84,2,1,b6);
+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(e3);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(b6);
+ add_flat(b6);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a6);
+ add_flat(a6);
+ beam(86,2,1,e5,87,2,1,c6,88,2,1,b6,89,2,1,a6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(b6);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ beam(86,1,1,e3,88,1,1,a4,90,1,1,g3,92,1,1,f3);
+righthand;
+ add_noteheads(a6);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b6);
+ beam(90,2,1,b6,91,2,1,c6,92,2,1,a6,93,2,1,b6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+ add_natural(e3);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(c6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(b6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ beam(94,2,1,e3,95,2,1,f3,96,2,1,g3,97,2,1,f3);
+righthand;
+ add_noteheads(a6);
+ beam(94,2,1,g5,95,2,1,c6,96,2,1,b6,97,2,1,a6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+ beam(98,1,1,e3,100,1,1,d3);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g5);
+ beam(98,2,1,g5,99,2,1,a6,100,2,1,f5,101,2,1,g5);
+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(c3);
+righthand;
+ add_noteheads(e5);
+ add_natural(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+ add_natural(e3);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+ beam(103,2,1,e5,104,2,1,a6,105,2,1,g5,106,2,1,f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+ add_tie(b4);
+ beam(103,1,1,c3,105,1,1,e3,107,1,1,g3,109,1,1,b4);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e5);
+ beam(107,2,1,e5,108,2,1,f5,109,2,1,d5,110,2,1,e5);
+end_of_char;
+new_char(16);
+lefthand;
+ close_tie(b4);
+ add_noteheads(b4);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+ beam(111,2,1,b4,112,2,1,g3,113,2,1,a4,114,2,1,b4);
+righthand;
+ add_noteheads(d5);
+ beam(111,2,1,g4,112,2,1,f5,113,2,1,e5,114,2,1,d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+ beam(115,1,1,c4,117,1,1,b4);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e5);
+ beam(115,2,1,e5,116,2,1,f5,117,2,1,d5,118,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(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+ beam(120,2,1,a4,121,2,1,b4,122,2,1,a4,123,2,1,g3);
+righthand;
+ add_noteheads(e4);
+ add_natural(e4);
+ beam(120,1,1,f5,122,2,1,f4,123,2,1,e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(g4);
+ beam(124,1,1,f4,126,1,1,g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+ beam(124,2,1,a4,125,2,1,b4,126,2,1,g3,127,2,1,a4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(a5);
+ regular_stem;
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+ add_flat(e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+ beam(128,2,1,f3,129,2,1,f4,130,2,1,e4,131,2,1,f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+ add_flat(d4);
+righthand;
+ add_noteheads(b5);
+ regular_stem;
+ beam(124,1,1,f4,126,1,1,g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+ beam(132,2,1,d4,133,2,1,e4,134,2,1,c4,135,2,1,e4);
+end_of_char;
+new_char(-least_spaced);
+lefthand;
+ barline_(10);
+righthand;
+ barline_(10);
+end_of_char;
+end_of_block;
+make_line(next_char); showstats; end.
diff --git a/macros/texmuse/Samples/tex/ebmajor3.mf b/macros/texmuse/Samples/tex/ebmajor3.mf
new file mode 100644
index 0000000000..95e9ec164b
--- /dev/null
+++ b/macros/texmuse/Samples/tex/ebmajor3.mf
@@ -0,0 +1,801 @@
+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(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_rest(1,0);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+ add_flat(d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+ beam(1,2,1,b4,2,2,1,d4,3,2,1,c4,4,2,1,d4);
+righthand;
+ add_noteheads(f4);
+ beam(3,2,1,g4,4,2,1,f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(a5);
+ beam(5,1,1,g4,7,1,1,a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+ beam(5,2,1,b4,6,2,1,c4,7,2,1,a4,8,2,1,b4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(b5);
+ regular_stem;
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+ add_natural(e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+ add_natural(d4);
+ beam(9,2,1,g3,10,2,1,f4,11,2,1,e4,12,2,1,d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+righthand;
+ add_noteheads(c5);
+ regular_stem;
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+ beam(13,2,1,e4,14,2,1,f4,15,2,1,d4,16,2,1,e4);
+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(f3);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+ add_flat(e4);
+righthand;
+ add_noteheads(d5);
+ add_flat(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+ add_flat(d4);
+ beam(18,2,1,f3,19,2,1,f4,20,2,1,e4,21,2,1,d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+righthand;
+ add_noteheads(b5);
+ beam(18,1,1,a5,20,1,1,d5,22,1,1,c5,24,1,1,b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+ beam(22,2,1,e4,23,2,1,f4,24,2,1,d4,25,2,1,e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(a5);
+ add_natural(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+ beam(26,2,1,c4,27,2,1,f4,28,2,1,e4,29,2,1,d4);
+righthand;
+ add_noteheads(b5);
+ beam(26,2,1,a5,27,2,1,b5,28,2,1,c5,29,2,1,b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(g4);
+ beam(30,1,1,a5,32,1,1,g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+ beam(30,2,1,c4,31,2,1,d4,32,2,1,b4,33,2,1,c4);
+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);
+ add_natural(a4);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+ add_flat(d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(a5);
+ add_natural(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+ beam(35,2,1,a4,36,2,1,d4,37,2,1,c4,38,2,1,b4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(e5);
+ add_tie(e5);
+ beam(35,1,1,f4,37,1,1,a5,39,1,1,c5,41,1,1,e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+ beam(39,2,1,a4,40,2,1,b4,41,2,1,g3,42,2,1,a4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+righthand;
+ close_tie(e5);
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(d5);
+ add_flat(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+ beam(43,2,1,c3,44,2,1,b4,45,2,1,a4,46,2,1,g3);
+righthand;
+ add_noteheads(e5);
+ beam(43,2,1,e5,44,2,1,c5,45,2,1,d5,46,2,1,e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(e5);
+ beam(47,1,1,f5,49,1,1,e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+ beam(47,2,1,a4,48,2,1,g3,49,2,1,g3,50,2,1,a4);
+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(b4);
+righthand;
+ add_noteheads(d5);
+ add_flat(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b3);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a3);
+ add_natural(a3);
+ beam(52,1,1,b4,54,2,1,b3,55,2,1,a3);
+righthand;
+ add_noteheads(c5);
+ beam(52,2,1,d5,53,2,1,e5,54,2,1,d5,55,2,1,c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b3);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+ beam(56,1,1,b3,58,1,1,c3);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+ beam(56,2,1,d5,57,2,1,e5,58,2,1,c5,59,2,1,d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+ add_flat(d3);
+ regular_stem;
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a6);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+ beam(60,2,1,b5,61,2,1,a6,62,2,1,g5,63,2,1,f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+ regular_stem;
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a6);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g5);
+ beam(64,2,1,g5,65,2,1,a6,66,2,1,f5,67,2,1,g5);
+end_of_char;
+new_char(-least_spaced);
+lefthand;
+ barline_(10);
+righthand;
+ barline_(10);
+end_of_char;
+end_of_block;
+new_char(16);
+lefthand;
+ add_rest(1,0);
+righthand;
+ add_noteheads(a6);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+ add_flat(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a3);
+ add_flat(a3);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g2);
+ beam(71,2,1,a3,72,2,1,g2);
+righthand;
+ add_noteheads(b5);
+ beam(69,2,1,a6,70,2,1,d5,71,2,1,c5,72,2,1,b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a3);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b3);
+ beam(73,1,1,a3,75,1,1,b3);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c5);
+ beam(73,2,1,c5,74,2,1,d5,75,2,1,b5,76,2,1,c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+ regular_stem;
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e5);
+ add_natural(e5);
+ beam(77,2,1,a5,78,2,1,g5,79,2,1,f5,80,2,1,e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+ add_flat(d3);
+ regular_stem;
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+ beam(81,2,1,f5,82,2,1,g5,83,2,1,e5,84,2,1,f5);
+end_of_char;
+new_char(-least_spaced);
+lefthand;
+ barline_(10);
+righthand;
+ barline_(10);
+end_of_char;
+end_of_block;
+new_char(16);
+lefthand;
+ add_rest(1,0);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g2);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f2);
+ beam(88,2,1,g2,89,2,1,f2);
+righthand;
+ add_noteheads(a5);
+ beam(86,2,1,g5,87,2,1,c5,88,2,1,b5,89,2,1,a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g2);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a3);
+ beam(90,1,1,g2,92,1,1,a3);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+ beam(90,2,1,b5,91,2,1,c5,92,2,1,a5,93,2,1,b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b3);
+ regular_stem;
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e5);
+ add_natural(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+ beam(94,2,1,g4,95,2,1,f5,96,2,1,e5,97,2,1,d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+ regular_stem;
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e5);
+ beam(98,2,1,e5,99,2,1,f5,100,2,1,d5,101,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(f2);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+ beam(103,2,1,f2,104,2,1,c4,105,2,1,b4,106,2,1,c4);
+righthand;
+ add_noteheads(g4);
+ beam(103,1,1,f5,105,2,1,a5,106,2,1,g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(b5);
+ beam(107,1,1,a5,109,1,1,b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+ beam(107,2,1,a4,108,2,1,b4,109,2,1,g3,110,2,1,a4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(c5);
+ regular_stem;
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+ beam(111,2,1,f3,112,2,1,a4,113,2,1,g3,114,2,1,a4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(d5);
+ add_flat(d5);
+ regular_stem;
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ beam(115,2,1,f3,116,2,1,g3,117,2,1,e3,118,2,1,f3);
+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(d3);
+ add_flat(d3);
+righthand;
+ add_rest(1,0);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ beam(120,2,1,d3,121,2,1,f3,122,2,1,e3,123,2,1,f3);
+righthand;
+ add_noteheads(a5);
+ beam(122,2,1,b5,123,2,1,a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+righthand;
+ add_noteheads(c5);
+ beam(124,1,1,a5,126,1,1,c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+ beam(124,2,1,d3,125,2,1,e3,126,2,1,c3,127,2,1,d3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b3);
+righthand;
+ add_noteheads(d5);
+ add_flat(d5);
+ regular_stem;
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ beam(128,2,1,b3,129,2,1,a4,130,2,1,g3,131,2,1,f3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(e5);
+ regular_stem;
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+ beam(132,2,1,f3,133,2,1,g3,134,2,1,a4,135,2,1,g3);
+end_of_char;
+new_char(-least_spaced);
+lefthand;
+ barline_(10);
+righthand;
+ barline_(10);
+end_of_char;
+end_of_block;
+make_line(next_char); showstats; end.
diff --git a/macros/texmuse/Samples/tex/ebmajor4.mf b/macros/texmuse/Samples/tex/ebmajor4.mf
new file mode 100644
index 0000000000..861ecf29b9
--- /dev/null
+++ b/macros/texmuse/Samples/tex/ebmajor4.mf
@@ -0,0 +1,740 @@
+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(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+ add_natural(d3);
+ beam(1,1,1,a4,3,2,1,e3,4,2,1,d3);
+righthand;
+ add_noteheads(a6);
+ beam(1,2,1,c5,2,2,1,a6,3,2,1,g5,4,2,1,a6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ beam(5,1,1,e3,7,1,1,f3);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+ beam(5,2,1,f5,6,2,1,g5,7,2,1,e5,8,2,1,f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+ regular_stem;
+righthand;
+ add_noteheads(d5);
+ add_flat(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b6);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a6);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b6);
+ beam(9,2,1,d5,10,2,1,b6,11,2,1,a6,12,2,1,b6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+ regular_stem;
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c5);
+ beam(13,2,1,c5,14,2,1,d5,15,2,1,b5,16,2,1,c5);
+end_of_char;
+new_char(-least_spaced);
+lefthand;
+ barline_(10);
+righthand;
+ barline_(10);
+end_of_char;
+end_of_block;
+new_char(16);
+lefthand;
+ add_rest(1,0);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+ beam(20,2,1,f3,21,2,1,e3);
+righthand;
+ add_noteheads(c5);
+ beam(18,2,1,a5,19,2,1,c5,20,2,1,b5,21,2,1,c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+ beam(22,1,1,f3,24,1,1,g3);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a5);
+ beam(22,2,1,a5,23,2,1,b5,24,2,1,g4,25,2,1,a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+ regular_stem;
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c5);
+ beam(26,2,1,f4,27,2,1,e5,28,2,1,d5,29,2,1,c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+ regular_stem;
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+ beam(30,2,1,d5,31,2,1,e5,32,2,1,c5,33,2,1,d5);
+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(g3);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ beam(35,2,1,g3,36,2,1,a4,37,2,1,g3,38,2,1,f3);
+righthand;
+ add_noteheads(d4);
+ beam(35,1,1,e5,37,2,1,e4,38,2,1,d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(f4);
+ beam(39,1,1,e4,41,1,1,f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+ beam(39,2,1,g3,40,2,1,a4,41,2,1,f3,42,2,1,g3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+righthand;
+ add_noteheads(g4);
+ regular_stem;
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+ beam(43,2,1,e3,44,2,1,e4,45,2,1,d4,46,2,1,e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(a5);
+ regular_stem;
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+ beam(47,2,1,c4,48,2,1,d4,49,2,1,b4,50,2,1,c4);
+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_rest(1,0);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+ beam(52,2,1,a4,53,2,1,c4,54,2,1,b4,55,2,1,c4);
+righthand;
+ add_noteheads(e4);
+ beam(54,2,1,f4,55,2,1,e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(g4);
+ beam(56,1,1,f4,58,1,1,g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+ beam(56,2,1,a4,57,2,1,b4,58,2,1,g3,59,2,1,a4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(a5);
+ regular_stem;
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+ beam(60,2,1,f3,61,2,1,e4,62,2,1,d4,63,2,1,c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+righthand;
+ add_noteheads(b5);
+ regular_stem;
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+ beam(64,2,1,d4,65,2,1,e4,66,2,1,c4,67,2,1,d4);
+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(e3);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+ beam(69,2,1,e3,70,2,1,e4,71,2,1,d4,72,2,1,c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(a5);
+ beam(69,1,1,g4,71,1,1,c5,73,1,1,b5,75,1,1,a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+ beam(73,2,1,d4,74,2,1,e4,75,2,1,c4,76,2,1,d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+ beam(77,2,1,b4,78,2,1,e4,79,2,1,d4,80,2,1,c4);
+righthand;
+ add_noteheads(a5);
+ beam(77,2,1,g4,78,2,1,a5,79,2,1,b5,80,2,1,a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(f4);
+ beam(81,1,1,g4,83,1,1,f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+ beam(81,2,1,b4,82,2,1,c4,83,2,1,a4,84,2,1,b4);
+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(g3);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+ beam(86,2,1,g3,87,2,1,c4,88,2,1,b4,89,2,1,a4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(d5);
+ add_flat(d5);
+ beam(86,1,1,e4,88,1,1,f5,90,1,1,e5,92,1,1,d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+ beam(90,2,1,g3,91,2,1,a4,92,2,1,f3,93,2,1,g3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ beam(94,2,1,e3,95,2,1,a4,96,2,1,g3,97,2,1,f3);
+righthand;
+ add_noteheads(d5);
+ beam(94,2,1,c5,95,2,1,d5,96,2,1,e5,97,2,1,d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+ add_flat(d3);
+righthand;
+ add_noteheads(b5);
+ beam(98,1,1,c5,100,1,1,b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+ beam(98,2,1,e3,99,2,1,f3,100,2,1,d3,101,2,1,e3);
+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(c3);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+ add_flat(d3);
+ beam(103,2,1,c3,104,2,1,f3,105,2,1,e3,106,2,1,d3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b3);
+righthand;
+ add_noteheads(a6);
+ add_tie(a6);
+ beam(103,1,1,a5,105,1,1,c5,107,1,1,e5,109,1,1,a6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+ beam(107,2,1,c3,108,2,1,d3,109,2,1,b3,110,2,1,c3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f2);
+righthand;
+ close_tie(a6);
+ add_noteheads(a6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+ add_natural(d3);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+ beam(111,2,1,f2,112,2,1,e3,113,2,1,d3,114,2,1,c3);
+righthand;
+ add_noteheads(a6);
+ beam(111,2,1,a6,112,2,1,f5,113,2,1,g5,114,2,1,a6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+righthand;
+ add_noteheads(b6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+righthand;
+ add_noteheads(a6);
+ beam(115,1,1,b6,117,1,1,a6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+ beam(115,2,1,d3,116,2,1,e3,117,2,1,c3,118,2,1,d3);
+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(e3);
+righthand;
+ add_noteheads(g5);
+ add_dot(g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g2);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+ beam(120,1,1,g5,122,2,1,f5);
+end_of_char;
+new_char(32);
+lefthand;
+ add_noteheads(a3);
+righthand;
+ add_noteheads(f5);
+ regular_stem;
+end_of_char;
+new_char(32);
+lefthand;
+ add_noteheads(b3);
+ beam(120,1,1,e3,121,1,1,g2,123,1,1,a3,124,1,1,b3);
+end_of_char;
+new_char(128);
+lefthand;
+ add_halfheads(e2);
+ regular_stem;
+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.
diff --git a/macros/texmuse/Samples/tex/ebmajor5.mf b/macros/texmuse/Samples/tex/ebmajor5.mf
new file mode 100644
index 0000000000..faca38ee9f
--- /dev/null
+++ b/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.
diff --git a/macros/texmuse/Samples/tex/fmajor.dvi b/macros/texmuse/Samples/tex/fmajor.dvi
new file mode 100644
index 0000000000..b131f261ff
--- /dev/null
+++ b/macros/texmuse/Samples/tex/fmajor.dvi
Binary files differ
diff --git a/macros/texmuse/Samples/tex/fmajor.tex b/macros/texmuse/Samples/tex/fmajor.tex
new file mode 100644
index 0000000000..55041ed31d
--- /dev/null
+++ b/macros/texmuse/Samples/tex/fmajor.tex
@@ -0,0 +1,56 @@
+%public\mandate
+\documentclass[draft]{cfart}
+\input texmuse.tex
+\begin{document}
+\makeatletter
+\newinstrument{righthand}
+\newinstrument[\bassclef]{lefthand}
+\parindent0pt
+
+
+\title{Invention in F}
+\author{J. S. Bach}
+\maketitle
+\thispagestyle{empty}
+\begin{figure}[b]
+\flushright\small Typeset by \TeXmuse
+\end{figure}
+\begin{texmuse}
+\meter34\key{-1}
+\righthand{\rangefrom{F4}
+ 4R[FAFCF] [F+3ED] [CDCB] [ABAG]
+ 4[FACAF+C] \rangefrom{D5}3[ACBC][ACBC][ACBC]
+ [FAGA][FAGA][FAGA] [DFEF][DFEF][DFEF]
+ \rangefrom{A4}4[\nBG] [DB] [FD] 3[GA+GF] [EFED] [CDC\bB]
+ 4[A3DC] \rangefrom{D4}[\nBCBA] [GAGF] [EFED] [4C-3C\nB]
+ [4CE] [FC] [EC] [D\nB] 5CRR
+ \rangefrom{C5}4R[CECGC] [C+3\nBA] [GAGF] [EFED] [C\bB-CA][CAB-A][CAA-A]
+ 4\rangefrom{G4}[BGBGDG] [G+3F\bE][DEDC][BCBA] 4[GBDBG+D]
+ [B+\#C][B+C][B+C] [DAFDA+F] \rangefrom{C5}3[GFGB][CBDB][EBCB]
+ [FEFA][\nB-A\#CA][DAB-A] [EDEG][A-G\nB-G][\#CGA-G] 4[FD][\bB-D][G-F]
+ [ECA-CF-\bE] [3DF\bEF][DFEF][DFEF] [B-DCD][B-DCD][B-DCD]
+ \rangefrom{E4}[GBAB][GBAB][GBAB] 4[EC-][GE][BG] 3[CDCB][ABAG][FGF\bE]
+ 4[D-3GF][\nEFED-]\rangefrom{G3}[CDCB] [ABAG][4F-3FE]4[FA] [BF][AF][GE]
+ 5FRR
+ }
+\lefthand{\rangefrom{F3}
+ 5RRR
+ 4R[FAFCF] [F+3ED] [CDCB] [ABAG]
+ 4[FACAF+C] \trebleclef\rangefrom{D4}3[ACBC][ACBC][ACBC]
+ [FAGA][FAGA][FAGA] [DFEF][DFEF][DFEF]
+ \rangefrom{G3}4[\nBG] [CG] [EC] 3[FG+FE] [DEDC] [\nBCBA]
+ 4[G\bassclef3C\nB] [ABAG] \rangefrom{G2}[FG+FE] [DEDC] [G+FEF] 4[G+G] 4R[CECG+C]
+ \rangefrom{C3}[C+3\nBA] [GAGF] [EFED] 4[CEGEC+G] [\bE+\#F][E+F][E+F]
+ [G3\nF\bE][DEDC][B-CB-A-] 4[G-GBGD+G] [G+3F+\bE+][D+E+D+C+][BC+BA]
+ [GFG\nE+][GE+FE+][GE+EE+] [FEFD+][FD+ED+][FD+DD+] 4[BG][EG][CE]
+ [AF][DF][\nB-D] [GE][\#CE][A-C] \rangefrom{F2}3[D-D\nCD][GDAD][BDGD]
+ [C-CBC][FCGC][ACFC] 4[BDF+DB+F+] \rangefrom{G3}3[DF\bEF][DFEF][DFEF]
+ [BDCD][BDCD][BDCD] [GBAB][GBAB][GBAB] \rangefrom{C3}4[EC][FC][AF]
+ 3[BCBA][GAGF][EFED] 4[C3FE][DEDC][B-DB-A-] [G-A-G-F-][CB-A-B-]4[CC-]
+ 5F-RR
+ }
+\end{texmuse}
+
+\music{lefthand,righthand}
+
+\end{document} \ No newline at end of file
diff --git a/macros/texmuse/Samples/tex/fmajor1.mf b/macros/texmuse/Samples/tex/fmajor1.mf
new file mode 100644
index 0000000000..ae51a46309
--- /dev/null
+++ b/macros/texmuse/Samples/tex/fmajor1.mf
@@ -0,0 +1,1068 @@
+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_ := -1;
+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);
+lefthand;
+ add_rest(0,0);
+righthand;
+ add_rest(1,0);
+end_of_char;
+new_char(32);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(32);
+lefthand;
+ add_rest(0,0);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(32);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(32);
+lefthand;
+ add_rest(0,0);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(32);
+righthand;
+ add_noteheads(f4);
+ beam(2,1,1,f4,3,1,1,a5,4,1,1,f4,5,1,1,c5,6,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_rest(1,0);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+ beam(8,1,1,f5,9,2,1,e5,10,2,1,d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+ beam(11,2,1,c5,12,2,1,d5,13,2,1,c5,14,2,1,b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ beam(9,1,1,f3,11,1,1,a4,13,1,1,f3,15,1,1,c4,17,1,1,f3);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g4);
+ beam(15,2,1,a5,16,2,1,b5,17,2,1,a5,18,2,1,g4);
+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(f4);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+ beam(20,1,1,f4,21,2,1,e4,22,2,1,d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+ beam(23,2,1,c4,24,2,1,d4,25,2,1,c4,26,2,1,b4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(c5);
+ beam(20,1,1,f4,21,1,1,a5,23,1,1,c5,25,1,1,a5,27,1,1,f5,29,1,1,c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+ beam(27,2,1,a4,28,2,1,b4,29,2,1,a4,30,2,1,g3);
+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(f3);
+righthand;
+ add_noteheads(a6);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(b6);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c6);
+ beam(32,2,1,a6,33,2,1,c6,34,2,1,b6,35,2,1,c6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(a6);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(b6);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c6);
+ beam(36,2,1,a6,37,2,1,c6,38,2,1,b6,39,2,1,c6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+righthand;
+ add_noteheads(a6);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+ beam(32,1,1,f3,34,1,1,a4,36,1,1,c4,38,1,1,a4,40,1,1,f4,42,1,1,c4);
+righthand;
+ add_noteheads(b6);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c6);
+ beam(40,2,1,a6,41,2,1,c6,42,2,1,b6,43,2,1,c6);
+end_of_char;
+new_char(-least_spaced);
+lefthand;
+ clef_(0);
+ barline_(10);
+righthand;
+ barline_(10);
+end_of_char;
+end_of_block;
+new_char(16);
+lefthand;
+ add_noteheads(a5);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c5);
+righthand;
+ add_noteheads(a6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b5);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c5);
+ beam(45,2,1,a5,46,2,1,c5,47,2,1,b5,48,2,1,c5);
+righthand;
+ add_noteheads(a6);
+ beam(45,2,1,f5,46,2,1,a6,47,2,1,g5,48,2,1,a6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a5);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c5);
+righthand;
+ add_noteheads(a6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b5);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c5);
+ beam(49,2,1,a5,50,2,1,c5,51,2,1,b5,52,2,1,c5);
+righthand;
+ add_noteheads(a6);
+ beam(49,2,1,f5,50,2,1,a6,51,2,1,g5,52,2,1,a6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a5);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c5);
+righthand;
+ add_noteheads(a6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b5);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c5);
+ beam(53,2,1,a5,54,2,1,c5,55,2,1,b5,56,2,1,c5);
+righthand;
+ add_noteheads(a6);
+ beam(53,2,1,f5,54,2,1,a6,55,2,1,g5,56,2,1,a6);
+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(f4);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a5);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g4);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a5);
+ beam(58,2,1,f4,59,2,1,a5,60,2,1,g4,61,2,1,a5);
+righthand;
+ add_noteheads(f5);
+ beam(58,2,1,d5,59,2,1,f5,60,2,1,e5,61,2,1,f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a5);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g4);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a5);
+ beam(62,2,1,f4,63,2,1,a5,64,2,1,g4,65,2,1,a5);
+righthand;
+ add_noteheads(f5);
+ beam(62,2,1,d5,63,2,1,f5,64,2,1,e5,65,2,1,f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a5);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g4);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a5);
+ beam(66,2,1,f4,67,2,1,a5,68,2,1,g4,69,2,1,a5);
+righthand;
+ add_noteheads(f5);
+ beam(66,2,1,d5,67,2,1,f5,68,2,1,e5,69,2,1,f5);
+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(d4);
+righthand;
+ add_noteheads(b4);
+ add_natural(b4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+righthand;
+ add_noteheads(g4);
+ beam(71,1,1,b4,73,1,1,g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+ beam(71,2,1,d4,72,2,1,f4,73,2,1,e4,74,2,1,f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+righthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+righthand;
+ add_noteheads(b4);
+ beam(75,1,1,d4,77,1,1,b4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+ beam(75,2,1,d4,76,2,1,f4,77,2,1,e4,78,2,1,f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+righthand;
+ add_noteheads(d4);
+ beam(79,1,1,f4,81,1,1,d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+ beam(79,2,1,d4,80,2,1,f4,81,2,1,e4,82,2,1,f4);
+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(b4);
+ add_natural(b4);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+ beam(84,1,1,b4,86,1,1,g3);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f4);
+ beam(84,2,1,g4,85,2,1,a5,86,2,1,g4,87,2,1,f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+ beam(88,1,1,c4,90,1,1,g3);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d4);
+ beam(88,2,1,e4,89,2,1,f4,90,2,1,e4,91,2,1,d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+righthand;
+ add_noteheads(c4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+ beam(92,1,1,e4,94,1,1,c4);
+righthand;
+ add_noteheads(c4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b4);
+ add_flat(b4);
+ beam(92,2,1,c4,93,2,1,d4,94,2,1,c4,95,2,1,b4);
+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(f4);
+righthand;
+ add_noteheads(a4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+righthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+ beam(97,2,1,f4,98,2,1,g4,99,2,1,f4,100,2,1,e4);
+righthand;
+ add_noteheads(c4);
+ beam(97,1,1,a4,99,2,1,d4,100,2,1,c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+righthand;
+ add_noteheads(b5);
+ add_natural(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+ beam(101,2,1,d4,102,2,1,e4,103,2,1,d4,104,2,1,c4);
+righthand;
+ add_noteheads(a5);
+ beam(101,2,1,b5,102,2,1,c5,103,2,1,b5,104,2,1,a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+ add_natural(b4);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+ beam(105,2,1,b4,106,2,1,c4,107,2,1,b4,108,2,1,a4);
+righthand;
+ add_noteheads(f4);
+ beam(105,2,1,g4,106,2,1,a5,107,2,1,g4,108,2,1,f4);
+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(g3);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+lefthand;
+ clef_(6);
+ add_noteheads(c4);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+ add_natural(b4);
+ beam(110,1,1,g3,112,2,1,c4,113,2,1,b4);
+righthand;
+ add_noteheads(d4);
+ beam(110,2,1,e4,111,2,1,f4,112,2,1,e4,113,2,1,d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+ beam(114,2,1,a4,115,2,1,b4,116,2,1,a4,117,2,1,g3);
+righthand;
+ add_noteheads(b5);
+ add_natural(b5);
+ beam(114,1,1,c4,116,2,1,c5,117,2,1,b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(e4);
+ beam(118,1,1,c5,120,1,1,e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+ beam(118,2,1,f3,119,2,1,g3,120,2,1,f3,121,2,1,e3);
+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(d3);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+righthand;
+ add_noteheads(c5);
+ beam(123,1,1,f4,125,1,1,c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+ beam(123,2,1,d3,124,2,1,e3,125,2,1,d3,126,2,1,c3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+righthand;
+ add_noteheads(c5);
+ beam(127,1,1,e4,129,1,1,c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ beam(127,2,1,g3,128,2,1,f3,129,2,1,e3,130,2,1,f3);
+end_of_char;
+new_char(32);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(32);
+lefthand;
+ add_noteheads(g2);
+ beam(131,1,1,g3,132,1,1,g2);
+righthand;
+ add_noteheads(b5);
+ add_natural(b5);
+ beam(131,1,1,d4,132,1,1,b5);
+end_of_char;
+new_char(-least_spaced);
+lefthand;
+ barline_(10);
+righthand;
+ barline_(10);
+end_of_char;
+end_of_block;
+new_char(32);
+lefthand;
+ add_rest(1,0);
+righthand;
+ add_noteheads(c5);
+ regular_stem;
+end_of_char;
+new_char(32);
+lefthand;
+ add_noteheads(c3);
+end_of_char;
+new_char(32);
+lefthand;
+ add_noteheads(e3);
+righthand;
+ add_rest(0,0);
+end_of_char;
+new_char(32);
+lefthand;
+ add_noteheads(c3);
+end_of_char;
+new_char(32);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_rest(0,0);
+end_of_char;
+new_char(32);
+lefthand;
+ add_noteheads(c3);
+ beam(135,1,1,c3,136,1,1,e3,137,1,1,c3,138,1,1,g3,139,1,1,c3);
+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);
+righthand;
+ add_rest(1,0);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+ add_natural(b4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+ beam(141,1,1,c4,142,2,1,b4,143,2,1,a4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ beam(144,2,1,g3,145,2,1,a4,146,2,1,g3,147,2,1,f3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+righthand;
+ add_noteheads(c5);
+ beam(142,1,1,c5,144,1,1,e5,146,1,1,c5,148,1,1,g5,150,1,1,c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+ beam(148,2,1,e3,149,2,1,f3,150,2,1,e3,151,2,1,d3);
+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);
+righthand;
+ add_noteheads(c6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+righthand;
+ add_noteheads(b6);
+ add_natural(b6);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a6);
+ beam(153,1,1,c6,154,2,1,b6,155,2,1,a6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+ beam(156,2,1,g5,157,2,1,a6,158,2,1,g5,159,2,1,f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+ beam(153,1,1,c3,154,1,1,e3,156,1,1,g3,158,1,1,e3,160,1,1,c4,162,1,1,g3);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+ beam(160,2,1,e5,161,2,1,f5,162,2,1,e5,163,2,1,d5);
+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(e4);
+ add_flat(e4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+ add_flat(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ add_sharp(f3);
+ beam(165,1,1,e4,167,1,1,f3);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a6);
+ beam(165,2,1,c5,166,2,1,b5,167,2,1,c5,168,2,1,a6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ beam(169,1,1,e4,171,1,1,f3);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a6);
+ beam(169,2,1,c5,170,2,1,a6,171,2,1,b5,172,2,1,a6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ beam(173,1,1,e4,175,1,1,f3);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a6);
+ beam(173,2,1,c5,174,2,1,a6,175,2,1,a5,176,2,1,a6);
+end_of_char;
+new_char(-least_spaced);
+lefthand;
+ barline_(10);
+righthand;
+ barline_(10);
+end_of_char;
+end_of_block;
+make_line(next_char); showstats; end.
diff --git a/macros/texmuse/Samples/tex/fmajor2.mf b/macros/texmuse/Samples/tex/fmajor2.mf
new file mode 100644
index 0000000000..b8e86c3bfc
--- /dev/null
+++ b/macros/texmuse/Samples/tex/fmajor2.mf
@@ -0,0 +1,1062 @@
+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_ := -1;
+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);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ add_natural(f3);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+ add_flat(e3);
+ beam(1,1,1,g3,2,2,1,f3,3,2,1,e3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+ beam(4,2,1,d3,5,2,1,e3,6,2,1,d3,7,2,1,c3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b3);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b3);
+righthand;
+ add_noteheads(g4);
+ beam(1,1,1,b5,2,1,1,g4,4,1,1,b5,6,1,1,g4,8,1,1,d5,10,1,1,g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a3);
+ beam(8,2,1,b3,9,2,1,c3,10,2,1,b3,11,2,1,a3);
+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(g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e5);
+ add_flat(e5);
+ beam(13,1,1,g5,14,2,1,f5,15,2,1,e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c5);
+ beam(16,2,1,d5,17,2,1,e5,18,2,1,d5,19,2,1,c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+ beam(13,1,1,g2,14,1,1,g3,16,1,1,b4,18,1,1,g3,20,1,1,d4,22,1,1,g3);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a5);
+ beam(20,2,1,b5,21,2,1,c5,22,2,1,b5,23,2,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(g4);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+ add_flat(e4);
+ beam(25,1,1,g4,26,2,1,f4,27,2,1,e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+ beam(28,2,1,d4,29,2,1,e4,30,2,1,d4,31,2,1,c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(d5);
+ beam(25,1,1,g4,26,1,1,b5,28,1,1,d5,30,1,1,b5,32,1,1,g5,34,1,1,d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+ beam(32,2,1,b4,33,2,1,c4,34,2,1,b4,35,2,1,a4);
+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(g3);
+righthand;
+ add_noteheads(b6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(c5);
+ add_sharp(c5);
+ beam(37,1,1,b6,39,1,1,c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+ add_natural(e4);
+ beam(37,2,1,g3,38,2,1,f3,39,2,1,g3,40,2,1,e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(b6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(c5);
+ beam(41,1,1,b6,43,1,1,c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+ beam(41,2,1,g3,42,2,1,e4,43,2,1,f3,44,2,1,e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(b6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+righthand;
+ add_noteheads(c5);
+ beam(45,1,1,b6,47,1,1,c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+ beam(45,2,1,g3,46,2,1,e4,47,2,1,e3,48,2,1,e4);
+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(f3);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+ beam(50,2,1,f3,51,2,1,e3,52,2,1,f3,53,2,1,d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+ beam(54,2,1,f3,55,2,1,d4,56,2,1,e3,57,2,1,d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(a6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+righthand;
+ add_noteheads(f5);
+ beam(50,1,1,d5,52,1,1,a5,54,1,1,f5,56,1,1,d5,58,1,1,a6,60,1,1,f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+ beam(58,2,1,f3,59,2,1,d4,60,2,1,d3,61,2,1,d4);
+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(b4);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+ beam(63,1,1,b4,65,1,1,g3);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b6);
+ beam(63,2,1,g5,64,2,1,f5,65,2,1,g5,66,2,1,b6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+ beam(67,1,1,e3,69,1,1,g3);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b6);
+ beam(67,2,1,c5,68,2,1,b6,69,2,1,d5,70,2,1,b6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+ beam(71,1,1,c3,73,1,1,e3);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b6);
+ beam(71,2,1,e5,72,2,1,b6,73,2,1,c5,74,2,1,b6);
+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(f5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ beam(76,1,1,a4,78,1,1,f3);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a6);
+ beam(76,2,1,f5,77,2,1,e5,78,2,1,f5,79,2,1,a6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+righthand;
+ add_noteheads(b5);
+ add_natural(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ beam(80,1,1,d3,82,1,1,f3);
+righthand;
+ add_noteheads(c5);
+ add_sharp(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a6);
+ beam(80,2,1,b5,81,2,1,a6,82,2,1,c5,83,2,1,a6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b3);
+ add_natural(b3);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a6);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+ beam(84,1,1,b3,86,1,1,d3);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(a6);
+ beam(84,2,1,d5,85,2,1,a6,86,2,1,b5,87,2,1,a6);
+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(g3);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+ beam(89,1,1,g3,91,1,1,e3);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g5);
+ beam(89,2,1,e5,90,2,1,d5,91,2,1,e5,92,2,1,g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+ add_sharp(c3);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+ beam(93,1,1,c3,95,1,1,e3);
+righthand;
+ add_noteheads(b5);
+ add_natural(b5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g5);
+ beam(93,2,1,a5,94,2,1,g5,95,2,1,b5,96,2,1,g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a3);
+righthand;
+ add_noteheads(c5);
+ add_sharp(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+ beam(97,1,1,a3,99,1,1,c3);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g5);
+ beam(97,2,1,c5,98,2,1,g5,99,2,1,a5,100,2,1,g5);
+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(d2);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+ add_natural(c3);
+righthand;
+ add_noteheads(d5);
+ beam(102,1,1,f5,104,1,1,d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+ beam(102,2,1,d2,103,2,1,d3,104,2,1,c3,105,2,1,d3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g2);
+righthand;
+ add_noteheads(b5);
+ add_flat(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a3);
+righthand;
+ add_noteheads(d5);
+ beam(106,1,1,b5,108,1,1,d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+ beam(106,2,1,g2,107,2,1,d3,108,2,1,a3,109,2,1,d3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b3);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g2);
+righthand;
+ add_noteheads(f5);
+ beam(110,1,1,g4,112,1,1,f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+ beam(110,2,1,b3,111,2,1,d3,112,2,1,g2,113,2,1,d3);
+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(c2);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b3);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+ beam(115,2,1,c2,116,2,1,c3,117,2,1,b3,118,2,1,c3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f2);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g2);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+ beam(119,2,1,f2,120,2,1,c3,121,2,1,g2,122,2,1,c3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a3);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f2);
+righthand;
+ add_noteheads(e5);
+ add_flat(e5);
+ beam(115,1,1,e5,117,1,1,c5,119,1,1,a5,121,1,1,c5,123,1,1,f4,125,1,1,e5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+ beam(123,2,1,a3,124,2,1,c3,125,2,1,f2,126,2,1,c3);
+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(b3);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+righthand;
+ add_noteheads(e5);
+ add_flat(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+ beam(128,2,1,d5,129,2,1,f5,130,2,1,e5,131,2,1,f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+ beam(132,2,1,d5,133,2,1,f5,134,2,1,e5,135,2,1,f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ beam(128,1,1,b3,130,1,1,d3,132,1,1,f3,134,1,1,d3,136,1,1,b4,138,1,1,f3);
+righthand;
+ add_noteheads(e5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(f5);
+ beam(136,2,1,d5,137,2,1,f5,138,2,1,e5,139,2,1,f5);
+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(d4);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+ add_flat(e4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+ beam(141,2,1,d4,142,2,1,f4,143,2,1,e4,144,2,1,f4);
+righthand;
+ add_noteheads(d5);
+ beam(141,2,1,b5,142,2,1,d5,143,2,1,c5,144,2,1,d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+ beam(145,2,1,d4,146,2,1,f4,147,2,1,e4,148,2,1,f4);
+righthand;
+ add_noteheads(d5);
+ beam(145,2,1,b5,146,2,1,d5,147,2,1,c5,148,2,1,d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e4);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f4);
+ beam(149,2,1,d4,150,2,1,f4,151,2,1,e4,152,2,1,f4);
+righthand;
+ add_noteheads(d5);
+ beam(149,2,1,b5,150,2,1,d5,151,2,1,c5,152,2,1,d5);
+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(b4);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+ beam(154,2,1,b4,155,2,1,d4,156,2,1,c4,157,2,1,d4);
+righthand;
+ add_noteheads(b5);
+ beam(154,2,1,g4,155,2,1,b5,156,2,1,a5,157,2,1,b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+ beam(158,2,1,b4,159,2,1,d4,160,2,1,c4,161,2,1,d4);
+righthand;
+ add_noteheads(b5);
+ beam(158,2,1,g4,159,2,1,b5,160,2,1,a5,161,2,1,b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c4);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d4);
+ beam(162,2,1,b4,163,2,1,d4,164,2,1,c4,165,2,1,d4);
+righthand;
+ add_noteheads(b5);
+ beam(162,2,1,g4,163,2,1,b5,164,2,1,a5,165,2,1,b5);
+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(g3);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(c4);
+ beam(167,1,1,e4,169,1,1,c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+ beam(167,2,1,g3,168,2,1,b4,169,2,1,a4,170,2,1,b4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(e4);
+ beam(171,1,1,g4,173,1,1,e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+ beam(171,2,1,g3,172,2,1,b4,173,2,1,a4,174,2,1,b4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(g4);
+ beam(175,1,1,b5,177,1,1,g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+ beam(175,2,1,g3,176,2,1,b4,177,2,1,a4,178,2,1,b4);
+end_of_char;
+new_char(-least_spaced);
+lefthand;
+ barline_(10);
+righthand;
+ barline_(10);
+end_of_char;
+end_of_block;
+make_line(next_char); showstats; end.
diff --git a/macros/texmuse/Samples/tex/fmajor3.mf b/macros/texmuse/Samples/tex/fmajor3.mf
new file mode 100644
index 0000000000..468ba74f58
--- /dev/null
+++ b/macros/texmuse/Samples/tex/fmajor3.mf
@@ -0,0 +1,350 @@
+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_ := -1;
+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(16);
+lefthand;
+ add_noteheads(e3);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(d5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+ beam(1,1,1,e3,3,1,1,c3);
+righthand;
+ add_noteheads(c5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+ beam(1,2,1,c5,2,2,1,d5,3,2,1,c5,4,2,1,b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b5);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+ beam(5,1,1,f3,7,1,1,c3);
+righthand;
+ add_noteheads(a5);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g4);
+ beam(5,2,1,a5,6,2,1,b5,7,2,1,a5,8,2,1,g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ beam(9,1,1,a4,11,1,1,f3);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(e4);
+ add_flat(e4);
+ beam(9,2,1,f4,10,2,1,g4,11,2,1,f4,12,2,1,e4);
+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(b4);
+righthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b4);
+righthand;
+ add_noteheads(g4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+ beam(14,2,1,b4,15,2,1,c3,16,2,1,b4,17,2,1,a4);
+righthand;
+ add_noteheads(f4);
+ beam(14,1,1,d4,16,2,1,g4,17,2,1,f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(e4);
+ add_natural(e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a4);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g3);
+righthand;
+ add_noteheads(e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+ beam(18,2,1,g3,19,2,1,a4,20,2,1,g3,21,2,1,f3);
+righthand;
+ add_noteheads(d4);
+ beam(18,2,1,e4,19,2,1,f4,20,2,1,e4,21,2,1,d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+righthand;
+ add_noteheads(c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(d4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+righthand;
+ add_noteheads(c4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+ beam(22,2,1,e3,23,2,1,f3,24,2,1,e3,25,2,1,d3);
+righthand;
+ add_noteheads(b4);
+ beam(22,2,1,c4,23,2,1,d4,24,2,1,c4,25,2,1,b4);
+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(c3);
+righthand;
+ add_noteheads(a4);
+end_of_char;
+new_char(16);
+righthand;
+ add_noteheads(b4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f3);
+righthand;
+ add_noteheads(a4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+ beam(27,1,1,c3,29,2,1,f3,30,2,1,e3);
+righthand;
+ add_noteheads(g3);
+ beam(27,2,1,a4,28,2,1,b4,29,2,1,a4,30,2,1,g3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+righthand;
+ add_noteheads(f3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(e3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+ beam(31,2,1,d3,32,2,1,e3,33,2,1,d3,34,2,1,c3);
+righthand;
+ add_noteheads(e4);
+ beam(31,1,1,f3,33,2,1,f4,34,2,1,e4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b3);
+righthand;
+ add_noteheads(f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(d3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b3);
+righthand;
+ add_noteheads(a4);
+ beam(35,1,1,f4,37,1,1,a4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a3);
+ beam(35,2,1,b3,36,2,1,d3,37,2,1,b3,38,2,1,a3);
+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(g2);
+righthand;
+ add_noteheads(b4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(g2);
+righthand;
+ add_noteheads(f4);
+ beam(40,1,1,b4,42,1,1,f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(f2);
+ beam(40,2,1,g2,41,2,1,a3,42,2,1,g2,43,2,1,f2);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(c3);
+righthand;
+ add_noteheads(a4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b3);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(a3);
+righthand;
+ add_noteheads(f4);
+ beam(44,1,1,a4,46,1,1,f4);
+end_of_char;
+new_char(16);
+lefthand;
+ add_noteheads(b3);
+ beam(44,2,1,c3,45,2,1,b3,46,2,1,a3,47,2,1,b3);
+end_of_char;
+new_char(32);
+lefthand;
+ add_noteheads(c3);
+righthand;
+ add_noteheads(g3);
+end_of_char;
+new_char(32);
+lefthand;
+ add_noteheads(c2);
+ beam(48,1,1,c3,49,1,1,c2);
+righthand;
+ add_noteheads(e4);
+ beam(48,1,1,g3,49,1,1,e4);
+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(f2);
+ regular_stem;
+righthand;
+ add_noteheads(f4);
+ regular_stem;
+end_of_char;
+new_char(64);
+lefthand;
+ add_rest(0,0);
+righthand;
+ add_rest(0,0);
+end_of_char;
+new_char(64);
+lefthand;
+ add_rest(0,0);
+righthand;
+ add_rest(0,0);
+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.