/*
- ledger-line-spanner.cc -- implement Ledger_line_spanner
+ ledger-line-spanner.cc -- implement Ledger_line_spanner
source file of the GNU LilyPond music typesetter
- (c) 2004 Han-Wen Nienhuys <hanwen@xs4all.nl>
+ (c) 2004--2005 Han-Wen Nienhuys <hanwen@xs4all.nl>
*/
TODO: ledger share a lot of info. Lots of room to optimize away common
use of objects/variables.
*/
-MAKE_SCHEME_CALLBACK (Ledger_line_spanner,print,1);
+MAKE_SCHEME_CALLBACK (Ledger_line_spanner, print, 1);
SCM
Ledger_line_spanner::print (SCM smob)
{
Interval max_size = reqs[Paper_column::get_rank (h->get_column ())][Direction (sign(pos))].ledger_extent_;
ledger_size.intersect (max_size);
- Real left_shorten =0.0;
+ Real left_shorten = 0.0;
if (Grob * g = unsmob_grob (h->get_property ("accidental-grob")))
{
Interval accidental_size = g->extent (common[X_AXIS], X_AXIS);
Real d =
linear_combination (Drul_array<Real> (accidental_size[RIGHT],
- head_size[LEFT]),
+ head_size[LEFT]),
0.0);
left_shorten = (-ledger_size[LEFT] + d) >? 0 ;