Thank you very much, Don, you have given me a lot to think about.
I did not yet tried to make command for spltting the xtuplets on 2 staffs.
First i tried to split the beams in xtuplets in 1 staff, i have included an
example of what tried.
But first: if i take 'r8ax3 b b ' i get a half rest with the horizontal
pitch of a 8th rest?
The example has two voices with different notelengths, this makes it hard
(for me) to make universal commands.
I needed a comand for shifting a single item as the \loffset{}{} command but
with \noteskip units (\sk does not works because it inserts space)
The beam then can be removed from the last rest (last triplet, upper voice,
bar 3) or extend over the first rest (bar4, lower voice).
Here i used \zcharnote in the commands, Don, is this what you mean by eating
the pitch? (pitch is in Flemish: heavy fuel).
Also, i used \ibu with octave offset, in stead of \ibl, i see no other way
to get rid of the 1 notehead shift of the low beam.
At last, for splitting the xtuplet beam, i needed a command to stop the beam
and 1 to start it again. It could be done with 1 command in case the not
voices have the same notelenghts.
I think, with this working, i must be able to splt the beams on 2 staffs.
The reason i send this to the list is that probably better and easier
solutions can be made by other people, or better; show me the errors.
And thanks for all the help i got already
Andre
============
2 1 2 4 2 4 0 0 1 2 20 0
tt
./
AT
w120m
h200m
\\let\cusav\cu\let\clsav\cl\let\qusav\qu\let\qlsav\ql\let\qbsav\qb\
\\let\ccusav\ccu\let\cclsav\ccl\
\\let\tbsav\tb\
\\let\ibusav\ibu\let\iblsav\ibl\
%
\\makeatletter\
% shift in \noteskip units
[EMAIL PROTECTED]@[EMAIL PROTECTED]
% Split beamed tups {8th, 16th)
% terminate
\\def\triot{\def\qb##1##2{\let\qb\qbsav\
% \qa def in musixtex was an example for this:
[EMAIL PROTECTED]@i>\thr@@\tbl{##1}\qb{##1}{`##2}\
\\else\tbu{##1}\qb{##1}{##2}\fi}}\
% start
\\def\trios{\def\qb##1##2{\let\qb\qbsav\
[EMAIL PROTECTED]@i>\thr@@\ibbl##1{`##2}0\qb##1{`##2}\
\\else\ibbu##1{##2}0\qb##1{##2}\fi}}\
% beam start earlier
\\def\lofsk{}\
\\def\triosl#1{\def\lofsk{\loffsetnoteskip{#1}}\
\\def\ibu##1##2##3{\lofsk{\ibusav{##1}{##2}{##3}\zcharnote{'##2}{}}\let\ibu\ibusav}\%
to remove the left offset if low beam
\\def\ibl##1##2##3{\lofsk{\ibusav{##1}{``##2}{##3}\zcharnote{##2}{}}\let\ibl\iblsav}}\\\makeatother\%%
beamed tups (quarter, 8th) ending on rest% (n= beam
shortened)\\def\triobn{\bsk\def\qb##1##2{\let\qb\qbsav\qb##1{*}\ds}}\\\def\triob{\def\qb##1##2{\let\qb\qbsav\qb##1{*}}\ds\bsk}\\\def\triobbn{\bsk\def\qb##1##2{\let\qb\qbsav\qb##1{*}\qs}}\\\def\triobb{\def\qb##1##2{\let\qb\qbsav\qb##1{*}}\qs\bsk}\%
flagged tups ending on a rest (quarter, 8th, 16th
notes)\\def\trioq{\def\qu##1{\let\ql\qlsav\let\qu\qusav\qu{*}}\
\\def\ql##1{\let\qu\qusav\let\ql\qlsav\ql{*}}\qp}\\\def\trioc{\def\cu##1{\let\cl\clsav\let\cu\cusav\cu{*}}\
\\def\cl##1{\let\cu\cusav\let\cl\clsav\cl{*}}\ds}\\\def\triocc{\def\ccu##1{\let\ccl\cclsav\let\ccu\ccusav\cu{*}}\
\\def\ccl##1{\let\ccu\ccusav\let\ccl\cclsav\ccl{*}}\qs\bsk}\%1b44 bax3 r
\trioc\ b d-ax3 r \trioc\ d b+ax3 r \trioc\ d /r8ax3
b b r4ax3 b b r8x3 r b r4Dx3 \trioc\ b r+14x3 \trioq\ bD /%3c4x5 \triot\ c
\trios\ c c c rx3 r b[l+1 rx3n-1 \triosl2\ b \triob\ b ] [u rx3n-1 \triosl1\ b
\triob\ b ] /b4x4 \triot\ b \trios\ b b c4x3n-1 b \triobn\ br8ax3 d \triocc\ d
r8x3nf b+ b c4x3n-1 b \triob\ a /==============
_______________________________________________
TeX-music mailing list
[email protected]
http://icking-music-archive.org/mailman/listinfo/tex-music
