lilypond-0.0.76

diff --git a/lily/head-column.cc b/lily/head-column.cc
new file mode 100644 (file)
index 0000000..4a50701
--- /dev/null
+++ b/lily/head-column.cc
@@ -0,0 +1,69 @@
+/*
+  head-column.cc -- implement Head_column
+
+  source file of the GNU LilyPond music typesetter
+
+  (c) 1997 Han-Wen Nienhuys <hanwen@stack.nl>
+*/
+
+#include "debug.hh"
+#include "head-column.hh"
+#include "note-head.hh"
+#include "stem.hh"
+
+Head_column::Head_column()
+{
+    stem_l_ = 0;
+    dir_i_ =0;
+}
+
+void
+Head_column::do_substitute_dependency(Score_elem*o,
+                                     Score_elem*n)
+{
+    Script_column::do_substitute_dependency(o,n);
+    if (o->name() == Note_head::static_name()) {
+       head_l_arr_.substitute( (Note_head*)o->item(), 
+                               (n)? (Note_head*)n->item() : 0);
+    }
+    if (stem_l_ == o) {
+       stem_l_ = n ? (Stem*)n->item():0;
+    }
+}
+
+
+void
+Head_column::set(Stem*stem_l)
+{
+    stem_l_ = stem_l;
+    add_dependency(stem_l);
+}
+
+void
+Head_column::add(Note_head *n_l)
+{
+    add_support(n_l);
+    head_l_arr_.push(n_l);
+}
+
+
+IMPLEMENT_STATIC_NAME(Head_column);
+IMPLEMENT_IS_TYPE_B1(Head_column,Script_column);
+
+void
+Head_column::do_print() const
+{
+#ifndef NPRINT
+    mtor << "heads: " << head_l_arr_.size();
+#endif
+}
+
+void
+Head_column::do_pre_processing()
+{
+    if (!dir_i_){
+       if (stem_l_)
+           dir_i_ = stem_l_->dir_i_;
+    }
+    Script_column::do_pre_processing();
+}