+pl 17.jcn2
+ - egcs compile (no link yet)
+ - nicer 4rest
+ - beam font (je kunt wel tegen een grapje, eva?)
+ - mf-to-table:
+ * "breapth" (x-depth) feature
+ * handle generic stuff such as beams
+
pl 17.jcn1
- all of the above
TOPLEVEL_PATCH_LEVEL = 17
# use to send patches, always empty for released version:
-TOPLEVEL_MY_PATCH_LEVEL = .jcn1
+TOPLEVEL_MY_PATCH_LEVEL = .jcn2
my $w = $fields [3];
my $h = $fields [4];
my $d = $fields [5];
- my $id = $fields [6];
- my $texstr = $fields [7];
- print OUTLY sprintf( "\"%s\"\t\"\\%s\"\t%.2f\\pt\t%.2f\\pt\t%.2f\\pt\t%.2f\\pt\n", $id, $texstr, 0, $w, $h, $d );
- print OUTTEX sprintf( "\\fetdef\\%s{%d}\n", $texstr, $c);
+ my $b = $fields [6];
+ my $id = $fields [7];
+ my $texstr = $fields [8];
+ print OUTLY sprintf( "\"%s\"\t\"\\%s\"\t%.2f\\pt\t%.2f\\pt\t%.2f\\pt\t%.2f\\pt\n", $id, $texstr, -$b, $w, $h, -$d );
+ # remove % from generic chars, and save start charcode
+ my $defstr = "\\fetdef";
+ if ($texstr =~ /{%/) {
+ $texstr =~ s/{%.*//;
+ $texstr .= "start";
+ $defstr = "\\def"
+ }
+ print OUTTEX sprintf( "%s\\%s{%d}\n", $defstr, $texstr, $c);
} else {
print STDERR "mf-to-table: $lineno: unknown label: \`$label\'\n";
}
-% generated at Thu Sep 25 01:22:50 1997 from out/dyn10.log
+% generated at Fri Sep 26 09:25:28 1997 from out/dyn10.log
% changes will be lost
% dyn=\symboltables {
-% generated at Thu Sep 25 01:22:51 1997 from out/font-en-tja16.log
+% generated at Fri Sep 26 09:25:30 1997 from out/font-en-tja16.log
% changes will be lost
% font-en-tja=\symboltables {
"balls" = \table {
- "0" "\wholeball" 0.00\pt 8.64\pt 4.80\pt 0.00\pt
- "1" "\halfball" 0.00\pt 6.01\pt 4.80\pt 0.00\pt
- "2" "\quartball" 0.00\pt 5.76\pt 4.80\pt 0.00\pt
- "-1" "\breveball" 0.00\pt 8.00\pt 4.00\pt 0.00\pt
- "-2" "\longaball" 0.00\pt 8.00\pt 4.00\pt 0.00\pt
+ "0" "\wholeball" -0.00\pt 8.28\pt 4.60\pt -0.00\pt
+ "1" "\halfball" -0.00\pt 5.76\pt 4.60\pt -0.00\pt
+ "2" "\quartball" -0.00\pt 5.52\pt 4.60\pt -0.00\pt
+ "-1" "\breveball" -0.00\pt 8.00\pt 4.00\pt -0.00\pt
+ "-2" "\longaball" -0.00\pt 8.00\pt 4.00\pt -0.00\pt
}
"almostrests" = \table {
- "4" "\quartrest" 0.00\pt 4.00\pt 16.00\pt 0.00\pt
- "-2" "\eighthrest" 0.00\pt 5.33\pt 7.47\pt 0.00\pt
- "-2" "\sixteenthrest" 0.00\pt 5.33\pt 11.47\pt 0.00\pt
- "-2" "\thirtysecondrest" 0.00\pt 5.33\pt 15.47\pt 0.00\pt
- "-2" "\sixtyfourthrest" 0.00\pt 5.33\pt 19.47\pt 0.00\pt
- "-2" "\hundredtwentyeighthrest" 0.00\pt 5.33\pt 23.47\pt 0.00\pt
+ "4" "\quartrest" -0.00\pt 4.00\pt 16.00\pt -0.00\pt
+ "-2" "\eighthrest" -0.00\pt 5.33\pt 7.47\pt -0.00\pt
+ "-2" "\sixteenthrest" -0.00\pt 5.33\pt 11.47\pt -0.00\pt
+ "-2" "\thirtysecondrest" -0.00\pt 5.33\pt 15.47\pt -0.00\pt
+ "-2" "\sixtyfourthrest" -0.00\pt 5.33\pt 19.47\pt -0.00\pt
+ "-2" "\hundredtwentyeighthrest" -0.00\pt 5.33\pt 23.47\pt -0.00\pt
+ }
+ "beamslopes" = \table {
+ "uslope" "\beamuslope{%}{%}" 2.00\pt 32.00\pt 0.00\pt -0.00\pt
+ "dslope" "\beamdslope{%}{%}" 2.00\pt 32.00\pt 0.00\pt -0.00\pt
+ "horizontal" "\rulesym{%}{%}" -0.00\pt 0.00\pt 0.00\pt -0.00\pt
}
% } % font-en-tja
-% generated at Thu Sep 25 01:22:52 1997 from out/font-en-tja20.log
+% generated at Fri Sep 26 09:25:32 1997 from out/font-en-tja20.log
% changes will be lost
% font-en-tja=\symboltables {
"balls" = \table {
- "0" "\wholeball" 0.00\pt 10.44\pt 5.80\pt 0.00\pt
- "1" "\halfball" 0.00\pt 7.26\pt 5.80\pt 0.00\pt
- "2" "\quartball" 0.00\pt 6.97\pt 5.80\pt 0.00\pt
- "-1" "\breveball" 0.00\pt 10.00\pt 5.00\pt 0.00\pt
- "-2" "\longaball" 0.00\pt 10.00\pt 5.00\pt 0.00\pt
+ "0" "\wholeball" -0.00\pt 10.08\pt 5.60\pt -0.00\pt
+ "1" "\halfball" -0.00\pt 7.01\pt 5.60\pt -0.00\pt
+ "2" "\quartball" -0.00\pt 6.73\pt 5.60\pt -0.00\pt
+ "-1" "\breveball" -0.00\pt 10.00\pt 5.00\pt -0.00\pt
+ "-2" "\longaball" -0.00\pt 10.00\pt 5.00\pt -0.00\pt
}
"almostrests" = \table {
- "4" "\quartrest" 0.00\pt 5.00\pt 20.00\pt 0.00\pt
- "-2" "\eighthrest" 0.00\pt 6.67\pt 9.13\pt 0.00\pt
- "-2" "\sixteenthrest" 0.00\pt 6.67\pt 14.13\pt 0.00\pt
- "-2" "\thirtysecondrest" 0.00\pt 6.67\pt 19.13\pt 0.00\pt
- "-2" "\sixtyfourthrest" 0.00\pt 6.67\pt 24.13\pt 0.00\pt
- "-2" "\hundredtwentyeighthrest" 0.00\pt 6.67\pt 29.13\pt 0.00\pt
+ "4" "\quartrest" -0.00\pt 5.00\pt 20.00\pt -0.00\pt
+ "-2" "\eighthrest" -0.00\pt 6.67\pt 9.13\pt -0.00\pt
+ "-2" "\sixteenthrest" -0.00\pt 6.67\pt 14.13\pt -0.00\pt
+ "-2" "\thirtysecondrest" -0.00\pt 6.67\pt 19.13\pt -0.00\pt
+ "-2" "\sixtyfourthrest" -0.00\pt 6.67\pt 24.13\pt -0.00\pt
+ "-2" "\hundredtwentyeighthrest" -0.00\pt 6.67\pt 29.13\pt -0.00\pt
+ }
+ "beamslopes" = \table {
+ "uslope" "\beamuslope{%}{%}" 2.00\pt 32.00\pt 0.00\pt -0.00\pt
+ "dslope" "\beamdslope{%}{%}" 2.00\pt 32.00\pt 0.00\pt -0.00\pt
+ "horizontal" "\rulesym{%}{%}" -0.00\pt 0.00\pt 0.00\pt -0.00\pt
}
% } % font-en-tja
"d7" "\dhundredtwentyeighthflag" 0.0\pt 4.0\pt 0.0\pt 0.0\pt
}
- "beamslopes" = \table {
+ "oldbeamslopes" = \table {
"uslope" "\beamuslope{%}{%}" 2.0\pt 64.0\pt 0.0\pt 0.0\pt
"dslope" "\beamdslope{%}{%}" 2.0\pt 64.0\pt 0.0\pt 0.0\pt
"horizontal" "\rulesym{%}{%}"
"d7" "\dhundredtwentyeighthflag" 0.0\pt 5.0\pt 0.0\pt 0.0\pt
}
- "beamslopes" = \table {
+ "oldbeamslopes" = \table {
"uslope" "\beamuslope{%}{%}" 2.0\pt 64.0\pt 0.0\pt 0.0\pt
"dslope" "\beamdslope{%}{%}" 2.0\pt 64.0\pt 0.0\pt 0.0\pt
"horizontal" "\rulesym{%}{%}"
c2 g c' a'
c4 g c' a'
a\ppp a\pp a\p a\mp a\mf a\f a\ff a\fff
- a\fp a\sf a\sfz % a\fz a\rf
+ a\fp a\sf a\sfz a % a\fz a\rf
+ [c8 c] [a' a']
+% [c a'] [a' c]
+ [c d e f] [a' g' f' e']
r1 r2 r4 r8 r16 r32 r64 r128
}
\paper{
Clef_engraver::do_creation_processing()
{
Scalar def = get_property ("defaultclef");
- if (def)
+ if (def.operator bool ()) // egcs: Scalar to bool is ambiguous
set_type (def);
if (clef_type_str_.length_i ())
create_clef();
#include "plist.hh"
#include "parray.hh"
+// egcs
typedef void (Translator::*Method_pointer)(void);
+typedef void (Translator::*Const_method_pointer)(void) const;
/** Make some kind of #Element#s from Requests. Elements are made by
hierarchically grouped #Translator#s
virtual void do_post_move_processing();
virtual void do_creation_processing();
virtual void do_removal_processing();
- void each (Method_pointer) const;
+ void each (Method_pointer);
+ void each (Const_method_pointer) const;
};
#endif // TRANSLATOR_GROUP_HH
IMPLEMENT_IS_TYPE_B1(Performer, Translator);
-Performer::Performer()
-{
-}
-
void
Performer::play (Audio_element* p)
{
if (ncol_p_)
{
if (! ncol_p_->h_shift_b_)
- ncol_p_->h_shift_b_ = (bool) get_property ("hshift");
+ // egcs
+ ncol_p_->h_shift_b_ = get_property ("hshift").operator bool ();
if (! ncol_p_->dir_)
ncol_p_->dir_ =(Direction) int(get_property ("ydirection"));
}
void
-Translator_group::each (Method_pointer method) const
+Translator_group::each (Method_pointer method)
+{
+ for (PCursor<Translator*> i (trans_p_list_.top ()); i.ok (); i++)
+ (i.ptr()->*method) ();
+}
+
+void
+Translator_group::each (Const_method_pointer method) const
{
for (PCursor<Translator*> i (trans_p_list_.top ()); i.ok (); i++)
(i.ptr()->*method) ();
# descent order into subdirectories:
#
-SUBDIRS = flower lib lily mf mi2mu \
- Documentation bin init input tex make
+SUBDIRS = bin flower lib lily mf mi2mu \
+ Documentation init input tex make
#
# list of distribution files:
# dependencies:
#
$(lyout)/dyn10.ly: autometric.mf ital-f.mf ital-m.mf ital-p.mf ital-r.mf ital-s.mf ital-z.mf dyn10.mf
-$(lyout)/font-en-tja16.ly: autometric.mf bolletjes.mf eindelijk.mf font-en-tja16.mf
-$(lyout)/font-en-tja20.ly: autometric.mf bolletjes.mf eindelijk.mf font-en-tja20.mf
+$(lyout)/font-en-tja16.ly: autometric.mf bolletjes.mf eindelijk.mf font-en-tja16.mf wat-zie-ik.mf
+$(lyout)/font-en-tja20.ly: autometric.mf bolletjes.mf eindelijk.mf font-en-tja20.mf wat-zie-ik.mf
#
$(texout)/dyn10.tex: autometric.mf ital-f.mf ital-m.mf ital-p.mf ital-r.mf ital-s.mf ital-z.mf dyn10.mf
-$(texout)/font-en-tja16.tex: autometric.mf bolletjes.mf eindelijk.mf font-en-tja16.mf
-$(texout)/font-en-tja20.tex: autometric.mf bolletjes.mf eindelijk.mf font-en-tja20.mf
+$(texout)/font-en-tja16.tex: autometric.mf bolletjes.mf eindelijk.mf font-en-tja16.mf wat-zie-ik.mf
+$(texout)/font-en-tja20.tex: autometric.mf bolletjes.mf eindelijk.mf font-en-tja20.mf wat-zie-ik.mf
#
% autometric.mf
% part of LilyPond's pretty-but-neat music font
+%
+% these macros help create ascii logging output
+% to automate generation of lily tables and tex backend
+% parsed by the mf-to-table script
% font or database?
def fet_beginfont(expr name,size) =
message "";
enddef;
-def fet_beginchar(expr code,w,h,d,name,id,texstr) =
- message "@@char:"&name&":"&decimal code&":"&decimal w&":"&decimal h&":"&decimal d&":"&id&":"&texstr&"@@";
+% starts just as plain mf's beginchar:
+% charcode, width, height, depth
+% and then adds:
+% charname see below
+% breapth x-depth
+% id index in lily's table
+% texstr name of tex macro in lily's table and tex backend
+def fet_beginchar(expr code,w,h,d,b,name,id,texstr) =
+ message "@@char:"&name&":"&decimal code&":"&decimal w&":"&decimal h&":"&decimal d&":"&decimal b&":"&id&":"&texstr&"@@";
beginchar(code,w,h,d) name;
enddef;
interline#:=staffsize#/(stafflines-1);
%noteheight#:=interline#;
% even more pronounced (almost overdone), just like the original
-noteheight#:=interline#+2stafflinethickness#;
+noteheight#:=interline#+1.5stafflinethickness#;
def test_grid =
if test>1:
define_pixels(a,b);
define_pixels(w,h);
define_pixels(ai,bi);
- fet_beginchar(code,w#,h#,0,name,id,texstr);
+ fet_beginchar(code,w#,h#,0,0,name,id,texstr);
path black,white;
black=distorted_ellipse(a,b,a*err_y_a,0,super);
white=distorted_ellipse(ai,bi,ai*err_y_ai,bi*err_x_bi,superi);
nhw#:=6/5interline#;
define_pixels(nhh,nhw);
-fet_beginchar(incr code,2interline#,interline#,0,"Brevis notehead","-1","breveball");
+fet_beginchar(incr code,2interline#,interline#,0,0,"Brevis notehead","-1","breveball");
fill_square (5/4nhw, .25nhh, (0,.25nhh));
add_mirror (origin, right);
x1=x2=0; x3=x4=5/4nhw; y1=-y2=y3=-y4=.7nhh;
savepic;
endchar;
-fet_beginchar(incr code,2interline#,interline#,0,"Longa notehead","-2","longaball");
+fet_beginchar(incr code,2interline#,interline#,0,0,"Longa notehead","-2","longaball");
callpic;
pickup line_pen;
draw (5/4nhw,-.7nhh)--(5/4nhw,-1.7nhh);
\font\musicfont=musix16
\font\slurfont=xslu16
-\font\specfont=musixspx
-\def\thefont{\musicfont}
+\font\specfont=musixspx % tildes? beams, circles, (de)-crescendos, pianobraces
+\font\eglerfont=opus16 % notes, clefs, beams
+\font\eglerspec=opussps % tabulars, circles, glissandi, pianobraces
+\font\tjafont=font-en-tja16
+%\def\thefont{\musicfont}
%\def\thefont{\specfont}
+%\def\thefont{\eglerfont}
+\def\thefont{\tjafont}
\def\mb#1{{\thefont\char#1}}
define_pixels(interline);
define_pixels(stafflinethickness);
% MO*TeX stuff
-nhh#:=interline#;
-nhw#:=6/5*interline#;
-define_pixels(nhh,nhw);
-
-
+% nhh#:=interline#;
+% nhw#:=6/5*interline#;
+% define_pixels(interline,nhw);
med#:=1/33designsize;
thick#:=1/16designsize;
flare#:=2/3interline#;
define_pixels(stem,flare);
-fet_beginchar(incr code,interline#,4interline#,0,"Quarter rest","4","quartrest");
+fet_beginchar(incr code,interline#,4interline#,0,0,"Quarter rest","4","quartrest");
alpha:=-50;
penpos1(rthin,alpha+90);
penpos2(5/4rthick,alpha);
penpos4(5/4rthick,alpha);
penpos3(3/4rthick,alpha);
penpos6(rthin,alpha-20);
- penpos7(4/3thick,alpha);
+% penpos6(rthick,alpha-20);
+% penpos7(4/3thick,alpha);
+ penpos7(5/8rthick,alpha);
penpos8(rthin,-10);
- y1l=7/2nhh; x1l=1/3nhh;
- z2r=z1+(nhh*right) rotated alpha;
+ y1l=7/2interline; x1l=1/3interline;
+ z2r=z1+(interline*right) rotated alpha;
z3=1/2[z2,z4];
- x4=3/8nhh; y4=2nhh;
- z6=z4l+(5/4nhh*right) rotated alpha;
- x7l=x4l; y7r=y6l;
- x8=1/3nhw; y8= nhh-1/4nhh;
+ x4=3/8interline; y4=2interline;
+ z6=z4l+(5/4interline*right) rotated alpha;
+% x7l=x4l; y7r=y6l;
+ x7l=x4l; y7l=y4r;
+ x8=2/5interline; y8= interline-1/4interline;
z5=z6r shifted (sqrt(2)*rthin/4,sqrt(2)*rthin/4);
pickup penrazor scaled rthin rotated 45;
endgroup;
enddef;
-fet_beginchar(incr code,4/3interline#,5/3interline#+2stafflinethickness#,0,"8th rest","-2","eighthrest");
+fet_beginchar(incr code,4/3interline#,5/3interline#+2stafflinethickness#,0,0,"8th rest","-2","eighthrest");
save x,y;
x1=w-stem/6; y1=h-flare/4;
crook (z1,w-stem/6);
% currentpicture:=currentpicture shifted (0,interline+2stafflinethickness);
endchar;
-fet_beginchar(incr code,4/3interline#,5/3interline#+interline#+2stafflinethickness#,0,"16th rest","-2","sixteenthrest");
+fet_beginchar(incr code,4/3interline#,5/3interline#+interline#+2stafflinethickness#,0,0,"16th rest","-2","sixteenthrest");
save x,y;
x1=w-stem/6; y1=h-flare/4;
z2-z1=whatever*dir74;
% currentpicture:=currentpicture shifted (0,2stafflinethickness);
endchar;
-fet_beginchar(incr code,4/3interline#,5/3interline#+2interline#+2stafflinethickness#,0,"32th rest","-2","thirtysecondrest");
+fet_beginchar(incr code,4/3interline#,5/3interline#+2interline#+2stafflinethickness#,0,0,"32th rest","-2","thirtysecondrest");
save x,y;
x1=w-stem/6; y1=h-flare/4;
z2-z1=whatever*dir76;
% currentpicture:=currentpicture shifted (0,2stafflinethickness);
endchar;
-fet_beginchar(incr code,4/3interline#,5/3interline#+3interline#+2stafflinethickness#,0,"64th rest","-2","sixtyfourthrest");
+fet_beginchar(incr code,4/3interline#,5/3interline#+3interline#+2stafflinethickness#,0,0,"64th rest","-2","sixtyfourthrest");
save x,y;
x1=w-stem/6; y1=h-flare/4;
z2-z1=whatever*dir78;
% currentpicture:=currentpicture shifted (0,2stafflinethickness);
endchar;
-fet_beginchar(incr code,4/3interline#,5/3interline#+4interline#+2stafflinethickness#,0,"128th rest","-2","hundredtwentyeighthrest");
+fet_beginchar(incr code,4/3interline#,5/3interline#+4interline#+2stafflinethickness#,0,0,"128th rest","-2","hundredtwentyeighthrest");
save x,y;
x1=w-stem/6; y1=h-flare/4;
z2-z1=whatever*dir80;
input bolletjes;
input eindelijk;
+input wat-zie-ik;
fet_endfont("font-en-tja");
input bolletjes;
input eindelijk;
+input wat-zie-ik;
fet_endfont("font-en-tja");
--- /dev/null
+% wat-zie-ik.mf
+% part of LilyPond's pretty-but-neat music font
+% beams: plat en steil
+
+fet_begingroup("beamslopes");
+
+beamheight#:=0.48interline#;
+define_pixels(beamheight);
+
+pen beam_pen;
+beam_pen:=penrazor scaled beamheight rotated 90;
+
+% mimic taupin-SLOPES for now -- because lily knows them
+ELEM_TAN:=0.05;
+SLOPES:=10;
+LENGTHS:=5;
+ELEM_LEN:=2;
+
+% fake char for tables; will be overwritten by mf
+% misuse breapth for minimum length (mf-to-table negates breapth again)
+fet_beginchar(code+1,ELEM_LEN**LENGTHS,0,0,-ELEM_LEN,"Beamslopes up","uslope","beamuslope{%}{%}");
+ endchar;
+
+% Beamslopes up
+for i:=1 upto SLOPES:
+ width:=ELEM_LEN;
+ for j:=1 upto LENGTHS:
+ beginchar(incr code,width,0,0);
+ pickup beam_pen;
+ draw origin--(lft w,w*i*ELEM_TAN);
+ endchar;
+ width:=2*width;
+ endfor;
+ endfor;
+
+% fake char for tables; will be overwritten by mf
+% misuse breapth for minimum length (mf-to-table negates breapth again)
+fet_beginchar(code+1,ELEM_LEN**LENGTHS,0,0,-ELEM_LEN,"Beamslopes down","dslope","beamdslope{%}{%}");
+ endchar;
+
+% Beamslopes down
+for i:=1 upto SLOPES:
+ width:=ELEM_LEN;
+ for j:=1 upto LENGTHS:
+ beginchar(incr code,width,0,0);
+ pickup beam_pen;
+ draw origin--(lft w,-w*i*ELEM_TAN);
+ endchar;
+ width:=2*width;
+ endfor;
+ endfor;
+
+% fake char for tables
+fet_beginchar(code+1*SLOPES*LENGTHS,0,0,0,0,"Horizontal beams","horizontal","rulesym{%}{%}");
+ endchar;
+
+fet_endgroup("beamslopes");
+
-% generated at Thu Sep 25 01:22:50 1997 from out/dyn10.log
+% generated at Fri Sep 26 09:25:28 1997 from out/dyn10.log
% changes will be lost
% dyn
+% fetdefs.tex
+% encapsulating tex backend for auto-generated font-en-tja definitions
\def\fetsixteendefs{
\font\fontentja=font-en-tja16
% \def\fetdef#1#2{\def#1{\fetchar{#2}}}
% ugh, linewidth, ugh, tablexx.ly balldims not used!
-\def\fetdef#1#2{\def#1{\lower.5\staffrulethickness\hbox{\fetchar{#2}}}}
+\def\fetdef#1#2{\def#1{\lower.3884\staffrulethickness\hbox{\fetchar{#2}}}}
\def\fetchar#1{\fontentja\char#1}
+
\input font-en-tja20
+
+\def\beamuslope#1#2{{\count0=#2\advance\count0 by#1
+ \advance\count0 by \beamuslopestart
+ % huh?? -- think i followed taupin beam convention
+ % is lily confused?
+ \advance\count0 by -8
+ \fetchar\count0}}
+\def\beamdslope#1#2{{\count0=#2\advance\count0 by#1
+ \advance\count0 by \beamdslopestart
+ % huh??
+ \advance\count0 by -8
+ \fetchar\count0}}
-% generated at Thu Sep 25 01:22:51 1997 from out/font-en-tja16.log
+% generated at Fri Sep 26 09:25:30 1997 from out/font-en-tja16.log
% changes will be lost
% font-en-tja
\fetdef\sixtyfourthrest{9}
\fetdef\hundredtwentyeighthrest{10}
+% beamslopes
+\def\beamuslopestart{11}
+\def\beamdslopestart{61}
+\def\rulesymstart{160}
+
-% generated at Thu Sep 25 01:22:52 1997 from out/font-en-tja20.log
+% generated at Fri Sep 26 09:25:32 1997 from out/font-en-tja20.log
% changes will be lost
% font-en-tja
\fetdef\sixtyfourthrest{9}
\fetdef\hundredtwentyeighthrest{10}
+% beamslopes
+\def\beamuslopestart{11}
+\def\beamdslopestart{61}
+\def\rulesymstart{160}
+
\def\tr{{\it tr}}
-\def\beamuslope#1#2{{\count0=#2\advance\count0 by#1
- \advance\count0 by 122
- \musicfnt\char\count0}}
-\def\beamdslope#1#2{{\count0=#2\advance\count0 by#1
- \advance\count0 by 186
- \musicfnt\char\count0}}
+% \def\beamuslope#1#2{{\count0=#2\advance\count0 by#1
+% \advance\count0 by 122
+% \musicfnt\char\count0}}
+% \def\beamdslope#1#2{{\count0=#2\advance\count0 by#1
+% \advance\count0 by 186
+% \musicfnt\char\count0}}