summaryrefslogtreecommitdiff
path: root/obsolete/macros/texmuse/Samples/tex/dmajor.tex
diff options
context:
space:
mode:
Diffstat (limited to 'obsolete/macros/texmuse/Samples/tex/dmajor.tex')
-rw-r--r--obsolete/macros/texmuse/Samples/tex/dmajor.tex57
1 files changed, 57 insertions, 0 deletions
diff --git a/obsolete/macros/texmuse/Samples/tex/dmajor.tex b/obsolete/macros/texmuse/Samples/tex/dmajor.tex
new file mode 100644
index 0000000000..a48a8b63c6
--- /dev/null
+++ b/obsolete/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