summaryrefslogtreecommitdiff
path: root/macros/mtex/macros/mtexdemo.tex
diff options
context:
space:
mode:
Diffstat (limited to 'macros/mtex/macros/mtexdemo.tex')
-rw-r--r--macros/mtex/macros/mtexdemo.tex299
1 files changed, 299 insertions, 0 deletions
diff --git a/macros/mtex/macros/mtexdemo.tex b/macros/mtex/macros/mtexdemo.tex
new file mode 100644
index 0000000000..e1c8402c6e
--- /dev/null
+++ b/macros/mtex/macros/mtexdemo.tex
@@ -0,0 +1,299 @@
+%format plain
+%---------------------------------------------------
+\input german.sty
+%\input verbatim
+% macros for verbatim scanning
+% im wesentlichen dem file MANHDR TEX von DEK entnommen
+\catcode`@=11
+\def\tt{\fam\ttfam\tentt}%
+\newskip\ttglue \ttglue=.5em plus .25em minus .15em
+\chardef\other=12
+\def\ttverbatim{\begingroup
+ \catcode`\\=\other
+ \catcode`\{=\other
+ \catcode`\}=\other
+ \catcode`\$=\other
+ \catcode`\&=\other
+ \catcode`\#=\other
+ \catcode`\%=\other
+ \catcode`\~=\other
+ \catcode`\_=\other
+ \catcode`\^=\other
+ \catcode`\"=\other
+ \parskip \z@
+ \obeyspaces \obeylines \tt}
+
+\def\begintt{$$\let\par=\endgraf \ttverbatim
+ \catcode`\|=0 \rightskip-5pc \ttfinish}
+{\catcode`\|=0 |catcode`|\=\other % | is temporary escape character
+ |obeylines % end of line is active
+ |gdef|ttfinish#1^^M#2\endtt{|vbox{#2}|endgroup$$}}
+
+\catcode`\|=\active
+{\obeylines \gdef|{\ttverbatim \spaceskip\ttglue \let^^M=\ \let|=\endgroup}}
+%\def\ttspace{{\tt\hskip\ttglue}}
+
+\def\vrt{\hbox{\tt\char`\|}} % vertical line
+\def\dn{\hbox{\tt\char'14}} % downward arrow
+\def\up{\hbox{\tt\char'13}} % upward arrow
+\def\]{\hbox{\tt\char`\ }} % visible space
+
+\catcode`@=12 % at signs are no longer letters
+\def\verbatimon{\catcode`\|=\active}
+\def\verbatimoff{\catcode`\|=\other}
+\verbatimoff
+%--------------------------------------------------- end of verbatim.tex
+\nopagenumbers
+\headline{\eightrm \hfill Beispiele f"ur den Notensatz mit \TeX
+\hfill\hbox to 0pt{\hss Schofer/Steinbach 1987}}
+%---------------------------------------------------
+\input mtex
+%---------------------------------------------------
+\let\os=\^
+\let\us=\_
+\def\ks#1{\noindent\hbox{{\tt \char\hex5C}\bf#1}}
+\def\bs{\noindent\hbox{{\tt \char\hex5C}}}%Backslash
+\def\lk{\hbox{{\tt\char\hex7B}}}%linke Klammer auf
+\def\strich{{\hbox{\tt \char\hex7C}}}
+\def\dpkt{{\hbox{\tt \char\hex3A}}}%Doppelpunkt
+\def\gleich{{\hbox{\tt \char\hex3D}}}%
+\def\slash{\noindent{\hbox{\tt \char\hex2F}}}
+\def\blank{{\hbox{\tt \char\hex20}}}
+%
+\let\leftbrace=\{
+\def\{{\ifmmode\leftbrace\else{$\leftbrace$}\fi}
+\let\rightbrace=\}
+\def\}{\ifmmode\rightbrace\else{$\rightbrace$}\fi}
+%
+%
+\verbatimon
+\normalbaselines
+\openup\jot
+%
+%\universal %ist f"ur MTEX etwas zu breit
+\small %so gehts vielleicht besser
+%
+\title{\vbox{\hbox to 0pt{\hss 6 Suiten f"ur Cello Solo\hss}
+ \hbox to 0pt{\hss Suite II Menuet I\hss}}}
+\poet{\vtop{\hbox to 0pt{F"ur Viola "ubertragen \hss}
+ \hbox to 0pt{von Franz Schmidtner\hss}}}
+\composer{Johann Sebastian Bach}
+\parindent 20pt
+\beginsong\alto\F\meter3/4%
+\rchord \h5\h7\h9\endchord\v{10}\|%
+\two{\group{\\{\a{10}}\\{\a9}\\{\a{10}}\\{\a8}}{\\{10}\\{9}\\{10}\\{8}}%
+\ubeam14\uslur12\go}{\rchord \a4\a6\endchord}%
+\v9\|\rchord\v3\v5\endchord\v8%
+\group{\\{\a7}\\{\a6}}{\\{7}\\{6}}\lbeam12\go\|%
+\two{\group{\\{\a7}\\{\a6}\\{\a5}\\{\x4\a4}\\{\n3\a3}\\{\a2}}
+{\\{7}\\{6}\\{5}\\{4}\\{3}\\{2}}\ubeam16\uslur13\go}%
+{\a2}\|\rchord \h5\h7\h9\endchord\v{10}\|%
+\two{\group{\\{\a{10}}\\{\a9}\\{\tenuto\a{10}}\\{\tenuto\a8\noaccent}}
+{\\{10}\\{9}\\{10}\\{8}}\ubeam14\uslur12\go}{\a6}%
+\v{11}\|\rchord\v7\v9\endchord\rchord\v3\v7\v{12}\endchord
+\rchord\v1\v8\v{13}\endchord\|\rchord\h2\.1\h6\.1\x{11}\h{11}\.1\endchord
+\leftrightrepeat
+\rchord\h9\h{13}\endchord
+{\def\beamlist{\\{1-3,}\\{2-3,}}%
+\group{\\{\a{12}}\\{\s{13}}\\{\s{14}}}{\\{12}\\{13}\\{14}}\lbeam13%
+\uslur13\go}\|
+\two{\group{\\{\a{13}}\\{\a{12}}\\{\x{11}\a{11}}\\{\a{13}}\\{\a9}\\{\a8}}
+{\\{13}\\{12}\\{11}\\{13}\\{9}\\{8}}\ubeam16\uslur15\go}{\a8}\|%
+\two{\group{\\{\v9}\\{\v{12}}}{\\{9}\\{12}}\uslur12\go}{\h7}%
+\x{11}\two{\v{11}}{\v6}\|%
+\two{\group{\\{\a{15}}\\{\a{14}}\\{\a{13}}\\{\a{14}}\\{\a{12}}%
+\\{\n{11}\a{11}}}
+{\\{15}\\{14}\\{13}\\{14}\\{12}\\{11}}\ubeam16\uslur15\go}{\a5}\|%
+\two{\h{10}}{\group{\\{\v8}\\{\v7}}{\\{8}\\{7}}\lslur12\go}%
+\two{\v{11}}{\v6}\|%
+\two{\group{\\{\a9}\\{\a8}\\{\a9}\\{\a7}}{\\{9}\\{8}\\{9}\\{7}}\ubeam14%
+\go}{\a7}%
+\rchord\v{12}\v6\v3\endchord\|\rchord\v{11}\v7\v2\endchord
+\group{\\{\a{10}}\\{\a9}\\{\a8}\\{\a9}}{\\{10}\\{9}\\{8}\\{9}}\lbeam14\go
+\|\group{\\{\a7}\\{\a6}\\{\a7}\\{\a9}\\{\a8}\\{\a{10}}}
+{\\{7}\\{6}\\{7}\\{9}\\{8}\\{10}}\lbeam16\go\|%
+\x7\two{\tr\h9\noaccent}{\h7}%
+\two{\v{10}}{\pv}\|\b6%
+\two{\group{\\{\a8}\\{\a7}\\{\a8}\\{\a6}}
+{\\{8}\\{7}\\{8}\\{6}}\ubeam14\uslur12\go}{\a6}%
+\x7\tr\v7\noaccent\|\rchord\v{12}\v8\v3\endchord\rchord\v{11}\v8\v4\endchord
+\two{\group{\\{\a{10}}\\{\a9}}{\\{10}\\{9}}\ubeam12\uslur12\go}{\v5}\|%
+\group{\\{\rchord\a{11}\a5\a1\endchord
+}\\{\a{10}}\\{\a9}\\{\a{10}}\\{\a8}\\{\a{10}}}
+{\\{1}\\{10}\\{9}\\{10}\\{8}\\{10}}\lbeam16\go\|%
+\two{\group{\\{\v{12}}\\{\x{11}\v{11}}}
+{\\{12}\\{11}}\uslur12\go}{\v8\pv}\n7%
+\two{\v{12}}{\v7}\|\x4%
+\two{\group{\\{\a8}\\{\a7}\\{\a8}\\{\a6}}
+{\\{8}\\{7}\\{8}\\{6}}\ubeam14\uslur12\go}{\a4}%
+\two{\v7}{\v5}\|%
+\group{\\{\a1}\\{\a8}}{\\{1}\\{8}}\lbeam12\go\two{\tr\v6\.1}{\v2\.1}%
+\two{\a5}{\raise-1.5\nhh\hbox{\pa}}\|\lchord\h5\.1\h2\.1\h{-2}\.1\endchord
+\rightrepeat
+\endsong
+\parindent0pt
+{\eightrm
+Aus: Johann Sebastian Bach, Sechs Suiten, f"ur Viola bearbeitet von
+Franz Schmidtner, Musikverlag Hans Sikorski, Hamburg.
+}
+\vskip0.5cm
+F"ur dieses Musikst"uck lautet die Eingabe:
+\vskip0.5cm
+%%%%%%%%%%%%%%%%%%
+%%%%% bach %%%%%%%
+%%%%%%%%%%%%%%%%%%
+{\bf !!}
+\ks{title}\{6 Suiten f"ur Cello Solo
+\bs{atop} Suite II Menuet I\}\par
+\ks{composer}\{Johann Sebastian Bach\}
+\ks{poet}\{F"ur Viola "ubertragen \bs{atop} von Franz Schmidtner\}\par
+\ks{alto}\ks{F}\ks{meter}\{{\bf3}\slash {\bf4}\}\ks{two}
+\par{\bf \{\ \ \ \ks{chord}\{2`d f a\} 4h\strich
+\ks{chord}\{'8c `e\}\slash\ \slash\ \slash\ 4a\strich
+\par
+\ks{chord}\{4,h `d\} g\ks{beam}\{8f e\}\strich
+,8a \slash\ \slash\ \slash\ \slash\ \slash\ \strich
+\ks{chord}\{`2d f a\} 4h\strich 8e
+\slash\ \slash\ \slash\
+{`}{`}4c \strich\par
+\ks{chord}\{4`f a\}\ks{chord}\{,h `f {`}{`}d\}
+\ks{chord}\{,g `g {`}{`}e\}\strich
+\par\ks{chord}\{2.,a ,`e ,x{`}{`}c\}
+\dpkt\strich\strich\dpkt
+\par\ks{chord}\{2`a {`}{`}e\}\ks{slur}\{\ks{beam}\{8d 6e f\}\}\strich
+8`g\slash\ \slash\ \slash\ \slash\ \slash\ \strich
+2f \slash\ 4e\strich 8d \slash\ \slash\ \slash\ \slash\ \slash\strich
+\ks{slur}\{4g f\}e\strich\par
+ 8f\slash\ \slash\ \slash\
+\ks{chord}\{4,h `e {`}{`}d\}\strich\ks{chord}\{4,a `f {`}{`}c\}
+\ks{beam}\{8`h a g a\}\strich\par \ks{beam}\{8f e f a g h\}\strich
+2xf 4p \strich b8e \slash\ \slash\ \slash\
+4xf \ks{tr}\strich\ks{chord}\{4,h `g {`}{`}d\}
+\ks{chord}\{4`c g {`}{`}c\} `d\slash\ \strich
+\par\ks{beam}\{\ks{chord}\{,8g `d {`}{`}c\} 8`h a h g h\}\strich
+4g p nf\strich 8xc \slash\ \slash\ \slash\ 4d\strich
+\par\ks{beam}\{8,g `g\} 4.,a 8p\strich \ \slash\
+\dpkt\strich\strich\ \ \}\par
+\{\ \ \slash\ \slash\ \strich
+\ks{beam}\{\ks{slur}\{8{`}h a\} h g\}\slash\ \strich
+\slash\ \slash\ \slash\ \slash\ \strich
+\ks{beam}\{\ks{slur}\{'8f e d\}xc ,nh a\}\strich
+\slash\ \slash\ \strich\par\ks{beam}\{\ks{slur}\{8h a\}\ks{tenuto} h
+f \ks{noaccent}\ \slash\ \}\strich
+\slash\ \slash\ \slash\ \strich
+\slash\ \dpkt\strich\strich\dpkt\par
+\slash\ \slash\ \slash\ \slash\ \strich
+\ks{beam}\{\ks{slur}\{8{`}{`}e d xc e `a\}g\}\strich
+\ks{slur}\{`4a {`}{`}d\}xc\strich
+\ks{beam}\{\ks{slur}\{8{`}{`}g f e f d \}nc\}\strich\par
+`2h\slash\ {`}{`}4c\strich \ks{beam}\{8`a g a f\}\slash\ \strich
+\slash\ \slash\ \slash\ \slash\ \slash\strich
+\slash\ \slash\ \slash\ \slash\ \slash\ \slash\strich\par
+2`a \ks{tr} 4h\strich
+\ks{beam}\{\ks{slur}\{8g f\} g e\}\slash\strich
+\slash\ \slash\ \ks{beam}\{\ks{slur}\{8h a\}\}\strich
+\slash\ \slash\ \slash\ \slash\ \slash\ \slash\ \strich\par
+\ks{slur}\{{`}{`}4d `a\} {`}{`}d\strich
+\ks{beam}\{\ks{slur}\{8`g f\} g e\} 4f\strich
+\slash\ \slash\ 4.e \ks{tr} 8d\strich
+\ks{chord}\{2.,d .a `.d\}
+ \dpkt\strich\strich
+\ \ \} }{\bf!!}
+
+\vfill\eject
+\vskip2cm
+\title{Lobe den Herren}
+\composer{Hugo Distler}
+\def\@#1#2{{$\hbox{#1\hfill}\atop\hbox{#2\hfill}$}}
+\def\lv{{\leaders\hrule \hskip1cm plus 1fill}}
+\parindent 40pt
+\voice{Sopran}%
+\universal
+\beginsong\vio\G\^r{{\rm Schnell}}{\vrule height 7\nhh width0pt%
+\gluebrule}\meter3/4%
+\^{\mezzoforte}\_{\@{Lo-}{Mei-}}{\v2}%
+\_{\@{be}{ne}}{\v2}%
+\_{\@{den}{ge - }}{\v6}\|%
+\_{\@{Her-}{lie - }}{\v4\.1}\_{\@{ren, }{be - }}{\a3}%
+\_l{\@{den}{te }}{\v2}\|%
+\_l{\@{m"ach - }{See - }}{\v1}\_{\@{ti - }{le, }}{\v0}%
+\_{\@{gen }{das }}{\v{-1}}\|%
+\_{\@{K"o - }{ist }}{\h0}%
+\group{\\{\_n{\@{nig \lv }{mein \lv }}{\v1}}\\{\|\meter2/4}\\{\v1}}
+{\\{1}\\{0}\\{1}}\lslur13\go\_{\@{der }{Be- }}{\v2}\|\meter4/4%
+\_{\@{Eh - }{geh - }}{\h3}\_{\@{ren!}{ren.}}{\h2}\rightrepeat\meter3/4%
+%Ende Wiederholung
+\_{Kom-}\^{\forte}{\v6}\_{met}{\v6}\_{zu}{\v6}\|%
+\_{Hauf!}{\h7\.1}\caesura\|\_l{Psal - }{\v4}\_{ter}{\a5}%
+\_l{und }{\a5}%
+\group{\\{\_n{Har\hskip40pt - \hskip40pt -\hskip 40pt - \hskip40pt
+}{\v6}}\\{\|}\\{\a6}\\{\a7}\\{\a6}\\{\a4}\\{\v6}%
+\\{\|}\\{\a6}\\{\a7}\\{\v6\.1}\\{\a7}\\{\|}\\{\v6\.1}}
+{\\{6}\\{8}\\{6}\\{7}\\{6}\\{4}\\{6}\\{8}\\{6}\\{7}\\{6}\\{7}\\{8}\\{6}}%
+\lbeam36\lbeam9{10}\uslur13\uslur79\uslur1{14}\go
+\_{fe,}{\a5}\_l{wacht}{\v4}\|%
+\^{\piano}\_{auf, }{\h3}\group{\\{\_n{wacht}{\caesura\a4}}\\{\a2}}
+{\\{4}\\{2}}\ubeam12\go\|\^{\dec}\_{auf,}{\h3}%
+\group{\\{\_n{wacht}\^{zart}{\caesura\a4}}\\{\a2}}
+{\\{4}\\{2}}\ubeam12\go\|\^{\dec}\_{auf,}{\h6\.1}\caesura\|%
+\^{\forte}\_{las-}{\v{-1}}\_{set}{\v0\.1}\_{den}{\a1}\|%
+\meter4/4\_{Lob - }{\h2}\_{ge - }{\v3}\_{sang}{\v4}\|\meter7/4%
+\group{\\{\_n{h"o \hskip20pt - \hskip20pt - \hskip20pt
+- }{\h5}}\\{\v4\.1}\\{\a3}\\{\v2}\\{\h3}}
+{\\{5}\\{4}\\{3}\\{2}\\{9}}\uslur15\go
+\|\meter3/4\_{ren!}{\h2\.1}\=\endsong
+\parindent=0pt \eightrm
+Aus: R. Baum,``Geselliges Chorbuch I'' B"arenreiter-Verlag, Kassel und
+Basel.
+\vskip1cm \rm Auch zu diesem St"uck sei die Eingabe aufgef"uhrt:
+\vskip1cm
+%%%%%%%%%%%%%%%%
+%%%%%% distler%
+%%%%%%%%%%%%%%%%
+{\bf !!}\ks{title}\{Lobe den Herren\}
+\ks{composer}\{Hugo Distler\}
+\par
+\ks{voice}\{Sopran\}
+\ks{treble}\ks{signature}\{{`}{`}xf\}
+\ks{text}\{\ks{\os{ }l} Schnell\}
+\ks{meter}\{{\bf3}\slash {\bf4}\}\ks{vocal}
+\par {\bf\{\ \ \
+4g\ks{mezzoforte} g {`}{`}d\strich `h. 8a 4g\strich f e d \strich 2e
+\ks{slur}\{4f\strich\ks{meter}\{2\slash 4\} f\} 4g\strich
+\par\ks{meter}\{4\slash 4\} 2a 2g\dpkt\strich\strich
+\ks{meter}\{3\slash 4\} 4{`}{`}d d d \strich 2.e 0p\strich
+\par `4h 8{`}{`}c c
+\ks{group}\{4d\strich 8d e d `h 4{`}{`}d\strich 8d e 4.d 8e\strich 4.d\}
+\ks{gslur}\{1-3, 1-13\}\par
+\ks{gbeam}\{3-6, 9-10\} 8c 4`h\strich 2a
+\ks{piano} 0p\ks{beam}\{8h g\}\strich\par 2a \ks{decr} 0p
+%ks{beam}\{8h g\}\strich\par 2a \ks{decr} 0p
+\ks{beam}\{8h \ks{text}\{{\rm zart}\}g\}\strich
+ {`}{`}2.d\ks{decr} 0p\strich
+\par `4d\ks{forte} .e 8f\strich \ks{meter}\{4\slash 4\} 2g 4a h\strich
+\par
+\ks{meter}\{7\slash 4\}\ks{slur}\{`{}`2c `4.h 8a 4g 2a\}\strich
+\ks{meter}\{3\slash 4\} 2.g \gleich\ \ \ \} }
+\par
+\{\ \ \ \{Lo-\bs{atop} Mei-\} \{be\bs{atop} ne\} \{den\bs{atop} ge-\}
+\{Her-\bs{atop} lie-\} \{ren,\bs{atop} be-\}\par
+ \{den \bs{atop} te\} \{m"ach-\bs{atop} See-\}
+ \{ti-\bs{atop} le,\} \{gen\bs{atop} das\} \par
+ \{K"o-\bs{atop} ist\}
+ \{nig--\bs{atop} mein--\} \slash\
+ \{der\bs{atop} Be-\} \{Eh-\bs{atop} geh-\}
+ \{ren!\bs{atop} ren.\}
+\par Kom- met zu Hauf! Psal- ter und Har-
+\slash\ \slash\ \slash\
+\slash\ \slash\ \slash\
+\slash\ \slash\ \slash\ \slash\
+fe, \par
+wacht auf, wacht \slash\ auf, wacht\ \slash\ auf, \par
+las- set
+den Lob- ge- sang h"o-
+\slash\ \slash\ \slash\ \slash\
+ren!\ \ \ \}{\bf!!}
+\vfill\eject
+%
+%
+\bye