diff options
Diffstat (limited to 'Master/texmf-dist/tex/generic/musixtex/musixsty.tex')
-rw-r--r-- | Master/texmf-dist/tex/generic/musixtex/musixsty.tex | 514 |
1 files changed, 514 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/generic/musixtex/musixsty.tex b/Master/texmf-dist/tex/generic/musixtex/musixsty.tex new file mode 100644 index 00000000000..ebe52ae3126 --- /dev/null +++ b/Master/texmf-dist/tex/generic/musixtex/musixsty.tex @@ -0,0 +1,514 @@ +% +% 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\write10{MusiXtextSTYle T.94\space<11 May 1999>}% + +\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 fonts + +\font\eighti=cmmi8 \skewchar\eighti='177 +\font\eightsy=cmsy8 \skewchar\eightsy='60 +\iflongDCfontnames + \font\eighttt=\fontid tt0800 + \font\eightsl=\fontid sl0800 +\else\iflongECfontnames + \font\eighttt=\fontid tt0800 + \font\eightsl=\fontid sl0800 +\else + \font\eighttt=\fontid tt8 + \font\eightsl=\fontid sl8 +\fi +\fi +% +% nine point fonts +% +\font\ninei=cmmi9 \skewchar\ninei='177 +\font\ninesy=cmsy9 \skewchar\ninesy='60 +\iflongDCfontnames + \font\ninett=\fontid tt0900 + \font\ninerm=\fontid r0900 + \font\ninesl=\fontid sl0900 + \font\nineit=\fontid ti0900 + \font\ninebf=\fontid bx0900 +\else\iflongECfontnames + \font\ninett=\fontid tt0900 + \font\ninerm=\fontid rm0900 + \font\ninesl=\fontid sl0900 + \font\nineit=\fontid ti0900 + \font\ninebf=\fontid bx0900 +\else + \font\ninerm=\fontid r9 + \font\ninett=\fontid tt9 + \font\ninesl=\fontid sl9 + \font\nineit=\fontid ti9 + \font\ninebf=\fontid bx9 +\fi +\fi +% +% eleven point fonts +% +\font\elvi=cmmi10 scaled \magstephalf \skewchar\elvi='177 +\font\elvsy=cmsy10 scaled \magstephalf \skewchar\elvsy='60 +\iflongDCfontnames + \font\elvtt=\fontid tt1095 + \font\elvrm=\fontid r1095 + \font\elvsl=\fontid sl1095 + \font\elvit=\fontid ti1095 + \font\elvbf=\fontid bx1095 +\else\iflongECfontnames + \font\elvtt=\fontid tt1095 + \font\elvrm=\fontid rm1095 + \font\elvsl=\fontid sl1095 + \font\elvit=\fontid ti1095 + \font\elvbf=\fontid bx1095 +\else + \font\elvrm=\fontid r9 scaled \magstephalf + \font\elvtt=\fontid tt9 scaled \magstephalf + \font\elvsl=\fontid sl9 scaled \magstephalf + \font\elvit=\fontid ti9 scaled \magstephalf + \font\elvbf=\fontid bx9 scaled \magstephalf +\fi +\fi +% +% twelve point fonts +% +\font\twli=cmmi12 \skewchar\twli='177 +\font\twlsy=cmsy10 scaled \magstep1 \skewchar\twlsy='60 +\iflongDCfontnames + \font\twlrm=\fontid r1200 + \font\twlbf=\fontid bx1200 + \font\twlsl=\fontid sl1200 + \font\twlit=\fontid ti1200 + \font\twltt=\fontid tt1200 +\else\iflongECfontnames + \font\twlrm=\fontid rm1200 + \font\twlbf=\fontid bx1200 + \font\twlsl=\fontid sl1200 + \font\twlit=\fontid ti1200 + \font\twltt=\fontid tt1200 +\else + \font\twlrm=\fontid r12 + \font\twlbf=\fontid bx12 + \font\twlsl=\fontid sl12 + \font\twlit=\fontid ti12 + \font\twltt=\fontid tt12 +\fi +\fi +% +% fourteen point fonts +% +\font\frti=cmmi12 scaled \magstep1 \skewchar\frti='177 +\font\frtsy=cmsy10 scaled \magstep2 \skewchar\frtsy='60 +\iflongDCfontnames + \font\frtrm=\fontid r1440 + \font\frtbf=\fontid bx1440 + \font\frtsl=\fontid sl1440 + \font\frtit=\fontid ti1440 + \font\frttt=\fontid tt1440 +\else\iflongECfontnames + \font\frtrm=\fontid rm1440 + \font\frtbf=\fontid bx1440 + \font\frtsl=\fontid sl1440 + \font\frtit=\fontid ti1440 + \font\frttt=\fontid tt1440 +\else + \font\frtrm=\fontid r12 scaled \magstep1 + \font\frtbf=\fontid bx12 scaled \magstep1 + \font\frtsl=\fontid sl12 scaled \magstep1 + \font\frtit=\fontid ti12 scaled \magstep1 + \font\frttt=\fontid tt12 scaled \magstep1 +\fi +\fi +% +% seventeen point fonts +% +\font\svti=cmmi12 scaled \magstep2 \skewchar\svti='177 +\font\svtsy=cmsy10 scaled \magstep3 \skewchar\svtsy='60 +\iflongDCfontnames + \font\svtrm=\fontid r1728 + \font\svtbf=\fontid bx1728 + \font\svtsl=\fontid sl1728 + \font\svtit=\fontid ti1728 + \font\svttt=\fontid tt1728 +\else\iflongECfontnames + \font\svtrm=\fontid rm1728 + \font\svtbf=\fontid bx1728 + \font\svtsl=\fontid sl1728 + \font\svtit=\fontid ti1728 + \font\svttt=\fontid tt1728 +\else + \font\svtrm=\fontid r17 + \font\svtbf=\fontid bx12 scaled \magstep2 + \font\svtsl=\fontid sl12 scaled \magstep2 + \font\svtit=\fontid ti12 scaled \magstep2 + \font\svttt=\fontid tt12 scaled \magstep2 +\fi +\fi +% +% twenty point fonts +% +\font\twtyi=cmmi12 scaled \magstep3 \skewchar\twtyi='177 +\font\twtysy=cmsy10 scaled \magstep4\skewchar\twtysy='60 +\iflongDCfontnames + \font\twtyrm=\fontid r2074 + \font\twtybf=\fontid bx2074 + \font\twtysl=\fontid sl2074 + \font\twtyit=\fontid ti2074 + \font\twtytt=\fontid tt2074 +\else\iflongECfontnames + \font\twtyrm=\fontid rm2074 + \font\twtybf=\fontid bx2074 + \font\twtysl=\fontid sl2074 + \font\twtyit=\fontid ti2074 + \font\twtytt=\fontid tt2074 +\else + \font\twtyrm=\fontid r17 scaled \magstep1 + \font\twtybf=\fontid bx12 scaled \magstep3 + \font\twtysl=\fontid sl12 scaled \magstep3 + \font\twtyit=\fontid ti12 scaled \magstep3 + \font\twtytt=\fontid tt12 scaled \magstep3 +\fi +\fi +% +% twenty five point fonts +% +\font\twfvi=cmmi12 scaled \magstep4 \skewchar\twfvi='177 +\font\twfvsy=cmsy10 scaled \magstep5 \skewchar\twfvsy='60 +\iflongDCfontnames + \font\twfvrm=\fontid r2488 + \font\twfvbf=\fontid bx2488 + \font\twfvsl=\fontid sl2488 + \font\twfvit=\fontid ti2488 + \font\twfvtt=\fontid tt2488 +\else\iflongECfontnames + \font\twfvrm=\fontid rm2488 + \font\twfvbf=\fontid bx2488 + \font\twfvsl=\fontid sl2488 + \font\twfvit=\fontid ti2488 + \font\twfvtt=\fontid tt2488 +\else + \font\twfvrm=\fontid r17 scaled \magstep2 + \font\twfvbf=\fontid bx12 scaled \magstep4 + \font\twfvsl=\fontid sl12 scaled \magstep4 + \font\twfvit=\fontid ti12 scaled \magstep4 + \font\twfvtt=\fontid tt12 scaled \magstep4 +\fi +\fi +% +% SEVERAL DIFFERENT POINT SIZES +% +\def\twfvpoint{\Twfvpoint} +\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\twtypoint{\Twtypoint} +\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\svtpoint{\Svtpoint} +\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=\twlrm +\textfont1=\svti \scriptfont1=\frti \scriptscriptfont1=\twli +\textfont2=\svtsy \scriptfont2=\frtsy \scriptscriptfont2=\twlsy +\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\frtpoint{\Frtpoint} +\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=\twlrm \scriptscriptfont0=\eightrm +\textfont1=\frti \scriptfont1=\twli \scriptscriptfont1=\eighti +\textfont2=\frtsy \scriptfont2=\twlsy \scriptscriptfont2=\eightsy +\textfont3=\tenex \scriptfont3=\tenex \scriptscriptfont3=\tenex +\textfont\itfam=\frtit \scriptfont\itfam=\twlit +\textfont\slfam=\frtsl \scriptfont\slfam=\twlsl +\textfont\bffam=\frtbf \scriptfont\bffam=\twlbf +\scriptscriptfont\bffam=\twlbf +\setbox\strutbox=\hbox{\vrule height 12pt depth 5pt width 0pt}% +\def\tt{\frttt}\normalbaselines\rm} +% +\def\twlpoint{\Twlpoint} +\def\Twlpoint{\normalbaselineskip=14pt +\def\rm{\fam0\twlrm}% +\def\it{\fam\itfam\twlit}% +\def\sl{\fam\slfam\twlsl}% +\def\bf{\fam\bffam\twlbf}% +\def\smc{\twlrm}% +\def\mit{\fam 1}% +\def\cal{\fam 2}% +\textfont0=\twlrm \scriptfont0=\tenrm \scriptscriptfont0=\eightrm +\textfont1=\twli \scriptfont1=\teni \scriptscriptfont1=\eighti +\textfont2=\twlsy \scriptfont2=\tensy \scriptscriptfont2=\eightsy +\textfont3=\tenex \scriptfont3=\tenex \scriptscriptfont3=\tenex +\textfont\itfam=\twlit \scriptfont\itfam=\tenit +\textfont\slfam=\twlsl \scriptfont\slfam=\tensl +\textfont\bffam=\twlbf \scriptfont\bffam=\tenbf +\scriptscriptfont\bffam=\tenbf +\setbox\strutbox=\hbox{\vrule height 10pt depth 4pt width 0pt}% +\def\tt{\twltt}\normalbaselines\rm} +% +\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{\Ninepoint} +\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} + +% 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\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{\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 + +\hsize=185mm +\vsize=275mm +\hoffset=210mm +\advance\hoffset -\hsize +\divide\hoffset 2\relax +\advance\hoffset -2.54cm +\tenpoint +%%%%%%%%%%%%%%%%%%%%%%%%% local adjust to be tuned %%%%%%%%%%%%%%%%%%%%%%%%%% +\advance\hoffset -5mm +\voffset=-1.54cm +%%%%%%%%%%%%%%%%%%%%%%%%% local adjust to be tuned %%%%%%%%%%%%%%%%%%%%%%%%%% + +\endinput |