> From: [EMAIL PROTECTED]
> Date: Sun, 25 Oct 1998 12:26:33 +0100 (MET)
> Hermann Lauer wrote:
[...]
> > produces the sharp # above the top line of the staffs, in the score I'm
[...]
> >Is the usual notation to note the sharp above the highest staff line ?
> [...] The present rules
> are: put prescribed accidentals always within the line system and never
> double them: if two of them fit into the line system (e.g. two sharps
> in the G key) take only the higher one. [...]
But what is within the system? For /setclef10/setsign13 (A-major)
G-sharp is just there, where in Hermann Lauer's case the F-sharp is
notated. So I think MusiXTeX's solution of /setclef14/setsign11 is ok.
I append an old test-source. It may help if some want to make the
best and newest solution :-)
> Preprocessors save a lot of typing and are highly recommended.
> I use pmx for instrumental and mtx for vocal music. [...]
So do I. And whilst in former times I had to add a lot of
in-line TeX, which is supported by PMX, or did some post-editing
on PMX's MusiXTeX output, which is excellent man-readable, now
with any new version of pmx there is less need for in-line TeX
or post-editing.
-- Werner
\nopagenumbers
\input musixtex
\nobarnumbers
\nostartrule
\smallmusicsize
\stafftopmarg2\Interligne\staffbotmarg1\Interligne
\makeatletter\let\C@sigsav\C@sig\makeatother
\def\signature#1{\generalsignature{#1}\znotes\zcharnote{12}{#1}\en}
\def\allsigns{
\generalsignature{0}\startextract
\ignorenats\signature{-1}\zchangecontext
\ignorenats\signature{-2}\zchangecontext
\ignorenats\signature{-3}\zchangecontext
\ignorenats\signature{-4}\zchangecontext
\ignorenats\signature{-5}\zchangecontext
\ignorenats\signature{-6}\zchangecontext
\ignorenats\signature{-7}\zchangecontext
\ignorenats\signature{1}\zchangecontext
\ignorenats\signature{2}\zchangecontext
\ignorenats\signature{3}\zchangecontext
\ignorenats\signature{4}\zchangecontext
\ignorenats\signature{5}\zchangecontext
\ignorenats\signature{6}\zchangecontext
\ignorenats\signature{7}\zchangecontext\endextract}
\parindent 13pt\def\clef#1{\setname1{clef #1}\setclef1{#1}}
\def\allclefs{\vskip12pt
\clef9\allsigns\clef0\allsigns\clef1\allsigns\clef2\allsigns
\clef3\allsigns\clef4\allsigns\clef5\allsigns\clef6\allsigns
\clef7\allsigns}
\makeatletter\let\C@sig\C@sigsav\makeatother
MusiXTeX --- current version
\allclefs
MusiXTeX --- previous version
\makeatletter
\def\C@sig#1{\n@iii#1%
\ifnum\ut@ref>\z@
\advance\n@iii\ut@ref \advance\n@iii\ut@ref
\ifnum\ut@ref=\si@ \advance\n@iii-\s@v@n \fi
\ifnum\ut@ref>\thr@@ \advance\n@iii-\s@v@n \fi
\ifnum\n@iii>\@l@v@n \advance\n@iii-\s@v@n \fi
\fi
\advance\n@iii-\tw@ \raise\n@iii\internote
\hbox\@to\tw@\internote{\hss\keychar\n@v\hss}}
\makeatother
\allclefs
\eject
Yet another version
\makeatletter
\def\C@sig#1{\n@iii#1%
\ifnum\ut@ref=\z@ \else
\advance\n@iii\ut@ref \advance\n@iii\ut@ref \advance\n@iii-\s@v@n
\ifnum\ut@ref=-\@ne\advance\n@iii\s@v@n \fi
\ifnum\ut@ref=\si@ \advance\n@iii-\s@v@n \fi
\ifnum\ut@ref=\@ne \advance\n@iii\s@v@n \fi
\ifnum\n@iii<\@ne \advance\n@iii\s@v@n \fi
\ifnum\n@iii>\@l@v@n \advance\n@iii-\s@v@n \fi
\fi
\advance\n@iii-\tw@ \raise\n@iii\internote
\hbox\@to\tw@\internote{\hss\keychar\n@v\hss}}
\makeatother
\allclefs
4th version
\makeatletter
\def\C@sig#1{\n@iii#1%
\ifnum\ut@ref=\z@ \else
\advance\n@iii\ut@ref \advance\n@iii\ut@ref \advance\n@iii-\s@v@n
\ifnum\ut@ref=-\@ne\advance\n@iii\s@v@n \fi
\ifnum\ut@ref=\si@ \advance\n@iii-\s@v@n \fi
\ifnum\ut@ref=\@ne \advance\n@iii\s@v@n \fi
\ifnum\n@iii<\z@ \advance\n@iii\s@v@n \fi
\ifnum\n@iii>\t@n \advance\n@iii-\s@v@n \fi
\fi
\advance\n@iii-\tw@ \raise\n@iii\internote
\hbox\@to\tw@\internote{\hss\keychar\n@v\hss}}
\makeatother
\allclefs
\bye
