#include <math.h>
+#include "align-interface.hh"
#include "axis-group-interface.hh"
#include "warn.hh"
#include "system.hh"
#include "spacing-interface.hh"
#include "staff-symbol-referencer.hh"
#include "paper-book.hh"
-#include "paper-line.hh"
+#include "paper-system.hh"
System::System (SCM s)
: Spanner (s)
System::spanner_count () const
{
int k = 0;
- for (SCM s = get_property ("all-elements"); ly_c_pair_p (s); s = ly_cdr (s))
- if (dynamic_cast<Spanner*> (unsmob_grob (ly_car (s))))
+ for (SCM s = get_property ("all-elements"); scm_is_pair (s); s = scm_cdr (s))
+ if (dynamic_cast<Spanner*> (unsmob_grob (scm_car (s))))
k++;
return k;
}
static void
fixup_refpoints (SCM s)
{
- for (; ly_c_pair_p (s); s = ly_cdr (s))
+ for (; scm_is_pair (s); s = scm_cdr (s))
{
- Grob::fixup_refpoint (ly_car (s));
+ Grob::fixup_refpoint (scm_car (s));
}
}
SCM
System::get_lines ()
{
- for (SCM s = get_property ("all-elements"); ly_c_pair_p (s); s = ly_cdr (s))
+ for (SCM s = get_property ("all-elements"); scm_is_pair (s); s = scm_cdr (s))
{
- Grob *g = unsmob_grob (ly_car (s));
+ Grob *g = unsmob_grob (scm_car (s));
if (g->internal_has_interface (ly_symbol2scm ("only-prebreak-interface")))
{
/*
{
Grob *se = broken_intos_[i];
SCM all = se->get_property ("all-elements");
- for (SCM s = all; ly_c_pair_p (s); s = ly_cdr (s))
- fixup_refpoint (ly_car (s));
+ for (SCM s = all; scm_is_pair (s); s = scm_cdr (s))
+ fixup_refpoint (scm_car (s));
count += scm_ilength (all);
}
*/
fixup_refpoints (get_property ("all-elements"));
- for (SCM s = get_property ("all-elements"); ly_c_pair_p (s); s = ly_cdr (s))
- unsmob_grob (ly_car (s))->handle_broken_dependencies ();
+ for (SCM s = get_property ("all-elements"); scm_is_pair (s); s = scm_cdr (s))
+ unsmob_grob (scm_car (s))->handle_broken_dependencies ();
handle_broken_dependencies ();
#if 0 /* don't do this: strange side effects. */
while (1)
{
SCM between = loose->get_property ("between-cols");
- if (!ly_c_pair_p (between))
+ if (!scm_is_pair (between))
break;
- Item *le = dynamic_cast<Item*> (unsmob_grob (ly_car (between)));
- Item *re = dynamic_cast<Item*> (unsmob_grob (ly_cdr (between)));
+ Item *le = dynamic_cast<Item*> (unsmob_grob (scm_car (between)));
+ Item *re = dynamic_cast<Item*> (unsmob_grob (scm_cdr (between)));
if (!(le && re))
break;
{
Grob *me = this;
SCM cs = me->get_property ("columns");
- Grob *prev = ly_c_pair_p (cs) ? unsmob_grob (ly_car (cs)) : 0;
+ Grob *prev = scm_is_pair (cs) ? unsmob_grob (scm_car (cs)) : 0;
p->rank_ = prev ? Paper_column::get_rank (prev) + 1 : 0;
void
System::pre_processing ()
{
- for (SCM s = get_property ("all-elements"); ly_c_pair_p (s); s = ly_cdr (s))
- unsmob_grob (ly_car (s))->discretionary_processing ();
+ for (SCM s = get_property ("all-elements"); scm_is_pair (s); s = scm_cdr (s))
+ unsmob_grob (scm_car (s))->discretionary_processing ();
if (verbose_global_b)
progress_indication (_f ("Grob count %d", element_count ()));
-
- for (SCM s = get_property ("all-elements"); ly_c_pair_p (s); s = ly_cdr (s))
- unsmob_grob (ly_car (s))->handle_prebroken_dependencies ();
+ for (SCM s = get_property ("all-elements"); scm_is_pair (s); s = scm_cdr (s))
+ unsmob_grob (scm_car (s))->handle_prebroken_dependencies ();
fixup_refpoints (get_property ("all-elements"));
- for (SCM s = get_property ("all-elements"); ly_c_pair_p (s); s = ly_cdr (s))
+ for (SCM s = get_property ("all-elements"); scm_is_pair (s); s = scm_cdr (s))
{
- Grob* sc = unsmob_grob (ly_car (s));
+ Grob *sc = unsmob_grob (scm_car (s));
sc->calculate_dependencies (PRECALCED, PRECALCING, ly_symbol2scm ("before-line-breaking-callback"));
}
- progress_indication ("\n" + _ ("Calculating line breaks...") + " ");
- for (SCM s = get_property ("all-elements"); ly_c_pair_p (s); s = ly_cdr (s))
+ progress_indication ("\n");
+ progress_indication (_ ("Calculating line breaks..."));
+ progress_indication (" ");
+ for (SCM s = get_property ("all-elements"); scm_is_pair (s); s = scm_cdr (s))
{
- Grob *e = unsmob_grob (ly_car (s));
+ Grob *e = unsmob_grob (scm_car (s));
SCM proc = e->get_property ("spacing-procedure");
if (ly_c_procedure_p (proc))
scm_call_1 (proc, e->self_scm ());
void
System::post_processing ()
{
- for (SCM s = get_property ("all-elements"); ly_c_pair_p (s); s = ly_cdr (s))
+ for (SCM s = get_property ("all-elements"); scm_is_pair (s); s = scm_cdr (s))
{
- Grob *g = unsmob_grob (ly_car (s));
+ Grob *g = unsmob_grob (scm_car (s));
g->calculate_dependencies (POSTCALCED, POSTCALCING,
ly_symbol2scm ("after-line-breaking-callback"));
}
programming_error ("System with zero extent.");
else
translate_axis (-iv[MAX], Y_AXIS);
-
+
/* Generate all stencils to trigger font loads.
This might seem inefficient, but Stencils are cached per grob
anyway. */
all = ly_list_qsort_uniq_x (all);
this->get_stencil ();
- for (SCM s = all; ly_c_pair_p (s); s = ly_cdr (s))
+ for (SCM s = all; scm_is_pair (s); s = scm_cdr (s))
{
- Grob *g = unsmob_grob (ly_car (s));
+ Grob *g = unsmob_grob (scm_car (s));
g->get_stencil ();
}
}
{
static int const LAYER_COUNT = 3;
- SCM stencils = SCM_EOL;
- if (Stencil *me = get_stencil ())
- stencils = scm_cons (me->smobbed_copy (), stencils);
+ SCM exprs = SCM_EOL;
+ SCM *tail = &exprs;
/* Output stencils in three layers: 0, 1, 2. Default layer: 1.
Start with layer 3, since scm_cons prepends to list. */
SCM all = get_property ("all-elements");
-
- SCM exprs = SCM_EOL;
- SCM *tail = &exprs;
-
- Real penalty = 0;
+ Interval staff_refpoints;
+ staff_refpoints.set_empty();
+
for (int i = LAYER_COUNT; i--;)
- for (SCM s = all; ly_c_pair_p (s); s = ly_cdr (s))
+ for (SCM s = all; scm_is_pair (s); s = scm_cdr (s))
{
- Grob *g = unsmob_grob (ly_car (s));
+ Grob *g = unsmob_grob (scm_car (s));
Stencil *stil = g->get_stencil ();
+ if (i == 0
+ && Axis_group_interface::has_interface (g)
+ && !Align_interface::has_interface (g)
+ && dynamic_cast<Spanner*> (g)
+ /*
+ UGH.
+ */
+ && !g->internal_has_interface (ly_symbol2scm ("dynamic-interface"))
+ && !g->internal_has_interface (ly_symbol2scm ("piano-pedal-interface"))
+ )
+ {
+ staff_refpoints.add_point (g->relative_coordinate (this, Y_AXIS));
+ }
+
/* Skip empty stencils and grobs that are not in this layer. */
if (!stil
|| robust_scm2int (g->get_property ("layer"), 1) != i)
st.translate (o + extra);
*tail = scm_cons (st.expr (), SCM_EOL);
tail = SCM_CDRLOC(*tail);
-
- /*
- UGH. back-end should extract this info from the System?
- */
- if (g->original_)
- {
- /*
- Huh ? penalties from all columns are added ??!! --hwn
- */
- if (Item *it = dynamic_cast <Item*> (g))
- {
- Grob *col = it->get_column ();
- SCM s = col->get_property ("page-penalty");
-
- // FIXME; page breaking is not discrete at +-10000
- if (ly_c_number_p (s)) // && fabs (ly_scm2double (s)) < 10000)
- penalty += ly_scm2double (s);
- }
- }
}
- /*
- TODO: fix user penalties.
-
- */
-
+ if (Stencil *me = get_stencil ())
+ exprs = scm_cons (me->expr (), exprs);
+
Interval x (extent (this, X_AXIS));
Interval y (extent (this, Y_AXIS));
Stencil sys_stencil (Box (x,y),
scm_cons (ly_symbol2scm ("combine-stencil"),
exprs));
- Paper_line *pl = new Paper_line (sys_stencil, false);
-
+ Paper_system *pl = new Paper_system (sys_stencil, false);
+ pl->staff_refpoints_ = staff_refpoints;
+ Item * break_point =this->get_bound(LEFT);
+ pl->penalty_ =
+ robust_scm2double (break_point->get_property ("page-penalty"), 0.0);
+
return scm_gc_unprotect_object (pl->self_scm ());
}
right = right->get_column ();
SCM s = get_property ("columns");
- while (ly_c_pair_p (s) && ly_car (s) != right->self_scm ())
- s = ly_cdr (s);
+ while (scm_is_pair (s) && scm_car (s) != right->self_scm ())
+ s = scm_cdr (s);
- if (ly_c_pair_p (s))
- s = ly_cdr (s);
+ if (scm_is_pair (s))
+ s = scm_cdr (s);
- while (ly_c_pair_p (s) && ly_car (s) != left->self_scm ())
+ while (scm_is_pair (s) && scm_car (s) != left->self_scm ())
{
- Paper_column*c = dynamic_cast<Paper_column*> (unsmob_grob (ly_car (s)));
+ Paper_column*c = dynamic_cast<Paper_column*> (unsmob_grob (scm_car (s)));
if (Item::is_breakable (c) && !c->system_)
ret.push (c);
- s = ly_cdr (s);
+ s = scm_cdr (s);
}
ret.reverse ();