2 item.cc -- implement Item
4 source file of the GNU LilyPond music typesetter
6 (c) 1997--2001 Han-Wen Nienhuys <hanwen@cs.uu.nl>
10 #include "paper-score.hh"
13 #include "paper-column.hh"
15 #include "lily-guile.hh"
16 #include "line-of-score.hh"
21 broken_to_drul_[LEFT] = broken_to_drul_[RIGHT]=0;
25 Item copy ctor. Copy nothing: everything should be a elt property
26 or a special purpose pointer (such as broken_to_drul_[]) */
27 Item::Item (Item const &s)
30 broken_to_drul_[LEFT] = broken_to_drul_[RIGHT] =0;
35 Item::breakable_b (Grob*me)
40 if (!dynamic_cast<Item*> (me))
41 programming_error ("only items can be breakable.");
43 Item * i =dynamic_cast<Item*> (me->parent_l (X_AXIS));
44 return (i) ? Item::breakable_b (i) : to_boolean (me->get_grob_property ("breakable"));
48 Item::column_l () const
50 Item *parent = dynamic_cast<Item*> (parent_l (X_AXIS));
51 return parent ? parent->column_l () : 0;
57 Grob *g = parent_l (X_AXIS);
58 return g ? g->line_l () : 0;
63 Item::copy_breakable_items ()
65 Drul_array<Item *> new_copies;
69 Grob * dolly = clone ();
70 Item * item_p = dynamic_cast<Item*> (dolly);
71 pscore_l_->line_l_->typeset_grob (item_p);
72 new_copies[i] =item_p;
74 while (flip (&i) != LEFT);
75 broken_to_drul_= new_copies;
80 Item::broken_b () const
82 return broken_to_drul_[LEFT] || broken_to_drul_[RIGHT];
87 Generate items for begin and end-of line.
90 Item::discretionary_processing ()
95 if (Item::breakable_b (this))
96 copy_breakable_items ();
100 Item::find_broken_piece (Line_of_score*l) const
103 return (Item*) (this);
107 Grob *s = broken_to_drul_[d];
108 if (s && s->line_l () == l)
111 while (flip (&d) != LEFT);
118 Item::find_prebroken_piece (Direction d) const
120 Item * me = (Item *) (this);
123 return dynamic_cast<Item*> (broken_to_drul_[d]);
128 Item::break_status_dir () const
132 Item * i = dynamic_cast<Item*> (original_l_);
134 return (i->broken_to_drul_[LEFT] == this) ? LEFT : RIGHT;
141 Item::handle_prebroken_dependencies ()
145 mutable_property_alist_
146 = handle_broken_grobs(original_l_->mutable_property_alist_,
147 gh_int2scm (break_status_dir ()));
151 Can't do this earlier, because try_visibility_lambda () might set
152 the elt property transparent, which would then be copied.
156 handle visibility-lambda the item itself iso. breakstatusdir, so
157 the function can do more complicated things.
160 SCM vis = get_grob_property ("visibility-lambda");
161 if (gh_procedure_p (vis))
163 SCM args = scm_listify (gh_int2scm (break_status_dir ()), SCM_UNDEFINED);
164 SCM result = gh_apply (vis, args);
165 bool trans = gh_scm2bool (gh_car (result));
166 bool empty = gh_scm2bool (gh_cdr (result));
172 set_extent_callback (SCM_EOL, X_AXIS);
173 set_extent_callback (SCM_EOL, Y_AXIS);
176 set_grob_property ("molecule-callback", SCM_BOOL_T);
181 Item::do_derived_mark ()
183 if (broken_to_drul_[LEFT])
184 scm_gc_mark (broken_to_drul_[LEFT]->self_scm ());
185 if (broken_to_drul_[RIGHT])
186 scm_gc_mark (broken_to_drul_[RIGHT]->self_scm ());