Re: [TeX-music] more space at each system
Jean-Pierre Coulon skryf:
> I am trying to add some space at the beginning of each system after the
> general signature and before the first note (I don't want to change
> \afterruleskip at other bars).
>
> I have tried saying \def\everystaff{\addspace{5\afterruleskip}} before
> \starpiece, but this results in adding space between the clef and the key
> signature, besides adding some space at the place I want at some random
> lines.
>
> See line 35 of the attached file.
>
> Using \hardspace instead of \afterruleskip is still worse.
>
> Is another trick possible?
>
The ideal solution to this sort of thing would be to have a
\newlength\aftersignature in MusiXTeX itself, which the user could
override. I know that Daniel was very cautious about such things
because one easily gets 'TeX capacity exceeded'. However, nowadays
all it takes to increase TeX capacity is to edit texmf.cnf, so maybe
we no longer need to be so careful.
Dirk
___
TeX-music mailing list
TeX-music@icking-music-archive.org
http://icking-music-archive.org/mailman/listinfo/tex-music
[TeX-music] more space at each system
Dear Jean-Pierre,
You can get a provisional solution by redefining the macro \startpiece
and \contpiece.
Olivier
-
\input musixtex
\makeatletter
[EMAIL PROTECTED]
\else\startmuflex
\immediate\write16{\noexpand\startmuflex launched by
\noexpand\startpiece }%
\fi
[EMAIL PROTECTED]@\z@ [EMAIL PROTECTED] \leavevmode [EMAIL PROTECTED]
[EMAIL PROTECTED] [EMAIL PROTECTED] [EMAIL PROTECTED]
[EMAIL PROTECTED] % tells the kind of volta setting at next bar
[EMAIL PROTECTED] % flag to tell that a volta has been cut at line end
[EMAIL PROTECTED] % the current volta setting (same defs as [EMAIL PROTECTED])
[EMAIL PROTECTED] % tells the kind of volta closing at next bar
}
\def\contpiece{\noindent [EMAIL PROTECTED] [EMAIL PROTECTED] [EMAIL PROTECTED]
[EMAIL PROTECTED] [EMAIL PROTECTED] \hardspace{10pt}\addspace\afterruleskip
}
\makeatother
\voffset-1in\advance\voffset10mm\vsize11in\advance\vsize-20mm\advance\vsize-24pt
\hoffset-1in\advance\hoffset10mm\hsize210mm\advance\hsize-20mm
\musicparskip%
\font\bidon=ecrm1000 scaled 5000
%{\nopagenumbers
%\centerline {~}
%\bigskip\centerline{\bigtype S\"USSMAYR}
%\bigskip%
%\centerline{\BIGtype SONATINA}
%\smallskip
%\centerline{\Bigtype Pet L'organo}
%\eject}
%
\def\myhlthick{1.5\lthick}
\makeatletter
\def\h at linei{%
\y at ii\n at v\internote%
\y at iii\y at ii%
\advance\y at ii\myhlthick%
\advance\y at iii-\myhlthick%
\y at vi\noteskip % noteskip
%-\ifnum\y at vi=\z@ \y at vi\maxdimen\fi % (or maxdimen if noteskip = 0)
\advance\y at vi-\y at v % - notewidth
\y at vi0.7\y at vi % this may be eaten =:
additional length
\y at iv\h at lf\qn at width\ifnum\y at vi>\y at iv \y at vi\y at iv\fi % not
more than 0.5 qn at width
\y at iv0.2\qn at width \ifnum\y at vi<\y at iv \y at vi\y at iv\fi % not
less than 0.2 qn at width
\y at iv\y at v % notewidth
\advance\y at iv\y at vi % + additional length =: total
length
\kernm\h at lf\y at vi% center the ledger line
%-\message{noteskip = \the\noteskip, length = \the\y at iv, notewidth = \the\y
at v}%
[EMAIL PROTECTED] at [EMAIL PROTECTED] at [EMAIL PROTECTED] at iv
\kernm\y at iv\kern\h at lf\y at vi}
\makeatother
%\def\everystaff{\addspace{5\afterruleskip}}%
%\def\everystaff{\afterruleskip=20pt}
\instrumentnumber{1}
\setstaffs1{2}
\setclef1\bass
\def\ppp{\ppfftwentyfour ppp}
\def\pp{\ppfftwentyfour pp}
\def\p{\ppfftwentyfour p}
\def\mf{\ppfftwenty m\ppfftwentyfour f}
\def\f{\ppfftwentyfour f}
\def\ff{\ppfftwentyfour ff}
\def\rf{\ppfftwenty r\ppfftwentyfour f}
\def\sf{\ppfftwenty s\ppfftwentyfour f}
\def\fz{\ppfftwentyfour f\ppfftwenty z}
\def\sfz{\ppfftwenty s\ppfftwentyfour f\ppfftwenty z}
\def\fp{\ppfftwentyfour f\ppfftwentyfour p}
\def\mysk{\off{.4\elemskip}}
%
\def\zds{\ds\bsk}
\def\sns{\tinynotesize}
\def\bassten#1{\roffset{1.1}{\zwh#1}}
\def\mgfa{\setclef1{\bass\treble}\zchangeclefs}
\def\mgsol{\setclef1{\treble\treble}\zchangeclefs}%
\def\debutoct#1{\loff{\ioctfinup {#1}}}
\def\findoct{\roff{\toctfin}}
\def\bigpause{\def\atnextbar{\znotes\centerpause\en}}%
\def\mytr#1{\zcn#1{\medtype\it tr}}
\bigaccid
\def\writebarno{\eightbf\the\barno\barnoadd}
\def\notess{\vnotes1.5\elemskip}
\def\notes{\vnotes2\elemskip}
\def\notesp{\vnotes2.45\elemskip}
\def\Notes{\vnotes3\elemskip}
\def\Notesp{\vnotes3.7\elemskip}
\def\NOtes{\vnotes4.5\elemskip}
\def\NOtesp{\vnotes5.5\elemskip}
\def\NOTes{\vnotes6.7\elemskip}
\def\NOTEs{\vnotes9\elemskip}
\def\monte#1{\raise#1\Interligne}%
\afterruleskip=5pt
\def\bare{\bar\hardspace{5pt}}
\def\appog{\multnoteskip\tinyvalue\tinynotesize}
%
\def\mit{\medtype\it}
\def\zcn{\zcharnote}
\def\ccn{\ccharnote}
\def\lcn{\lcharnote}
\def\tns{\tinynotesize}
%
\interstaff{12}
\startbarno=1%
\setname1{~}
\parindent=20mm
\generalmeter{\meterfrac24}
\generalsignature3
\nobarnumbers
\startpiece\addspace\afterruleskip%
\Notes\loffset3{\zcn h{\mit Trombe e fagotti}}\zql H\ibu1N0\qb1{JL}%
|\zcn q{\medtype Allegretto}\cl j\ds\en
\Notes\zqb1a\monte{-2}\qp\tqh1L|\cl j\ds\en
\bar% 2
\notess\ibu1N0\zql H\qb1J|\ibbbl2j{-2}\isluru3j\qb2j\tbbbl2\tbbl2\qb2i\en
\Notes\qsk\qb1L|\tslur3h\pt h\tqb2h\en
\Notes\zqb1a\monte{-2}\qp|\pt j\ds\en
\notes\tqh1L|\qsk\ccl j\en
\bar% 3
\Notes\zql H\ibu1N0\qb1{JL}|\cl l\ds\en
\Notes\zqb1a\monte{-2}\qp\tqh1L|\cl l\ds\en
\systemnumbers%
\bar% 4
\notess\ibu1N0\zql H\qb1J|\ibbbl2l{-2}\isluru3l\qb2l\tbbbl2\tbbl2\qb2k\en
\Notes\qsk\qb1L|\tslur3j\pt j\tqb2j\en
\Notes\zqb1a\monte{-2}\qp|\qp\en
\Notes\tqh1L|\en
\bar% 5
\Notes\ccn k{\sf}\islurd1L\ibu1d0\zql L\zqb1d%
\tinynotesize\roffset{.25}{\islurd0E\zql E}%
|\mytr q\islurd2i\qu i\en
\Notes\qb1e\en
\Notes\tsslur1a\zcl a\zqb1c\tinynotesize\roffset{.25}{\tsslur0H\zcl H}%
|\tslur2h\cu h\en
\Notes\tbu1\zqb1e\ds|\ds\en
\bar% 6
\Notes\ibu1d0\zql L\zqb1d%
\tinynotesi
