% 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: