/*
This file is part of LilyPond, the GNU music typesetter.
- Copyright (C) 1999--2011 Michael Krause
- Extensions for ancient notation (c) 2003--2011 by Juergen Reuter
+ Copyright (C) 1999--2012 Michael Krause
+ Extensions for ancient notation (c) 2003--2012 by Juergen Reuter
LilyPond is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
Breathing_sign::divisio_maior (SCM smob)
{
Grob *me = unsmob_grob (smob);
- Real staff_space = Staff_symbol_referencer::staff_space (me);
- Real staff_size;
Real thickness = Staff_symbol_referencer::line_thickness (me);
thickness *= robust_scm2double (me->get_property ("thickness"), 1.0);
- if (Staff_symbol_referencer::get_staff_symbol (me))
- staff_size = (Staff_symbol_referencer::line_count (me) - 1) * staff_space;
- else
- staff_size = 0.0;
-
Real blotdiameter = me->layout ()->get_dimension (ly_symbol2scm ("blot-diameter"));
/*
if (staff)
{
Interval iv = Staff_symbol::line_span (staff);
- Real inter = Staff_symbol::staff_space (me) / 2;
+ Real inter = Staff_symbol::staff_space (staff) / 2;
return scm_from_double (inter * iv[d]);
}