X-Git-Url: https://git.donarmstrong.com/lilypond.git?a=blobdiff_plain;f=mf%2Fwat-zie-ik.mf;h=8bcdf19bc8ee190ee918a5cc509f4f2b313297b5;hb=eb51afef3e13a459b68987e975f2cf2c7bb2877c;hp=507d377496f80eb5e8cc806aa893931c149fd6e3;hpb=1418a81efc4469c60cde59a98a6943ceba55a394;p=lilypond.git diff --git a/mf/wat-zie-ik.mf b/mf/wat-zie-ik.mf index 507d377496..8bcdf19bc8 100644 --- a/mf/wat-zie-ik.mf +++ b/mf/wat-zie-ik.mf @@ -2,24 +2,21 @@ % part of LilyPond's pretty-but-neat music font % beams: plat en steil -%\tracingequations:= tracingonline := 1; - +input feta-params; 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:=20; LENGTHS:=6; ELEM_FACTOR := 2; ELEM_INITIAL_LEN:=2; - -% Beamslopes up for i := -SLOPES upto SLOPES: width:= ELEM_INITIAL_LEN; for j:=1 upto LENGTHS: