if (Stencil *m = unsmob_stencil (mol))
return ly_interval2scm (m->extent (a));
else
- return ly_interval2scm (Interval());
+ return ly_interval2scm (Interval ());
}
Stencil
Stem_tremolo::raw_stencil (Grob *me)
{
- Grob *stem = unsmob_grob (me->get_grob_property ("stem"));
+ Grob *stem = unsmob_grob (me->get_property ("stem"));
Grob *beam = Stem::get_beam (stem);
Real dydx;
if (beam)
{
Real dy = 0;
- SCM s = beam->get_grob_property ("positions");
+ SCM s = beam->get_property ("positions");
if (is_number_pair (s))
{
dy = -gh_scm2double (gh_car (s)) +gh_scm2double (gh_cdr (s));
dydx = 0.25;
Real ss = Staff_symbol_referencer::staff_space (me);
- Real thick = robust_scm2double (me->get_grob_property ("beam-thickness"),1);
- Real width = robust_scm2double (me->get_grob_property ("beam-width"),1);
+ Real thick = robust_scm2double (me->get_property ("beam-thickness"),1);
+ Real width = robust_scm2double (me->get_property ("beam-width"),1);
Real blot = me->get_paper ()->get_realvar (ly_symbol2scm ("blotdiameter"));
width *= ss;
a.translate (Offset (-width/2, width / 2 * dydx));
int tremolo_flags = 0;
- SCM s = me->get_grob_property ("flag-count");
+ SCM s = me->get_property ("flag-count");
if (gh_number_p (s))
tremolo_flags = gh_scm2int (s);
{
programming_error ("No tremolo flags?");
- me->suicide();
+ me->suicide ();
return Stencil ();
}
Stem_tremolo::print (SCM grob)
{
Grob *me = unsmob_grob (grob);
- Grob *stem = unsmob_grob (me->get_grob_property ("stem"));
+ Grob *stem = unsmob_grob (me->get_property ("stem"));
Grob *beam = Stem::get_beam (stem);
Direction stemdir = Stem::get_direction (stem);
Real beam_translation
// ugh, rather calc from Stem_tremolo_req
int beam_count = (beam) ? (Stem::beam_multiplicity (stem).length () + 1): 0;
- /*
- TODO.
- */
-
Real beamthickness = 0.0;
- SCM sbt = (beam) ? beam->get_grob_property ("thickness") : SCM_EOL ;
+ SCM sbt = (beam) ? beam->get_property ("thickness") : SCM_EOL ;
if (gh_number_p (sbt))
{
beamthickness = gh_scm2double (sbt) * ss;
void
Stem_tremolo::set_stem (Grob*me,Grob *s)
{
- me->set_grob_property ("stem", s->self_scm ());
+ me->set_property ("stem", s->self_scm ());
}
ADD_INTERFACE (Stem_tremolo,"stem-tremolo-interface",
- "",
+ "A beam slashing a stem to indicate a tremolo.",
"stem beam-width beam-thickness flag-count");