Wow! Congratulations, Andre! You win the prize...a free copy of PMX.
This looks like a great start. However, there may be a flaw...see bar 17 of the
appended example (watch out for folded lines). But first a few comments:
1. I think you could safely use \pcil as a temporary dimension register, but
with modern versions of TeX there no reason not to define your own new
dimension register, and that would avoid any possible problems.
2. Before doing much more work with this, we should wait to hear back from Adam
or anyone else who might want to use it. They could comment on what additional
features would be useful (e.g., smaller valued unbeamed notes, beamed notes.)
3. As I show in the example, you can activate this with the undocumented PMX
ornament command "os" if you redefine \mtr{#1} . I guess you wouldn't need to
use the PMX-computed parameter of \mtr , but since it contains adjustments to
the height relative to the note, it wouldn't be too useful anyhow.
--Don Simons
New example:
===================================================================================
1 1 16 4 16 4 0 -3
0 3 20 0
t
./
\\let\whsav\wh\let\husav\hu\let\hlsav\hl\
\\def\FE{\
\\def\hl##1{\let\hu\husav\let\hl\hlsav\let\wh\whsav\
\\relax{\advance\transpose2\loffset{0.5}{\ibl0{##1}9}\roffset{0.5}{\tbl0}}\ha{##1}}\
\\def\hu##1{\let\hu\husav\let\hl\hlsav\let\wh\whsav\
\\relax{\advance\transpose-3\loffset{0.5}{\ibu0{##1}9}\roffset{0.5}{\tbu0}}\ha{##1}}\
\\def\wh##1{\let\wh\whsav\let\hu\husav\let\hl\hlsav\
\\relax{\advance\transpose-2\loffset{1}{\ibu0{##1}9}\roffset{0}{\tbu0}}\wh{##1}}}\
\\def\FEE{\
\\def\hl##1{\let\hu\husav\let\hl\hlsav\let\wh\whsav\
\\relax{\advance\transpose2\loffset{0.5}{\ibbl0{##1}9}\roffset{0.5}{\tbl0}}\ha{##1}}\
\\def\hu##1{\let\hu\husav\let\hl\hlsav\
\\relax{\advance\transpose-3\loffset{0.5}{\ibbu0{##1}9}\roffset{0.5}{\tbu0}}\ha{##1}}\
\\def\wh##1{\let\wh\whsav\let\hu\husav\let\hl\hlsav\
\\relax{\advance\transpose-2\loffset{1}{\ibbu0{##1}9}\roffset{0}{\tbu0}}\wh{##1}}}\
%
\\def\mtr#1{\zcharnote{#1}{~}\FE}\
g24 \FE\ g \FEE\ a a \FEE\ b \FE\ c c \FE\ a+ \FEE\ a \FE\ a+
g24 \FE\ f \FEE\ e a \FEE\ d \FE\ c c \FE\ a+ \FEE\ a \FE\ a+
g04 \FE\ g \FEE\ a a \FEE\ a2 \FE\ a \FEE\ b0 \FE\ c c \FE\ a+ \FEE\ a \FE\
a+
g04 \FE\ f \FEE\ e a \FEE\ a2 \FE\ a \FEE\ d0 \FE\ c c \FE\ a+ \FEE\ a \FE\
a+ /
%
g24 g os \FEE\ a a \FEE\ b c os c a+ os \FEE\ a a+ os
g24 f os \FEE\ e a \FEE\ d c os c a+ os \FEE\ a a+ os
g04 g os \FEE\ a a \FEE\ a2 a os \FEE\ b0 c os c a+ os \FEE\ a
a+ os
g04 f os \FEE\ e a \FEE\ a2 a os \FEE\ d0 c os c a+ os \FEE\ a
a+ os /
c24 os cl os d os dl os e os el os f os fl os |
c cl d dl e el f fl /
==================================================================================
_______________________________________________
TeX-music mailing list
[EMAIL PROTECTED]
http://mailman.daimi.au.dk/mailman/listinfo/tex-music
