source file of the GNU LilyPond music typesetter
- (c) 1996--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+ (c) 1996--2005 Han-Wen Nienhuys <hanwen@xs4all.nl>
*/
#include "spanner.hh"
-#include <math.h>
-#include <libc-extension.hh>
-
-#include "warn.hh"
+#include "pointer-group-interface.hh"
+#include "libc-extension.hh"
+#include "paper-column.hh"
#include "paper-column.hh"
#include "paper-score.hh"
#include "stencil.hh"
-#include "paper-column.hh"
#include "system.hh"
-#include "group-interface.hh"
+#include "warn.hh"
Grob *
Spanner::clone (int count) const
broken_intos_.push (span);
}
}
- while ((flip (&d))!= LEFT);
+ while ((flip (&d)) != LEFT);
}
else
{
- Link_array<Item> break_points = pscore_->system_->broken_col_range (left, right);
+ System *root = get_root_system (this);
+ Link_array<Item> break_points = root->broken_col_range (left, right);
break_points.insert (left, 0);
break_points.push (right);
- for (int i =1; i < break_points.size (); i++)
+ for (int i = 1; i < break_points.size (); i++)
{
Drul_array<Item *> bounds;
bounds[LEFT] = break_points[i - 1];
if (!bounds[d]->get_system ())
bounds[d] = bounds[d]->find_prebroken_piece (- d);
}
- while ((flip (&d))!= LEFT);
+ while ((flip (&d)) != LEFT);
if (!bounds[LEFT] || ! bounds[RIGHT])
{
Interval_t<int> iv (0, 0);
if (spanned_drul_[LEFT] && spanned_drul_[LEFT]->get_column ())
- iv[LEFT] = Paper_column::get_rank (spanned_drul_[LEFT]->get_column ());
+ iv[LEFT] = spanned_drul_[LEFT]->get_column ()->get_rank ();
if (spanned_drul_[RIGHT] && spanned_drul_[RIGHT]->get_column ())
- iv[RIGHT] = Paper_column::get_rank (spanned_drul_[RIGHT]->get_column ());
+ iv[RIGHT] = spanned_drul_[RIGHT]->get_column ()->get_rank ();
return iv;
}
Item *i = dynamic_cast<Item *> (s);
if (!i)
{
- programming_error ("Must have Item for spanner bound.");
+ programming_error ("must have Item for spanner bound");
return;
}
We check for System to prevent the column -> line_of_score
-> column -> line_of_score -> etc situation */
if (d == LEFT && !dynamic_cast<System *> (this))
- {
- set_parent (i, X_AXIS);
- }
+ set_parent (i, X_AXIS);
/*
Signal that this column needs to be kept alive. They need to be
*/
if (dynamic_cast<Paper_column *> (i))
- {
- Pointer_group_interface::add_grob (i, ly_symbol2scm ("bounded-by-me"), this);
- }
+ Pointer_group_interface::add_grob (i, ly_symbol2scm ("bounded-by-me"), this);
}
Spanner::Spanner (SCM s, Object_key const *key)
: Grob (s, key)
{
break_index_ = 0;
- spanned_drul_[LEFT]= 0;
- spanned_drul_[RIGHT]= 0;
-
- Group_interface::add_thing (this, ly_symbol2scm ("interfaces"), ly_symbol2scm ("spanner-interface"));
+ spanned_drul_[LEFT] = 0;
+ spanned_drul_[RIGHT] = 0;
}
Spanner::Spanner (Spanner const &s, int count)
Real l = spanned_drul_[LEFT]->relative_coordinate (0, X_AXIS);
Real r = spanned_drul_[RIGHT]->relative_coordinate (0, X_AXIS);
- if (r< l)
+ if (r < l)
programming_error ("spanner with negative length");
return r - l;
int
Spanner::compare (Spanner *const &p1, Spanner *const &p2)
{
- return p1->get_system ()->rank_ - p2->get_system ()->rank_;
+ return p1->get_system ()->get_rank () - p2->get_system ()->get_rank ();
}
bool
return 0.0;
}
-SCM
-Spanner::do_derived_mark () const
+void
+Spanner::derived_mark () const
{
- /*
- We'd be fucked if this is called before spanned_drul_[] is inited. */
- if (status_ == ORPHAN)
- return SCM_EOL;
-
Direction d = LEFT;
do
if (spanned_drul_[d])
scm_gc_mark (spanned_drul_[d]->self_scm ());
- while (flip (&d) != LEFT);
+ while (flip (&d) != LEFT)
+ ;
for (int i = broken_intos_.size (); i--;)
scm_gc_mark (broken_intos_[i]->self_scm ());
-
- return SCM_EOL;
}
/*
}
/*
- Return I such that SP == SP->ORIGINAL_->BROKEN_INTOS_[I].
+ Return I such that SP == SP->ORIGINAL ()->BROKEN_INTOS_[I].
*/
int
broken_spanner_index (Spanner *sp)
{
- Spanner *parent = dynamic_cast<Spanner *> (sp->original_);
+ Spanner *parent = dynamic_cast<Spanner *> (sp->original ());
return parent->broken_intos_.find_index (sp);
}