Sorry, the pmx code wass messed up in the original mail
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 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
