Dear list members,
Together with Christian Mondrup I constructed a wave line to be used with
MusiXTeX. Other people may need that too. So I append it at the end.
But I have some questions concerning this solution: is there a better solution?
Is it possible to replace the fixed numbers (1.45pt, -1.4pt, 3.85pt) by dimension
derived from the characters itself? Somehow is e.g 1.45pt the amount which is
neccessary to move the character below the baseline. So how can it be expressed
in more logical terms?
-- Werner
%
% Waves e.g. \zcharnote{..}{\wave{2\noteskip}
%
\def\wave#1{\hbox to #1{\leaders\hbox{%
\lower 1.45pt\hbox{$\frown$}\kern-1.4pt%
\lower 3.85pt\hbox{$\smile$}\kern-1.4pt}\hfill}}
\par 080 abc\wave{ 80pt} ABC
\par 081 abc\wave{ 81pt} ABC
\par 082 abc\wave{ 82pt} ABC
\par 083 abc\wave{ 83pt} ABC
\par 084 abc\wave{ 84pt} ABC
\par 085 abc\wave{ 85pt} ABC
\par 086 abc\wave{ 86pt} ABC
\par 087 abc\wave{ 87pt} ABC
\par 088 abc\wave{ 88pt} ABC
\par 089 abc\wave{ 89pt} ABC
\par 090 abc\wave{ 90pt} ABC
\par 100 abc\wave{110pt} ABC
\par 120 abc\wave{120pt} ABC
\par 130 abc\wave{130pt} ABC
\par 140 abc\wave{140pt} ABC
\normalmusicsize\startextract
\Notes\roff{\zcharnote c{\wave{3\noteskip}}}\qa c\sk\sk\qa c\en
\message{\the\internote}%
\Notes\roff{\zcharnote f{\wave{4\noteskip}}}\qa f\sk\sk\sk\qa f\en
\Notes\roff{\zcharnote g{\wave{5\noteskip}}}\qa g\sk\sk\sk\sk\qa g\en
\endextract
\smallmusicsize\startextract
\Notes\roff{\zcharnote c{\wave{3\noteskip}}}\qa c\sk\sk\qa c\en
\message{\the\internote}%
\Notes\roff{\zcharnote f{\wave{4\noteskip}}}\qa f\sk\sk\sk\qa f\en
\Notes\roff{\zcharnote g{\wave{5\noteskip}}}\qa g\sk\sk\sk\sk\qa g\en
\endextract
\largemusicsize\startextract
\Notes\roff{\zcharnote c{\wave{3\noteskip}}}\qa c\sk\sk\qa c\en
\message{\the\internote}%
\Notes\roff{\zcharnote f{\wave{4\noteskip}}}\qa f\sk\sk\sk\qa f\en
\Notes\roff{\zcharnote g{\wave{5\noteskip}}}\qa g\sk\sk\sk\sk\qa g\en
\endextract
\Largemusicsize\startextract
\Notes\roff{\zcharnote c{\wave{3\noteskip}}}\qa c\sk\sk\qa c\en
\message{\the\internote}%
\Notes\roff{\zcharnote f{\wave{4\noteskip}}}\qa f\sk\sk\sk\qa f\en
\Notes\roff{\zcharnote g{\wave{5\noteskip}}}\qa g\sk\sk\sk\sk\qa g\en
\endextract
\bye
