Olivier Vogel wrote:
Dear Hermann,
As Christian explained, pmx modifies the definition of \raisebarno.
The trick is do the following:
> \makeatletter
a line like
\let\myraisebarno\raisebarno
is missing here, see attachment
\def\w...@staffs{%
\...@\staffbotmarg \global\altplancher\staffbotmarg
\rlap...@loop\w@st\repeat
% beginning vertical rule
\systemheight\y@
\advance\systemheight-\altplancher
\...@inter \global\advance\systemheight-\s...@skip
\ifx\empt...@rule \raise\altplancher\rlap{%
\vru...@depth\hlthick\@height\systemheig...@width\lthick}\fi
% 'Akkoladenklammer' don't know the english word
\...@loop
\ifnum\uppersonginstrum<\lowersonginstrum
\else
\noinst...@nt\uppersonginstrum\s@l...@ctinstr\c@Inter
\global\advanc...@h-\stem@skip \global\advanc...@h-\g@b
\global\advanc...@h\interligne \global\advanc...@b-\internote
\rais...@b\llap{\uplap{\offinterlineskip
\...@normalnotesize\hbox{\musixfont\fourt@@n}\hbox{\vru...@height
\...@h
\...@width\internote}\hbox{\musixfont\fiv@t@@n}}\kern\internote}%
\fi
\repeat
% systembarnumbers
\ifx\...@bar\@ne \...@\altplancher \advanc...@\systemheight
\advanc...@\myraisebarno \rais...@\rlap{\kern\shiftbarno
\writebarno}\fi
% strut
\advance\stafftopmarg\staffbotmarg
\raise\stafftopmarg\hbox{\vru...@height\systemheight\@widt...@}}}
\makeatother
I store the tex-code in a separate file, myhack.tex and load it as a
type 2 include
[snip]
\\def\writebarno{\ifnum\barno>1\lrlap{\tenrm\it\the\barno\barnoadd}\fi}%\
\\def\raisebarno{5mm}%\
\\input myhack\
% Tt
% Trio f\"ur 2 Violinen und Viola da Gamba
% Tc
% J.S. Bach
[snip]
BTW - beware of line breaks in the tex code in the previous posting!
--
Christian Mondrup, Archive Editor
WIMA: Werner Icking Music Archive
http://icking-music-archive.org/
\makeatletter%
\let\myraisebarno\raisebarno%
\def\w...@staffs{%
\...@\staffbotmarg \global\altplancher\staffbotmarg%
\rlap...@loop\w@st\repeat%
% beginning vertical rule%
\systemheigh...@%
\advance\systemheight-\altplancher%
\...@inter \global\advance\systemheight-\s...@skip%
\ifx\empt...@rule \raise\altplancher\rlap{%
\vru...@depth\hlthick\@height\systemheig...@width\lthick}\fi%
% 'Akkoladenklammer' don't know the english word
\...@loop%
\ifnum\uppersonginstrum<\lowersonginstrum%
\else%
\noinst...@nt\uppersonginstrum\s@l...@ctinstr\c@Inter%
\global\advanc...@h-\stem@skip \global\advanc...@h-\g@b%
\global\advanc...@h\interligne \global\advanc...@b-\internote%
\rais...@b\llap{\uplap{\offinterlineskip%
\...@normalnotesize\hbox{\musixfont\fourt@@n}\hbox{\vru...@height\g@h%%
\...@width\internote}\hbox{\musixfont\fiv@t@@n}}\kern\internote}%
\fi%
\repeat%
% systembarnumbers
\ifx\...@bar\@ne \...@\altplancher \advanc...@\systemheight%
\advanc...@\myraisebarno \rais...@\rlap{\kern\shiftbarno%
\writebarno}\fi%
% strut%
\advance\stafftopmarg\staffbotmarg%
\raise\stafftopmarg\hbox{\vru...@height\systemheight\@widt...@}}}%
\makeatother%
_______________________________________________
[email protected] mailing list
If you want to unsubscribe or look at the archives, go to
http://mailman.nfit.au.dk/mailman/listinfo/icking-music-archive.org-tex-music
