#include "font-interface.hh"
#include "output-def.hh"
-Grob *
+Grob *
Paper_column::clone (int count) const
{
return new Paper_column (*this, count);
}
-
ADD_INTERFACE (Paper_column, "paper-column-interface",
"@code{Paper_column} objects form the top-most X-parents for items. "
" The are two types of columns: musical columns, where are attached to, and "
" Since many columns go unused, you should only use the rank field to\n"
" get ordering information. Two adjacent columns may have\n"
" non-adjacent numbers.\n"
- "\n"
- ,
+ "\n",
"between-cols when bounded-by-me "
"page-penalty shortest-playing-duration shortest-starter-duration");
Item::do_break_processing ();
}
-
int
-Paper_column::get_rank (Grob*me)
+Paper_column::get_rank (Grob *me)
{
- return dynamic_cast<Paper_column*> (me)->rank_;
+ return dynamic_cast<Paper_column *> (me)->rank_;
}
-System*
+System *
Paper_column::get_system () const
{
return system_;
}
-Paper_column*
+Paper_column *
Paper_column::get_column () const
{
- return (Paper_column*) (this);
+ return (Paper_column *) (this);
}
-Paper_column::Paper_column (SCM l, Object_key const*key)
+Paper_column::Paper_column (SCM l, Object_key const *key)
: Item (l, key) // guh.?
{
system_ = 0;
rank_ = -1;
}
-
-Paper_column::Paper_column (Paper_column const& src, int count)
+Paper_column::Paper_column (Paper_column const &src, int count)
: Item (src, count)
{
system_ = 0;
rank_ = src.rank_;
}
-
Moment
Paper_column::when_mom (Grob *me)
{
}
return s != Moment (0);
}
-
bool
-Paper_column::is_used (Grob*me)
+Paper_column::is_used (Grob *me)
{
- return scm_is_pair (me->get_property ("elements")) || Item::is_breakable (me)
- || scm_is_pair (me->get_property ("bounded-by-me"))
- ;
+ return scm_is_pair (me->get_property ("elements")) || Item::is_breakable (me)
+ || scm_is_pair (me->get_property ("bounded-by-me"));
}
/*
- Print a vertical line and the rank number, to aid debugging.
- */
+ Print a vertical line and the rank number, to aid debugging.
+*/
MAKE_SCHEME_CALLBACK (Paper_column, print, 1);
SCM
SCM properties = Font_interface::text_font_alist_chain (me);
SCM scm_mol = Text_interface::interpret_markup (me->get_layout ()->self_scm (),
- properties,
- scm_makfrom0str (r.to_str0 ()));
+ properties,
+ scm_makfrom0str (r.to_str0 ()));
Stencil t = *unsmob_stencil (scm_mol);
t.align_to (X_AXIS, CENTER);
t.align_to (Y_AXIS, DOWN);
-
+
Stencil l = Lookup::filled_box (Box (Interval (-0.01, 0.01),
Interval (-2, -1)));
t.add_stencil (l);
- return t.smobbed_copy ();
+ return t.smobbed_copy ();
}
/*
columns are kept "alive". Unfortunately, when spanners are suicided,
this falls apart again. (sigh.)
- THIS IS BROKEN KLUDGE. WE SHOULD INVENT SOMETHING BETTER.
- */
+ THIS IS BROKEN KLUDGE. WE SHOULD INVENT SOMETHING BETTER.
+*/
MAKE_SCHEME_CALLBACK (Paper_column, before_line_breaking, 1);
SCM
Paper_column::before_line_breaking (SCM grob)
while (scm_is_pair (*ptrptr))
{
- Grob * g = unsmob_grob (scm_car (*ptrptr));
+ Grob *g = unsmob_grob (scm_car (*ptrptr));
if (!g || !g->is_live ())
{