----------
From: Christian Mondrup[SMTP:[EMAIL PROTECTED]]
Sent: Wednesday, May 19, 1999 19:39
To: Mthimkhulu Molekwa
Subject: Curly braces & scor2prt
Dear Mthimkhulu Molekwa
After I sent my previous mail I came to think what would happen with the
bass part extracted from the score with scor2prt. With the
\songtop\songbottom statements you may suppres the brackets in the
single parts by issuing these statement with the part numbers in
opposite order as I've done in the attached mtx source. But that doesn't
seem to be the case with \curlybrackets. In the start of each staff of
the bass part I get a rather long crescendo symbol.
Could you do something to handle this problem too ?
Regards
--
Christian Mondrup, Computer Programmer
Scandiatransplant, Skejby Hospital, University Hospital of Aarhus
Brendstrupgaardsvej, DK 8200 Aarhus N, Denmark
Phone: +45 89 49 53 01, Telefax: +45 89 49 60 07
Dear Christian Mondrup
This should do the trick...
% Code for multiple left curly brackets:
%
% usage:
% \curlybrackets{<instrument1lower><instrument1upper>
% <instrument2lower><instrument2upper>
% ...
% <instrument_n_lower><instrument_n_upper>}
%
\makeatletter
\let\origin@lwrit@staffs\writ@staffs
\def\writ@staffs{%
\origin@lwrit@staffs
\ifx\br@cks\empty\else\expandafter\@bracks\br@cks\ende\fi}
\let\br@cks\empty
\def\curlybrackets#1{\def\br@cks{#1}}
\def\@bracks#1#2#3\ende{%
\ifnum #1<#2 %========================= inserted
\noinstrum@nt=#1\s@l@ctinstr\b@zi\altitude
\noinstrum@nt=#2\s@l@ctinstr\b@zii\altitude
\advance\b@zii-\b@zi
\advance\b@zii-\Interligne
\C@Inter
\advance\b@zii\stem@skip
\n@v\b@zii \sp@pt\tw@ \advance\n@v\@cxxviii
\divide\b@zii\tw@
\advance\b@zi\b@zii
\raise\b@zi\rlap{\kern -\instrum@in@group\mxsps\char\n@v\kern\instrum@in@group}%
\fi %================================= inserted
\ifx\empty#3\else\@bracks#3\ende\fi}
\makeatother
Regards,
MK
