From: fred <fred>
Date: Sat, 26 Jul 1997 10:18:32 +0000 (+0000)
Subject: lilypond-0.0.76
X-Git-Tag: release/1.5.59~6112
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=d1756a22014abe949ac39b1b25245eb65059ee7d;p=lilypond.git

lilypond-0.0.76
---

diff --git a/lily/head-column.cc b/lily/head-column.cc
new file mode 100644
index 0000000000..4a50701e63
--- /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();
+}