From e0c6872cf40896c7be36b11dcc744620f10adf1d Mon Sep 17 00:00:00 2001
From: Norbert Preining <norbert@preining.info>
Date: Mon, 2 Sep 2019 13:46:59 +0900
Subject: Initial commit

---
 info/examples/lgc2/mpp.tex | 206 +++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 206 insertions(+)
 create mode 100644 info/examples/lgc2/mpp.tex

(limited to 'info/examples/lgc2/mpp.tex')

diff --git a/info/examples/lgc2/mpp.tex b/info/examples/lgc2/mpp.tex
new file mode 100644
index 0000000000..452a3c88c2
--- /dev/null
+++ b/info/examples/lgc2/mpp.tex
@@ -0,0 +1,206 @@
+% File mpp.tex
+% include file for MusixTeX 
+%
+\input musixtex
+\input musixadd
+ 
+\catcode`@=11 % treat at signs as letters
+
+%  \y@v\noteskip \multiply\y@v\n@v
+%\qn@width and \elemskip
+
+
+%\def\notesh{\vnotes\p@seven\elemskip}% 16th trio
+%\def\notesh{\vnotes1.4\elemskip}% 16th trio
+\def\notesh{\vnotes\elemskip}%        16th trio
+%\def\notes{\vnotes2\elemskip}%       16th
+%\def\notesp{\vnotes2\h@lf\elemskip}% 16th point=8 trio
+%\def\Notesh{\vnotes1\h@lf\elemskip}% 8th trio, ok but bit too tight
+%\def\Notesh{\vnotes2.25\elemskip}%    8th trio
+\def\Notesh{\vnotes2\elemskip}%       8th trio
+%\def\Notes{\vnotes3\elemskip}%       8th
+\def\NOtesh{\vnotes4\elemskip}%       4 trio
+
+\def\emtpy{}
+%silly name
+\let\rightleftrepeat\leftrightrepeat
+\def\gobble#1{}
+\def\ugobble#1{}
+\def\lgobble#1{}
+\def\atswap#1#2{\zcharnote{#2}{#1}}
+\let\uatswap\atswap
+\let\latswap\atswap
+\def\finger#1#2{\atswap{{\smalltype\bf#1}}{#2}}
+\let\ufinger\finger
+\let\lfinger\finger
+%
+\def\text#1#2{\atswap{{\ppffstyle #1}}{#2}}
+\let\utext\text
+\let\ltext\text
+%
+\def\xplet#1{\atswap{\xpletstyle{#1}}}
+\let\uxplet\xplet
+\let\lxplet\xplet
+%
+\def\uupbow{\atswap{\upbow}}
+\def\lupbow{\atswap{\upbow}}
+\def\udownbow{\atswap{\downbow}}
+\def\ldownbow{\atswap{\downbow}}
+%
+\def\ufermata{\fermataup}
+\def\lfermata{\fermatadown}
+%
+\def\utrille#1{\text{\hbox to 0pt{tr\hss}}{#1}}
+\def\ushake#1{\rlap{\shake{#1}}}
+%
+%\def\ucsh#1{\raise3\Interligne\hbox{\hsk\hsk\csh{#1}\bsk\bsk}}
+%\def\ucsh#1{\raise3\Interligne\hbox{\hsk\hsk\csh{#1}\bsk}}
+\def\ucsh#1{\raise3\Interligne\rlap{\hsk\csh{#1}}}
+%
+%FMi\voffset-10mm
+\vsize120mm
+\hsize30.5pc
+\parindent5mm
+\nopagenumbers
+%
+%redefine notes
+\let\lwh\lw
+\let\rwh\rw
+\let\zc\zq
+%
+%complete set of note macro
+\def\rwp#1{\pt{#1}\rw{#1}}
+\def\lwp#1{\pt{#1}\lw{#1}}
+%
+\def\rhup#1{\pt{#1}\rhu{#1}}
+\def\rhlp#1{\pt{#1}\rhl{#1}}
+\def\lhup#1{\pt{#1}\lhu{#1}}
+\def\lhlp#1{\pt{#1}\lhl{#1}}
+%
+\def\rhup#1{\pt{#1}\rhu{#1}}
+\def\rhlp#1{\pt{#1}\rhl{#1}}
+\def\lhup#1{\pt{#1}\lhu{#1}}
+\def\lhlp#1{\pt{#1}\lhl{#1}}
+%
+\def\rqup#1{\pt{#1}\rqu{#1}}
+\def\rqlp#1{\pt{#1}\rql{#1}}
+\def\lqup#1{\pt{#1}\lqu{#1}}
+\def\lqlp#1{\pt{#1}\lql{#1}}
+%\def\rqp#1{\pt{\rq{#1}}
+\def\rqp#1{\rq{.#1}}
+\def\lqp#1{\pt\lq{#1}}
+\def\rqb#1#2{\rq{#2}}
+\def\lqb#1#2{\lq{#2}}
+%
+\def\rcup#1{\pt{#1}\rcu{#1}}
+\def\rclp#1{\pt{#1}\rcl{#1}}
+\def\lcup#1{\pt{#1}\lcu{#1}}
+\def\lclp#1{\pt{#1}\lcl{#1}}
+%\let\rc\rq
+%\let\lc\lq
+\def\rc#1{\rq{#1}}
+\def\lc#1{\lq{#1}}
+\def\rcp#1{\pt\rq{#1}}
+\def\lcp#1{\pt\lq{#1}}
+%
+%shifted points
+\def\rpt#1{\kern\qn@width\advancefalse\pt{{#1}}\kernm\qn@width}
+\def\rppt#1{\kern\qn@width\advancefalse\ppt{{#1}}\kernm\qn@width}
+%
+%redefine rests
+\let\whs\pause
+\let\ccs\qs
+\let\cccs\hs
+\let\hs\hpause
+\let\qs\qp
+%\let\qsp\qpp
+\def\qsp{\qp\ds}
+\def\qps{\qp\ds}
+%\let\cs\ds
+\def\cs{\ds}
+\let\csp\dsp
+\let\ccsp\qsp
+\let\ccccs\qqs
+%
+\let\zqs\qs
+\def\zcs{\cs}
+%
+%redefine accents: portato and staccato ( pizzicato is not an accent )
+\let\upt\ust
+\let\lpt\lst
+\let\ust\upz
+\let\lst\lpz
+\let\usp\uppz
+\let\lsp\lppz
+\let\bupt\bust
+\let\blpt\blst
+\let\bust\bupz
+\let\blst\blpz
+\let\busp\buppz
+\let\blsp\blppz
+%
+\def\thesubtitle{}
+\def\thelefttitle{}
+\def\therighttitle{}
+\def\thecomposer{}
+\def\thetempo{}
+\def\themetron{}
+\let\composer\righttitle
+%
+%complete accidentals
+\def\dna#1{\lna{#1}\na{#1}}
+\def\ldna#1{\llna{#1}\lna{#1}}
+\def\lldna#1{\lllna{#1}\llna{#1}}
+\def\llna#1{\loffset2\smallvalue{\na{#1}}}
+\def\llfl#1{\loffset2\smallvalue{\fl{#1}}}
+\def\llsh#1{\loffset2\smallvalue{\sh{#1}}}
+\def\lldfl#1{\loffset2\smallvalue{\dfl{#1}}}
+\def\lldsh#1{\loffset2\smallvalue{\dsh{#1}}}
+\def\lllna#1{\loffset3\smallvalue{\na{#1}}}
+%
+% bar numbering
+\def\barnumbering#1{
+  \ifnum#1=\z@\nobarnumbers
+  \else\barnumbers\def\freqbarno{#1}\fi}
+
+% really boxed barnumbers
+
+\def\wbarno@x{\lastbarpos\lin@pos \writ@volta
+  \ifx\iv@sw\@ne
+    \i@v\lin@pos \let\iv@sw\empty \let\tx@V\tx@v
+    \ifx\pv@sw\empty \let\v@sw\@ne \fi
+  \else
+    \n@iii\barno \divide\n@iii\freqbarno\relax
+    \ifnum\n@iii=\lastbarno
+    \else \y@\altplancher \advance\y@\systemheight \advance\y@\tw@\internote
+%      \raise\y@\llap{\it\the\barno\kernm\qn@width}\fi
+      \advance\y@\raisebarno\raise\y@\llap{\putbarno\kernm\qn@width}\fi
+  \fi
+  \n@iii\barno \divide\n@iii\freqbarno\relax \lastbarno\n@iii }
+
+\def\italic{\it\the\barno}
+\def\boxed{\boxit{\eightbf\the\barno}}
+\def\putbarno{\italic}
+\def\writebarno{\putbarno}
+\let\old@systemnumbers\systemnumbers
+\def\systemnumbers{\gdef\raisebarno{\f@ur\internote}\old@systemnumbers}
+\def\writebarno{\putbarno}
+\def\raisebarno{\@ne\internote}
+%
+\let\idecresc\icresc
+
+\def\smallsk{\off{\smallvalue\qn@width}}
+\def\smallsk{\hsk}
+\def\smallsk{\off{\qu@rt\noteskip}}
+\def\smallsk{\off{\smallvalue\elemskip}}
+%no occasionally small accidentals
+\bigaccid
+\def\putdynamics#1{\llap{#1\hskip.2em}}
+%\batchmode
+
+\catcode`@=12 % at signs are no longer letters
+
+\smallmusicsize
+
+%% end: mpp.tex
+
-- 
cgit v1.2.3

