I'm trying to implement modern pedal notation in
musixtex.tex. I propose the following commands:
\pdld pedal down
\pdlu pedal up
\pdlud pedal up and immediately down
The following draft implementation works somewhat:
\newdimen\pdl@pos % cursor position for pedal down
\def\pdld{\getcurpos\pdl@pos\y@v%% save current cursor position
\raise\raiseped\internote\hbox{%
\vrule height10pt depth0.5pt width0.5pt %% pedal down
}}
\def\pdlu{\getcurpos\advance\y@v-\pdl@pos%% compute length of horizontal rule
\kern-\y@v\raise\raiseped\internote\hbox{%
\vrule height-0.5pt depth1pt width\y@v %% draw horizontal rule
\vrule height10pt depth0.5pt width0.5pt %% pedal up
}}%
\def\pdlud{\getcurpos\advance\y@v-\pdl@pos%% compute length of horizontal rule
\kern-\y@v\raise\raiseped\internote\hbox{%
\vrule height-0.5pt depth1pt width\y@v % draw horizontal rule
\raise2pt\hbox{\lrlap{$\bigwedge$}}%% % pedal up and down
}%
\getcurpos\pdl@pos\y@v%% reset \pdl@pos
The vertical position is set by the existing \raiseped
register. I've avoided horizontal offsets, in part because I
don't know where keyboard players prefer the ups and downs
to appear.
Apart from dealing with line breaks, I believe the only
problems are the horizontal rules (there are two of them)
under the "bigwedge" in \pdlud. But eliminating them
is beyond my TeXpertise (and/or knowledge of musixtex
internals). Can anyone help?
Bob T.
-------------------------------
[email protected] mailing list
If you want to unsubscribe or look at the archives, go to
http://tug.org/mailman/listinfo/tex-music
