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