%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} 