source file of the GNU LilyPond music typesetter
- (c) 1997--2003 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+ (c) 1997--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
*/
dydx = 0.25;
Real ss = Staff_symbol_referencer::staff_space (me);
- Real thick = gh_scm2double (me->get_grob_property ("beam-thickness"));
- Real width = gh_scm2double (me->get_grob_property ("beam-width"));
+ Real thick = robust_scm2double (me->get_grob_property ("beam-thickness"),1);
+ Real width = robust_scm2double (me->get_grob_property ("beam-width"),1);
+ Real blot = me->get_paper ()->get_realvar (ly_symbol2scm ("blotdiameter"));
+
width *= ss;
thick *= ss;
- Molecule a (Lookup::beam (dydx, width, thick));
+ Molecule a (Lookup::beam (dydx, width, thick, blot));
a.translate (Offset (-width/2, width / 2 * dydx));
int tremolo_flags = 0;
Grob *stem = unsmob_grob (me->get_grob_property ("stem"));
Grob *beam = Stem::get_beam (stem);
Direction stemdir = Stem::get_direction (stem);
- Real beam_translation = beam ? Beam::get_beam_translation (beam) : 0.81;
+ Real beam_translation
+ = (beam && beam->live ())
+ ? Beam::get_beam_translation (beam)
+ : 0.81;
Molecule mol = raw_molecule (me);
Interval mol_ext = mol.extent (Y_AXIS);
Real ss = Staff_symbol_referencer::staff_space (me);
// ugh, rather calc from Stem_tremolo_req
- int beam_count = (beam) ? (Stem::beam_multiplicity (stem).length ()+ 1): 0;
+ int beam_count = (beam) ? (Stem::beam_multiplicity (stem).length () + 1): 0;
/*
TODO.