summaryrefslogtreecommitdiff
path: root/macros/musixtex/tex/musixsty.tex
diff options
context:
space:
mode:
Diffstat (limited to 'macros/musixtex/tex/musixsty.tex')
-rw-r--r--macros/musixtex/tex/musixsty.tex388
1 files changed, 388 insertions, 0 deletions
diff --git a/macros/musixtex/tex/musixsty.tex b/macros/musixtex/tex/musixsty.tex
new file mode 100644
index 0000000000..794a7ce336
--- /dev/null
+++ b/macros/musixtex/tex/musixsty.tex
@@ -0,0 +1,388 @@
+%
+% This file is part of MusiXTeX
+%
+% MusiXTeX is free software; you can redistribute it and/or modify
+% it under the terms of the GNU General Public License as published by
+% the Free Software Foundation; either version 2, or (at your option)
+% any later version.
+%
+% MusiXTeX is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+% GNU General Public License for more details.
+%
+% You should have received a copy of the GNU General Public License
+% along with MusiXTeX; see the file COPYING. If not, write to
+% the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+% Boston, MA 02111-1307, USA.
+%
+\ifx\undefined\Tenpoint \else \endinput\fi
+
+\immediate\write16{MusiXtextSTYle T.123\space<04 March 2016>}%
+
+% modified by RDT to be independent of Computer Modern (other than Math fonts)
+% RDT: added \headline{..} in \maketitle
+
+\edef\catcodeat{\the\catcode`\@}\catcode`\@=11
+\edef\catcode@gt{\the\catcode`\>}\catcode`\>=12
+\edef\catcode@lt{\the\catcode`\<}\catcode`\<=12
+
+% non musical procedures used in typesetting the non-musical
+% texts together with musictex
+
+% eight point math fonts
+
+\font\eighti=cmmi8 \skewchar\eighti='177
+\font\eightsy=cmsy8 \skewchar\eightsy='60
+%
+% nine point math fonts
+%
+\font\ninei=cmmi9 \skewchar\ninei='177
+\font\ninesy=cmsy9 \skewchar\ninesy='60
+%
+% eleven point math fonts (RDT: not used?)
+%
+\font\eleveni=cmmi10 scaled \magstephalf \skewchar\eleveni='177
+\font\elevensy=cmsy10 scaled \magstephalf \skewchar\elevensy='60
+%
+% twelve point math fonts
+%
+\font\twelvei=cmmi12 \skewchar\twelvei='177
+\font\twelvesy=cmsy10 scaled \magstep1 \skewchar\twelvesy='60
+%
+% fourteen point math fonts
+%
+\font\frti=cmmi12 scaled \magstep1 \skewchar\frti='177
+\font\frtsy=cmsy10 scaled \magstep2 \skewchar\frtsy='60
+%
+% seventeen point math fonts
+%
+\font\svti=cmmi12 scaled \magstep2 \skewchar\svti='177
+\font\svtsy=cmsy10 scaled \magstep3 \skewchar\svtsy='60
+%
+% twenty point math fonts
+%
+\font\twtyi=cmmi12 scaled \magstep3 \skewchar\twtyi='177
+\font\twtysy=cmsy10 scaled \magstep4\skewchar\twtysy='60
+%
+% twenty five point math fonts
+%
+\font\twfvi=cmmi12 scaled \magstep4 \skewchar\twfvi='177
+\font\twfvsy=cmsy10 scaled \magstep5 \skewchar\twfvsy='60
+%
+%
+% SEVERAL DIFFERENT POINT SIZES
+%
+\def\Twfvpoint{\normalbaselineskip=30pt
+ \def\rm{\fam0\twfvrm}%
+ \def\it{\fam\itfam\twfvit}%
+ \def\sl{\fam\slfam\twfvsl}%
+ \def\bf{\fam\bffam\twfvbf}%
+ \def\smc{\twfvrm}%
+ \def\mit{\fam 1}%
+ \def\cal{\fam 2}%
+ \textfont0=\twfvrm \scriptfont0=\twtyrm \scriptscriptfont0=\svtrm
+ \textfont1=\twfvi \scriptfont1=\twtyi \scriptscriptfont1=\svti
+ \textfont2=\twfvsy \scriptfont2=\twtysy \scriptscriptfont2=\svtsy
+ \textfont3=\tenex \scriptfont3=\tenex \scriptscriptfont3=\tenex
+ \textfont\itfam=\twfvit \scriptfont\itfam=\twtyit
+ \textfont\slfam=\twfvsl \scriptfont\slfam=\twtysl
+ \textfont\bffam=\twfvbf \scriptfont\bffam=\twtybf
+ \scriptscriptfont\bffam=\twtybf
+ \setbox\strutbox=\hbox{\vrule height 22pt depth 8pt width 0pt}%
+ \def\tt{\twfvtt}\normalbaselines\rm
+}
+\def\twfvpoint{\Twfvpoint}
+%
+\def\Twtypoint{\normalbaselineskip=25pt
+ \def\rm{\fam0\twtyrm}%
+ \def\it{\fam\itfam\twtyit}%
+ \def\sl{\fam\slfam\twtysl}%
+ \def\bf{\fam\bffam\twtybf}%
+ \def\smc{\twtyrm}%
+ \def\mit{\fam 1}%
+ \def\cal{\fam 2}%
+ \textfont0=\twtyrm \scriptfont0=\svtrm \scriptscriptfont0=\frtrm
+ \textfont1=\twtyi \scriptfont1=\svti \scriptscriptfont1=\frti
+ \textfont2=\twtysy \scriptfont2=\svtsy \scriptscriptfont2=\frtsy
+ \textfont3=\tenex \scriptfont3=\tenex \scriptscriptfont3=\tenex
+ \textfont\itfam=\twtyit \scriptfont\itfam=\svtit
+ \textfont\slfam=\twtysl \scriptfont\slfam=\svtsl
+ \textfont\bffam=\twtybf \scriptfont\bffam=\svtbf
+ \scriptscriptfont\bffam=\svtbf
+ \setbox\strutbox=\hbox{\vrule height 18pt depth 7pt width 0pt}%
+ \def\tt{\twtytt}\normalbaselines\rm}
+\def\twtypoint{\Twtypoint}
+%
+\def\Svtpoint{\normalbaselineskip=21pt
+ \def\rm{\fam0\svtrm}%
+ \def\it{\fam\itfam\svtit}%
+ \def\sl{\fam\slfam\svtsl}%
+ \def\bf{\fam\bffam\svtbf}%
+ \def\smc{\svtrm}%
+ \def\mit{\fam 1}%
+ \def\cal{\fam 2}%
+ \textfont0=\svtrm \scriptfont0=\frtrm \scriptscriptfont0=\twelverm
+ \textfont1=\svti \scriptfont1=\frti \scriptscriptfont1=\twelvei
+ \textfont2=\svtsy \scriptfont2=\frtsy \scriptscriptfont2=\twelvesy
+ \textfont3=\tenex \scriptfont3=\tenex \scriptscriptfont3=\tenex
+ \textfont\itfam=\svtit \scriptfont\itfam=\frtit
+ \textfont\slfam=\svtsl \scriptfont\slfam=\frtsl
+ \textfont\bffam=\svtbf \scriptfont\bffam=\frtbf
+ \scriptscriptfont\bffam=\frtbf
+ \setbox\strutbox=\hbox{\vrule height 14.5pt depth 6.5pt width 0pt}%
+ \def\tt{\svttt}\normalbaselines\rm}
+\def\svtpoint{\Svtpoint}
+%
+\def\Frtpoint{\normalbaselineskip=17pt
+ \def\rm{\fam0\frtrm}%
+ \def\it{\fam\itfam\frtit}%
+ \def\sl{\fam\slfam\frtsl}%
+ \def\bf{\fam\bffam\frtbf}%
+ \def\smc{\frtrm}%
+ \def\mit{\fam 1}%
+ \def\cal{\fam 2}%
+ \textfont0=\frtrm \scriptfont0=\twelverm \scriptscriptfont0=\eightrm
+ \textfont1=\frti \scriptfont1=\twelvei \scriptscriptfont1=\eighti
+ \textfont2=\frtsy \scriptfont2=\twelvesy \scriptscriptfont2=\eightsy
+ \textfont3=\tenex \scriptfont3=\tenex \scriptscriptfont3=\tenex
+ \textfont\itfam=\frtit \scriptfont\itfam=\twelveit
+ \textfont\slfam=\frtsl \scriptfont\slfam=\twelvesl
+ \textfont\bffam=\frtbf \scriptfont\bffam=\twelvebf
+ \scriptscriptfont\bffam=\twelvebf
+ \setbox\strutbox=\hbox{\vrule height 12pt depth 5pt width 0pt}%
+ \def\tt{\frttt}\normalbaselines\rm}
+\def\frtpoint{\Frtpoint}
+%
+\def\Twlpoint{\normalbaselineskip=14pt
+ \def\rm{\fam0\twelverm}%
+ \def\it{\fam\itfam\twelveit}%
+ \def\sl{\fam\slfam\twelvesl}%
+ \def\bf{\fam\bffam\twelvebf}%
+ \def\smc{\twelverm}%
+ \def\mit{\fam 1}%
+ \def\cal{\fam 2}%
+ \textfont0=\twelverm \scriptfont0=\tenrm \scriptscriptfont0=\eightrm
+ \textfont1=\twelvei \scriptfont1=\teni \scriptscriptfont1=\eighti
+ \textfont2=\twelvesy \scriptfont2=\tensy \scriptscriptfont2=\eightsy
+ \textfont3=\tenex \scriptfont3=\tenex \scriptscriptfont3=\tenex
+ \textfont\itfam=\twelveit \scriptfont\itfam=\tenit
+ \textfont\slfam=\twelvesl \scriptfont\slfam=\tensl
+ \textfont\bffam=\twelvebf \scriptfont\bffam=\tenbf
+ \scriptscriptfont\bffam=\tenbf
+ \setbox\strutbox=\hbox{\vrule height 10pt depth 4pt width 0pt}%
+ \def\tt{\twelvett}\normalbaselines\rm}
+\def\twlpoint{\Twlpoint}
+\def\twelvepoint{\Twlpoint}
+%
+\def\Tenpoint{\normalbaselineskip\tw@lv@\p@
+ \def\rm{\fam\z@\tenrm}%
+ \def\it{\fam\itfam\tenit}%
+ \def\sl{\fam\slfam\tensl}%
+ \def\bf{\fam\bffam\tenbf}%
+ \let\smc\tenrm
+ \def\mit{\fam\@ne}%
+ \def\cal{\fam\tw@}%
+ \textfont0\tenrm \scriptfont0\eightrm \scriptscriptfont0\eightrm
+ \textfont1\teni \scriptfont1\eighti \scriptscriptfont1\eighti
+ \textfont2\tensy \scriptfont2\eightsy \scriptscriptfont2\eightsy
+ \textfont3\tenex \scriptfont3\tenex \scriptscriptfont3\tenex
+ \textfont\itfam\tenit \scriptfont\itfam=\eightit
+ \textfont\slfam\tensl \scriptfont\slfam=\eightsl
+ \textfont\bffam\tenbf \scriptfont\bffam\eightbf
+ \scriptscriptfont\bffam\eightbf
+ \setbox\strutbox\hbox{\vrule\@height8\h@lf\p@\@depth3\h@lf\p@\@width\z@}%
+ \let\tt\tentt \normalbaselines\rm}
+\let\tenpoint\Tenpoint
+
+\def\Eightpoint{\normalbaselineskip\t@n\p@
+ \def\rm{\fam\z@\eightrm}%
+ \def\it{\fam\itfam\eightit}%
+ \def\sl{\fam\slfam\eightsl}%
+ \def\bf{\fam\bffam\eightbf}%
+ \def\tt{\eighttt}
+ \def\mit{\fam\@ne}%
+ \def\cal{\fam\tw@}%
+ \textfont0\eightrm \scriptfont0\eightrm \scriptscriptfont0\eightrm
+ \textfont1\eighti \scriptfont1\eighti \scriptscriptfont1\eighti
+ \textfont2\eightsy \scriptfont2\eightsy \scriptscriptfont2\eightsy
+ \textfont3\tenex \scriptfont3\tenex \scriptscriptfont3\tenex
+ \textfont\itfam\eightit
+ \textfont\slfam\eightsl
+ \textfont\bffam\eightbf \scriptfont\bffam\eightbf
+ \scriptscriptfont\bffam\eightbf
+ \setbox\strutbox\hbox{\vrule\@height\s@v@n\p@\@depth\thr@@\p@\@width\z@}%
+ \normalbaselines\rm}
+\def\eightpoint{\Eightpoint}
+%
+\def\Ninepoint{\normalbaselineskip=10pt
+ \def\rm{\fam0\ninerm}%
+ \def\it{\fam\itfam\nineit}%
+ \def\sl{\fam\slfam\ninesl}%
+ \def\bf{\fam\bffam\ninebf}%
+ \def\mit{\fam 1}%
+ \def\cal{\fam 2}%
+ \textfont0=\ninerm \scriptfont0=\ninerm \scriptscriptfont0=\ninerm
+ \textfont1=\ninei \scriptfont1=\ninei \scriptscriptfont1=\ninei
+ \textfont2=\ninesy \scriptfont2=\ninesy \scriptscriptfont2=\ninesy
+ \textfont3=\tenex \scriptfont3=\tenex \scriptscriptfont3=\tenex
+ \textfont\itfam=\nineit \scriptfont\itfam=\nineit
+ \textfont\slfam=\ninesl \scriptfont\slfam=\ninesl
+ \textfont\bffam=\ninebf \scriptfont\bffam=\ninebf
+ \scriptscriptfont\bffam=\ninebf
+ \setbox\strutbox=\hbox{\vrule height 7pt depth 3pt width 0pt}%
+ \def\tt{\ninettt}\normalbaselines\rm}
+\def\ninepoint{\Ninepoint}
+
+% GENERAL FOOTNOTES
+
+\newcount\footmarkcount
+
+\def\resetfootnote{\global\footmarkcount\z@ }
+\def\footmarknumber{\raise\smallvalue ex\hbox{%
+ \eightpoint\rm\the\footmarkcount}}
+
+\def\Footnote#1{\global\advance\footmarkcount\@ne
+ \footnote{\footmarknumber}{#1}}
+
+% \TeX book footnote
+% En cas de panique: couper en deux (une seule note autorisee)
+
+\def\markfootnote{{\advance\footmarkcount\@ne \footmarknumber}}
+
+\def\realfootnote#1{\global\advance\footmarkcount\@ne
+ \vfootnote{{\footmarknumber}#1}}
+
+% to enable inserting different \hsize (two columns case)
+\let\footnotehsize\empty
+
+\def\vfootnote#1{\insert\footins\bgroup\parskip\z@\eightpoint
+ \interlinepenalty\interfootnotelinepenalty
+ \splittopskip\ht\strutbox \advance\splittopskip\p@
+ \splitmaxdepth\dp\strutbox \floatingpenalty20000
+ \leftskip\z@ \rightskip\z@
+ \spaceskip\z@ \xspaceskip\z@
+ \eightpoint\footnotehsize\noindent{#1}\footstrut\futurelet\next\fo@t}
+
+\def\footnoterule{\vskip-\thr@@\p@\hrule\@width2truein \vskip 2.6\p@}
+
+\def\aujourdhui{\space\number\day\space%
+ \ifcase\month\or janvier\or f\'evrier\or mars\or avril\or mai\or juin\or
+ juillet\or ao\^ut\or septembre\or octobre\or novembre\or d\'ecembre\fi
+ \space\number\year}
+\def\today{\space%
+ \ifcase\month\or January\or February\or March\or April\or May\or June\or
+ July\or August\or September\or October\or November\or December\fi
+ \space\number\day,\space\number\year}
+\def\cenboxit#1{\centerline{\boxit{#1}}}
+\def\Item{\medskip\item}
+
+\newdimen\theslant
+\def\fup#1{\raise 0.8ex\hbox{\theslant=\fontdimen1\the\font\kernm.03em\kern \theslant\the\scriptfont\fam #1}}
+
+\def\umero{\fup{o}}
+\def\ieme{\fup{e}}
+\def\ier{\fup{er}}
+\let\titremorceau\empty
+\def\title#1{\def\titremorceau{#1}}
+\def\shorttitle{\title}
+\def\subtitle#1{\def\subt@itremorceau{#1}}
+\let\headt@itremorceau\undefined
+\def\headtitle#1{\def\headt@itremorceau{#1}}
+\def\fulltitle{\headtitle}
+\let\othert@itremorceau\empty
+\def\othermention#1{\def\othert@itremorceau{#1}}
+
+\let\headl@ne\undefined
+\def\headline#1{\def\headl@ne{#1}}
+
+\let\s@hortauthor\empty
+\def\shortauthor#1{\def\s@hortauthor{(#1)}}
+
+\def\fullauthor#1{\def\f@ullauthor{#1}}
+\def\author{\fullauthor}
+
+\newif\ifcopyright
+
+\def\outmorceau{\shipout\vbox{\vbox to \vsize{\vss\pagecontents\vss}\line{%
+\ifodd\pageno\sl \titremorceau\ \s@hortauthor
+\ifcopyright\rm$\copyright$\fi\hss \number\pageno
+\else\rm\number\pageno\hss\sl \titremorceau\ \s@hortauthor
+\ifcopyright\rm$\copyright$\fi\fi}}%
+ \global\advance\count0 by 1\relax
+ \ifnum\outputpenalty>-20000 \else\dosupereject\fi}%
+
+\output{\outmorceau}
+
+\def\maketitle{%
+\ifx\headl@ne\undefined\else\line{\headl@ne}\bigskip\fi% for version 123 RDT
+\centerline{\BIGfont \ifx\headt@itremorceau\undefined
+ \titremorceau\else\headt@itremorceau\fi}
+\medskip
+\ifx\subt@itremorceau\undefined\else
+ \centerline{\sl \subt@itremorceau}
+\medskip
+\fi
+
+
+\hbox to \hsize{\vtop{\def\\{\hss\egroup\hbox to 0.5\hsize\bgroup\relax}\relax
+ \hbox to 0.5\hsize
+ \bgroup\othert@itremorceau\hss
+ \egroup
+ }\hss
+ \vtop{\def\\{\egroup\hbox to 0.5\hsize\bgroup\relax\hss}\relax
+ \hbox to 0.5\hsize
+ \bgroup\hss\f@ullauthor
+ \egroup
+ }}
+\bigskip
+}
+
+
+\def\rectoverso#1{%
+\def\outmorceau{\shipout\hbox{\null\ifodd\pageno\kern #1\relax
+ \else\kern -#1\relax
+ \fi
+ \vbox{\vbox to \vsize{\vss\pagecontents\vss}\line{%
+\ifodd\pageno\sl \titremorceau\ \s@hortauthor
+\ifcopyright\rm$\copyright$\fi\hss \number\pageno
+\else\rm\number\pageno\hss\sl \titremorceau\ \s@hortauthor
+\ifcopyright\rm$\copyright$\fi\fi}}}%
+ \global\advance\count0 by 1\relax
+ \ifnum\outputpenalty>-20000 \else\dosupereject\fi}%
+
+\output{\outmorceau}}
+
+
+
+\catcode`\>=\catcode@gt
+\catcode`\<=\catcode@lt
+\catcode`\@=\catcodeat
+
+%%% A4 (210mm x 297mm):
+\hsize=190mm %%% adjust to increase/decrease printer margins
+\vsize=270mm %%% adjust to increase/decrease printer margins
+\hoffset=210mm\advance\hoffset-\hsize\divide\hoffset2
+\advance\hoffset-1.0in % TeX convention
+\voffset=297mm\advance\voffset-\vsize\divide\voffset2
+\advance\voffset-1.0in % TeX convention
+
+%%% letter-size (8.5in x 11.0in):
+%\hsize=7.5in %%% adjust to increase/decrease printer margins
+%\vsize=10.0in %%% adjust to increase/decrease printer margins
+%\hoffset=8.5in\advance\hoffset-\hsize\divide\hoffset2
+%\advance\hoffset-1.0in % TeX convention
+%\voffset=11.0in\advance\voffset-\vsize\divide\voffset2
+%\advance\voffset-1.0in % TeX convention
+
+%%% To determine the *minimal* margins supported by your
+%%% printer and check for printer mis-alignment, process
+%%% testpage.tex with LaTeX and print the result.
+
+\tenpoint
+
+%%%%%%% adjust here for a non-centering printer %%%%%%%%
+%\advance\hoffset 0mm
+%\advance\voffset 0mm
+
+\endinput