release: 1.1.29

[lilypond.git] / lily / audio-column.cc

diff --git a/lily/audio-column.cc b/lily/audio-column.cc
index e0d87b1a9921cb551da56028018407c2c215fdfd..85f88c84f9a916a9f8dc4b463484536434c3fd8a 100644 (file)
--- a/lily/audio-column.cc
+++ b/lily/audio-column.cc
@@ -3,41 +3,43 @@
 
   source file of the GNU LilyPond music typesetter
 
-  (c) 1997 Jan Nieuwenhuizen <jan@digicash.com>
+  (c)  1997--1999 Jan Nieuwenhuizen <janneke@gnu.org>
  */
 
 #include "audio-column.hh"
 #include "audio-item.hh"
-#include "audio-score.hh"
+#include "performance.hh"
 
 #include "debug.hh"
 
 Audio_column::Audio_column (Moment at_mom)
 {
-    at_mom_ = at_mom;
-    audio_score_l_ = 0;
+  at_mom_ = at_mom;
+  performance_l_ = 0;
 }
 
 void
-Audio_column::add (Audio_item* l)
+Audio_column::add_audio_item (Audio_item* l)
 {
-    audio_item_l_list_.bottom().add (l);
-    l->audio_column_l_ = this; 
+  audio_item_l_list_.bottom().add (l);
+  l->audio_column_l_ = this; 
 }
 
 Moment
 Audio_column::at_mom() const
 {
-    return at_mom_;
+  return at_mom_;
 }
 
 void
 Audio_column::print() const
 {
 #ifndef NPRINT
-    DOUT << "Audio_column {";
-    DOUT << "at: " << at_mom_ << "\n";
-    DOUT << "}\n";
+  DOUT << "Audio_column {";
+  DOUT << "at: " << at_mom_ << ". Contains:";
+  for (PCursor<Audio_item*> i (audio_item_l_list_.top ()); i.ok (); i++)
+    DOUT << classname (i.ptr ()) << ", ";
+  DOUT << "\n}\n";
 #endif 
 }