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