texlive[68484] Master/texmf-dist: musixtex (8oct23)
commits+karl at tug.org
commits+karl at tug.org
Sun Oct 8 22:55:34 CEST 2023
Revision: 68484
https://tug.org/svn/texlive?view=revision&revision=68484
Author: karl
Date: 2023-10-08 22:55:34 +0200 (Sun, 08 Oct 2023)
Log Message:
-----------
musixtex (8oct23)
Modified Paths:
--------------
trunk/Master/texmf-dist/doc/generic/musixtex/README
trunk/Master/texmf-dist/doc/generic/musixtex/musixdoc/extensions.tex
trunk/Master/texmf-dist/doc/generic/musixtex/musixdoc/frontmatter.tex
trunk/Master/texmf-dist/doc/generic/musixtex/musixdoc/miscellaneous.tex
trunk/Master/texmf-dist/doc/generic/musixtex/musixdoc/smaller.tex
trunk/Master/texmf-dist/doc/generic/musixtex/musixdoc.pdf
trunk/Master/texmf-dist/tex/generic/musixtex/musixtex.tex
Added Paths:
-----------
trunk/Master/texmf-dist/doc/generic/musixtex/ChangeLog-136.txt
trunk/Master/texmf-dist/doc/generic/musixtex/ChangeLog-137.txt
trunk/Master/texmf-dist/tex/generic/musixtex/musixmtab.tex
Added: trunk/Master/texmf-dist/doc/generic/musixtex/ChangeLog-136.txt
===================================================================
--- trunk/Master/texmf-dist/doc/generic/musixtex/ChangeLog-136.txt (rev 0)
+++ trunk/Master/texmf-dist/doc/generic/musixtex/ChangeLog-136.txt 2023-10-08 20:55:34 UTC (rev 68484)
@@ -0,0 +1,7 @@
+
+Changes from MusiXTeX 135 to 136:
+
+ * Support for Turkish classical music accidentalsi; see musixmkm.tex.
+ * Re-define \hlthick to produce thicker ledger lines.
+ * Provide thinner accidentals; see musixthacc.tex.
+ * Thicker Postscript hairpins.
Property changes on: trunk/Master/texmf-dist/doc/generic/musixtex/ChangeLog-136.txt
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Added: trunk/Master/texmf-dist/doc/generic/musixtex/ChangeLog-137.txt
===================================================================
--- trunk/Master/texmf-dist/doc/generic/musixtex/ChangeLog-137.txt (rev 0)
+++ trunk/Master/texmf-dist/doc/generic/musixtex/ChangeLog-137.txt 2023-10-08 20:55:34 UTC (rev 68484)
@@ -0,0 +1,5 @@
+
+Changes from MusiXTeX 136 to 137:
+
+ * added small ss fonts
+ * added extension library musixmtab.tex supporting "modern" tablature
Property changes on: trunk/Master/texmf-dist/doc/generic/musixtex/ChangeLog-137.txt
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Modified: trunk/Master/texmf-dist/doc/generic/musixtex/README
===================================================================
--- trunk/Master/texmf-dist/doc/generic/musixtex/README 2023-10-08 20:54:37 UTC (rev 68483)
+++ trunk/Master/texmf-dist/doc/generic/musixtex/README 2023-10-08 20:55:34 UTC (rev 68484)
@@ -1,4 +1,4 @@
-This is MusiXTeX, version 1.36 (2023-01-11).
+This is MusiXTeX, version 1.37 (2023-10-07).
MusiXTeX is a TeX-based system for typesetting music.
The main author was Daniel Taupin, who died in a climbing
@@ -87,4 +87,4 @@
later version.
This distribution is maintained by Bob Tennent
-rdt(at)cs(dot)queensu(dot)ca.
+rdtennent(at)gmail(dot)com.
Modified: trunk/Master/texmf-dist/doc/generic/musixtex/musixdoc/extensions.tex
===================================================================
--- trunk/Master/texmf-dist/doc/generic/musixtex/musixdoc/extensions.tex 2023-10-08 20:54:37 UTC (rev 68483)
+++ trunk/Master/texmf-dist/doc/generic/musixtex/musixdoc/extensions.tex 2023-10-08 20:55:34 UTC (rev 68484)
@@ -1689,6 +1689,91 @@
\end{tabular}
\end{list}
+ \section{musixmtab}\index{tablature}\index{musixmtab@{\tt musixmtab.tex}}\label{mtab}
+
+Modern instrumentalists of string instruments (guitar, banjo, mandolin, etc.)
+use a hybrid form of tablature in which notes have (downward) stems and beams attached.%
+\footnote{It seems this ``modern'' form of tablature was introduced by Pete Seeger in his 5-string banjo
+instruction book, first published in 1948.}
+The \verb\musixmtab\\index{musixmtab} package combines traditional Gelten-style tablature notation
+already in \musixtex\ with the stems and beams of standard music notation.
+It is assumed that there is at most one beam (beam number $0$) and that all stems are downward.
+
+In the following commands,
+\{$s$\} is a string number (counting from the top) and \{$n$\} is a numerical note (i.e., fret number).
+
+\begin{center}
+\begin{tabular}{ll}
+\keyindex{uh}\{$s$\}\{$n$\} & a half note (boxed, to differentiate from a quarter note)\\
+\keyindex{zuh}\{$s$\}\{$n$\} & a non-spacing stemless half note\\
+\keyindex{uq}\{$s$\}\{$n$\} & a quarter note (with a centered stem)\\
+\keyindex{uc}\{$s$\}\{$n$\} & an eighth note (with a flag)\\
+\keyindex{ucc}\{$s$\}\{$n$\} & a sixteenth note (with a double flag)\\
+\keyindex{zu}\{$s$\}\{$n$\} & a non-spacing stemless quarter, eighth or sixteenth note\\
+\keyindex{uib}\{$s$\}\{$l$\} & initiate a single beam; $s$ is the starting string and $l$ is the slope\\
+\keyindex{uibb}\{$s$\}\{$l$\} & initiate a double beam; $s$ is the starting string and $l$ is the slope\\
+\keyindex{ub}\{$s$\}\{$n$\} & a beamed note\\
+\keyindex{unbb} & increase the beam multiplicity to 2\\
+\keyindex{utbb} & decrease the beam mutiplicity to 1 after the following note\\
+\keyindex{utb} & terminate the beam after the following note\\
+\keyindex{utq}\{$s$\}\{$n$\} & terminate the beam after this note\\
+
+\end{tabular}
+\end{center}
+Conventional \musixtex\ commands such as \verb|pt| and \verb|arpeggio| may be used but arguments must reference \musixtex\ note
+designations rather than string numbers.
+
+Here is an example, {\it Cripple Creek}, for 5-string banjo in standard G tuning, clawhammer style:
+
+\begin{music}
+\parindent=2ex
+\input musixmtab
+\setclefsymbol1\tabclef\setsize1{\largevalue}\setsign10
+\setname1{\tabstringfnt\baselineskip=1.2\internote%
+\vbox{\hbox{D}\hbox{B}\hbox{G}\hbox{D}\hbox{\ g}}}
+\generalmeter{\meterfrac24}
+\startbarno1
+\nobarnumbers
+\nostartrule
+\startpiece\addspace\afterruleskip
+\notes\uibb40\ub12\lcn{10}{\it SL}\ub15\zu15\zu20\ub30\utq50\en
+\notes\uibb40\ub10\ccn{10}{\it T}\ub20\ub10\utq50\en
+\bar%2
+\Notes\uib24\ub21\utq12\en
+\Notes\uib40\ub10\en
+\notes\unbb\zu10\zu20\ub30\utq50\en
+\bar%3
+\notes\uibb40\ub12\lcn{10}{\it SL}\ub15\zu15\zu20\ub30\utq50\en
+\notes\uibb40\ub10\ccn{10}{\it T}\ub20\ub10\utq50\en
+\bar%4
+\notes\uibb2{-2}\ub21\utbb\ccn9{\it P}\ub20\en
+\Notes\utq32\en
+\Notes\uib40\ub30\en
+\notes\unbb\zu10\zu20\ub30\utq50\en
+\setrightrepeat
+\alaligne
+\zleftrepeat
+\notes\uibb40\ub32\lcn{9}{\it SL}\ub34\zu10\zu20\ub34\utq50\en
+\notes\uibb3{-1}\ub32\utbb\ccn9{\it P}\ub30\utq42\en
+\bar
+\notes\uibb40\ub32\lcn9{\it SL}\ub34\zu10\zu20\ub34\utq50\en
+\Notes\uib40\ub40\en
+\notes\unbb\zu10\zu20\ub30\utq50\en
+\bar
+\notes\uibb40\ub32\lcn9{\it SL}\ub34\zu10\zu20\ub34\utq50\en
+\notes\uibb4{-1}\ub32\ccn9{\it P}\ub30\ub42\ccn9{\it P}\utq40\en
+\bar
+\notes\uibb40\ub40\ccn9{\it H}\ub42\zu10\zu20\ub30\utq50\en
+\Notes\uib40\ub30\en
+\Notes\unbb\zu10\zu20\ub30\utq50\en
+\zrightrepeat
+\qspace
+\NOtes\arpeggio05\zuh10\zuh20\zuh30\zuh40\uh50\en
+\Endpiece
+
+\end{music}
+
+
\section{musixper}\label{perc}
Provides special symbols intended for percussion parts. Included are a
Modified: trunk/Master/texmf-dist/doc/generic/musixtex/musixdoc/frontmatter.tex
===================================================================
--- trunk/Master/texmf-dist/doc/generic/musixtex/musixdoc/frontmatter.tex 2023-10-08 20:54:37 UTC (rev 68483)
+++ trunk/Master/texmf-dist/doc/generic/musixtex/musixdoc/frontmatter.tex 2023-10-08 20:55:34 UTC (rev 68484)
@@ -1,6 +1,6 @@
\title{\Huge\bfseries\musixtex\\[\bigskipamount]
\LARGE\bfseries Using \TeX{} to write polyphonic\\or
-instrumental music\\\Large\itshape Version 1.36}
+instrumental music\\\Large\itshape Version 1.37}
\author{}
Modified: trunk/Master/texmf-dist/doc/generic/musixtex/musixdoc/miscellaneous.tex
===================================================================
--- trunk/Master/texmf-dist/doc/generic/musixtex/musixdoc/miscellaneous.tex 2023-10-08 20:54:37 UTC (rev 68483)
+++ trunk/Master/texmf-dist/doc/generic/musixtex/musixdoc/miscellaneous.tex 2023-10-08 20:55:34 UTC (rev 68484)
@@ -1093,3 +1093,5 @@
\href{http://icking-music-archive.org/software/musixtex/add-ons/tabdefs.tex}
{\underline{here}}
at WIMA\index{WIMA}.
+See extension libraries in Section~\ref{frenchtab} and \ref{mtab} for ``french'' and ``modern''
+variants, respectively.
Modified: trunk/Master/texmf-dist/doc/generic/musixtex/musixdoc/smaller.tex
===================================================================
--- trunk/Master/texmf-dist/doc/generic/musixtex/musixdoc/smaller.tex 2023-10-08 20:54:37 UTC (rev 68483)
+++ trunk/Master/texmf-dist/doc/generic/musixtex/musixdoc/smaller.tex 2023-10-08 20:55:34 UTC (rev 68484)
@@ -105,7 +105,7 @@
\end{verbatim}\end{quote}
\section[Ossia]{Ossia\texorpdfstring{\protect\footnote{Italian \textit{o sia} (or else)}}{}}
-This clever example had been provided by Olivier Vogel:\label{ossia}
+This clever example had been provided by Olivier Vogel:\label{ossia}\index{ossia}
%\begin{center}
%\includegraphics[scale=1]{./mxdexamples/ossiavogel.eps}
Modified: trunk/Master/texmf-dist/doc/generic/musixtex/musixdoc.pdf
===================================================================
(Binary files differ)
Added: trunk/Master/texmf-dist/tex/generic/musixtex/musixmtab.tex
===================================================================
--- trunk/Master/texmf-dist/tex/generic/musixtex/musixmtab.tex (rev 0)
+++ trunk/Master/texmf-dist/tex/generic/musixtex/musixmtab.tex 2023-10-08 20:55:34 UTC (rev 68484)
@@ -0,0 +1,166 @@
+% musixmtab.tex : modern tablature definitions for MusiXTeX
+%
+% usage:
+%
+% \input musixtex
+% \input musixmtab
+% ...
+%
+% musixmtab.tex 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.
+%
+% musixmtab.tex 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.
+%
+% Copyright 2023 Bob Tennent rdtennent at gmail.com
+%
+
+\immediate\write16{musixmtab\space<2023/07/21>}
+\ifx\undefined\startpiece\errmessage{Input musixtex.tex before musixmtab.tex}\fi
+
+\makeatletter
+
+
+% Assumption: there is at most one beam and it is a lower beam
+
+% like \downst at m but with quarter skip; used in \uq
+\def\midst at m{\stem at skip\qd at skip
+ \divide\stem at skip by 4
+ \advance\st at bot-\stemfactor\interbeam
+ \advance\st at bot-\altportee
+ \ifx\st at mcut\empty
+ \ifdim\st at bot<-\thr@@\internote
+ \cutst at l\thr@@\cutst at l\f at ur\cutst at l\fiv@
+ \cutst at l\si@\cutst at l\s at v@n\cutst at l\@ight \fi \fi
+ \minst at bot\advance\st at bot\altportee
+ \C at stem}
+
+
+% a half note (boxed)
+% argument 1 is the string number
+% argument 2 is the note number
+\def\uh#1#2{%
+ \boxitsep=1pt%
+ \setbox0=\hbox{\raise-0.25\internote\hbox{\boxit{\tabsmallfnt #2}}}%
+ \stringraise\nblines%
+ \advance\stringraise by -#1%
+ \multiply\stringraise by 2%
+ \advance\stringraise-1%
+ \advancefalse\def\q at u{}\loffset{0.2}{\@nq{\the\stringraise}}%
+ \special{ps: 1 setgray}%
+ \zchar{\the\stringraise}{\vrule height \ht0 width \wd0 depth \dp0}%
+ \special{ps: 0 setgray}%
+ \zchar{\the\stringraise}{\box0}%
+ \n at i\stringraise%
+ \def\q at u{}\let\st at m\downst at m\let\n at sym\q at u%
+ \y at v\qn at width\writ at note%
+}
+
+% a non-spacing stemless half note
+% argument 1 is the string number
+% argument 2 is the note number
+\def\zuh#1#2{%
+ \boxitsep=1pt%
+ \setbox0=\hbox{\raise-0.25\internote\hbox{\boxit{\tabsmallfnt #2}}}%
+ \stringraise\nblines%
+ \advance\stringraise by -#1%
+ \multiply\stringraise by 2%
+ \advance\stringraise-1%
+ \advancefalse\def\q at u{}\loffset{0.2}{\@nq{\the\stringraise}}%
+ \special{ps: 1 setgray}%
+ \zchar{\the\stringraise}{\vrule height \ht0 width \wd0 depth \dp0}%
+ \special{ps: 0 setgray}%
+ \zchar{\the\stringraise}{\box0}%
+}
+
+% a quarter note (with a centered stem)
+% argument 1 is the string number
+% argument 2 is the note number
+\def\uq#1#2{%
+ \zltab{#1}{#2}%
+ \stringraise\nblines%
+ \advance\stringraise by -#1%
+ \multiply\stringraise by 2%
+ \advance\stringraise-1%
+ \n at i\stringraise%
+ \def\q at u{}\let\st at m\midst at m\let\n at sym\q at u%
+ \y at v\qn at width\writ at note%
+}
+
+% an eighth note (with a flag)
+% argument 1 is the string number
+% argument 2 is the note number
+\def\uc#1#2{%
+ \zltab{#1}{#2}%
+ \stringraise\nblines%
+ \advance\stringraise by -#1%
+ \multiply\stringraise by 2%
+ \n at i\stringraise%
+ \def\q at u{}\n at vii\@xlv\let\st at m\down at flag%
+ \let\n at sym\q at u\y at v\qn at width\writ at note%
+}
+
+% a non-spacing stemless quarter or eighth note
+% argument 1 is the string number
+% argument 2 is the note number
+\def\zu#1#2{\zltab{#1}{#2}}%
+
+% initiate a beam
+% argument 1 is a string number
+% argument 2 is the slope
+\def\uib#1#2{%
+ \stringraise\nblines%
+ \advance\stringraise by -#1%
+ \multiply\stringraise by 2%
+ \ibl0{\the\stringraise}{#2}%
+}
+
+% initiate a double beam
+% argument 1 is a string number
+% argument 2 is the slope
+\def\uibb#1#2{%
+ \stringraise\nblines%
+ \advance\stringraise by -#1%
+ \multiply\stringraise by 2%
+ \ibbl0{\the\stringraise}{#2}%
+}
+
+% a beam note
+% argument 1 is the string number
+% argument 2 is the note number
+\def\ub#1#2{%
+ \zltab{#1}{#2}%
+ \s at l@ctbeam{0}\relax%
+ \stringraise\nblines%
+ \advance\stringraise by -#1%
+ \multiply\stringraise by 2%
+ \n at i\stringraise%
+ \def\q at u{}\let\st at m\beamst at m%
+ \let\n at fon\g at q\let\n at sym\q at u\y at v\qn at width\writ at note%
+}
+
+% increase the beam multiplicity to 2
+\def\unbb{\nbbl0}
+
+% decrease the beam multiplicity to one after the following note
+\def\utbb{\tbbl0}
+
+% terminate the beam after the following note
+\def\utb{\tbl0}
+
+% terminate the beam at this note
+% argument 1 is the string number
+% argument 2 is the note number
+\def\utq#1#2{\utb\ub{#1}{#2}}
+
+\makeatother
+\endinput
Property changes on: trunk/Master/texmf-dist/tex/generic/musixtex/musixmtab.tex
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Modified: trunk/Master/texmf-dist/tex/generic/musixtex/musixtex.tex
===================================================================
--- trunk/Master/texmf-dist/tex/generic/musixtex/musixtex.tex 2023-10-08 20:54:37 UTC (rev 68483)
+++ trunk/Master/texmf-dist/tex/generic/musixtex/musixtex.tex 2023-10-08 20:55:34 UTC (rev 68484)
@@ -25,15 +25,19 @@
\def\mufl at x{0.83}%
\def\mxmajorvernumber{1}
-\def\mxminorvernumber{36}
+\def\mxminorvernumber{37}
\def\mxvernumber{\mxmajorvernumber\mxminorvernumber}% make it possible to compare with \ifnum
\def\mxversuffix{}%
\edef\mxversion{\mxmajorvernumber.\mxminorvernumber\mxversuffix}
-\def\mxdate{2023-01-11}
+\def\mxdate{2023-10-07}
\immediate\write16{MusiXTeX(c) \mxversion\space<\mxdate>}%
\everyjob{\immediate\write16{MusiXTeX(c) \mxversion\space<\mxdate>}}%
+% version 1.37
+%
+% added small ss fonts
+%
% version 1.36
%
% Support for Turkish classical music accidentalsi; see musixmkm.tex.
@@ -684,6 +688,13 @@
\font\sixdc=phvb8t at 6pt
%%
+% small ss fonts % version 1.37 RDT
+%%
+\font\fourss=phvr8t at 4pt
+\font\fivess=phvr8t at 5pt
+\font\sixss=phvr8t at 6pt
+
+%%
% Seven point fonts
%%
@@ -888,11 +899,11 @@
\def\normdyn{\let\ppff\ppfftwenty}
\def\meddyn{\let\ppff\ppfftwentyfour}
-\font\tabfntthirteen=phvb8t at 4pt % version 1.34 RDT
-\font\tabfntsixteen=phvb8t at 5pt
-\font\tabfnttwenty=phvb8t at 6pt
-\font\tabfnttwentyfour=phvb8t at 8pt
-\font\tabfnttwentynine=phvb8t at 10pt
+\font\tabfntthirteen=phvb8t at 5pt % version 1.37 RDT
+\font\tabfntsixteen=phvb8t at 6pt
+\font\tabfnttwenty=phvb8t at 7pt
+\font\tabfnttwentyfour=phvb8t at 9pt
+\font\tabfnttwentynine=phvb8t at 11pt
\font\musiceleven=musix11
\font\musicthirteen=musix13
@@ -1846,8 +1857,8 @@
\let\tabnorcleffnt\twelvedc \let\tablargecleffnt\frtdc
\let\tabLargecleffnt\svtdc \let\tabsmallcleffnt\tendc
\def\tabstringfnt{\ifdim\internote<.95\Internote \sixss % 1.29 RDT
- \else\ifdim\internote<1.19\Internote \eightss
- \else\ifdim\internote<1.43\Internote \niness
+ \else\ifdim\internote<1.19\Internote \sevenss
+ \else\ifdim\internote<1.43\Internote \eightss
\else\twelvess\fi\fi\fi}%
\else\ifnum\musicsize=\@xxix
\let\musicLargefont\musictwentynine
@@ -1928,7 +1939,7 @@
\let\tabnorcleffnt\tendc \let\tablargecleffnt\twelvedc
\let\tabLargecleffnt\frtdc \let\tabsmallcleffnt\eightdc
\def\tabstringfnt{\ifdim\internote<.95\Internote \fivess % 1.29 RDT
- \else\ifdim\internote<1.19\Internote \sixss
+ \else\ifdim\internote<1.19\Internote \sevenss % 1.37 RDT
\else\ifdim\internote<1.43\Internote \eightss
\else\niness\fi\fi\fi}%
\fi\fi\fi}%
@@ -2706,10 +2717,15 @@
\let\Writ at newsigns\empty
\def\updat at context{\writ at newclefs
- \T at bil \wbarno at x\Writ at newsigns\Writ at meters\lastbarpos\lin at pos\addspace\afterruleskip
+ \T at bil \wbarno at x\Writ at newsigns\Writ at meters\addspace\afterruleskip
%%% 1.21: added \lastbarno setting
\else\Writ at newsigns\z at suspend\contpiece \fi}
+
+
+
+
+
\def\changecontext{\showallbarrules\n at wbar\updat at context}
\def\Changecontext{\showallbarrules\setdoublebar\changecontext}
\def\zchangecontext{\advance\n at skip\beforeruleskip \widthtyp@\@ne \t at rmskip
@@ -5401,7 +5417,7 @@
\def\nbinstruments{1}
\noinstrum at nt1\s at l@ctinstr\internote\Internote
\def\tabstringfnt{\ifdim\internote<.95\Internote \fivess % 1.29 RDT
-\else\ifdim\internote<1.19\Internote \sixss
+\else\ifdim\internote<1.19\Internote \sevenss % 1.37 RDT
\else\ifdim\internote<1.43\Internote \eightss
\else\niness\fi\fi\fi}%
@@ -5540,7 +5556,7 @@
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% Macros for tablature. They put numbers on or above the staff lines. %
+% Macros for Tablature. They put numbers on or above the staff lines. %
% Based on tabdefs.tex by R.J. Gelten %
% %
% 1.33 RDT %
More information about the tex-live-commits
mailing list.