* scripts/lilypond-book.py: Resurrect HTML links to .ly source.

[lilypond.git] / lily / note-heads-engraver.cc

diff --git a/lily/note-heads-engraver.cc b/lily/note-heads-engraver.cc
index 8ca7dc97c3b6bac5e9d08491f477ea546c16bb0d..2fbae4ee13d6b2d7b791bdbeb06358d3165517d2 100644 (file)
--- a/lily/note-heads-engraver.cc
+++ b/lily/note-heads-engraver.cc
@@ -1,7 +1,7 @@
 /*
   note-heads-engraver.cc -- part of GNU LilyPond
 
-  (c) 1997--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+  (c) 1997--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
 */
 
 #include <cctype>
@@ -53,7 +53,7 @@ Note_heads_engraver::try_music (Music *m)
 void
 Note_heads_engraver::process_music ()
 {
-  for (int i=0; i < note_evs_.size (); i++)
+  for (int i = 0; i < note_evs_.size (); i++)
     {
 
       Music * ev = note_evs_[i];
@@ -76,7 +76,7 @@ Note_heads_engraver::process_music ()
          dots_.push (d);
        }
 
-      Pitch *pit =unsmob_pitch (ev->get_property ("pitch"));
+      Pitch *pit = unsmob_pitch (ev->get_property ("pitch"));
 
       int pos = pit ? pit->steps () : 0;
       SCM c0 = get_property ("middleCPosition");
@@ -89,7 +89,7 @@ Note_heads_engraver::process_music ()
        Shaped note heads change on step of the scale.
        */
       SCM shape_vector = get_property ("shapeNoteStyles");
-      if (ly_c_vector_p (shape_vector))
+      if (scm_is_vector (shape_vector))
        {
          SCM scm_tonic = get_property ("tonic");
          Pitch tonic (0,0,0); 
@@ -99,7 +99,7 @@ Note_heads_engraver::process_music ()
          unsigned int delta = (pit->get_notename() - tonic.get_notename() + 7) % 7;
          
          SCM style = SCM_EOL;
-         if (SCM_VECTOR_LENGTH (shape_vector) > delta
+         if (scm_c_vector_length (shape_vector) > delta
              && scm_is_symbol (scm_vector_ref (shape_vector, scm_from_int (delta))))
            {
              style = scm_vector_ref (shape_vector, scm_from_int (delta));
@@ -124,7 +124,7 @@ Note_heads_engraver::stop_translation_timestep ()
 
 
 
-ENTER_DESCRIPTION (Note_heads_engraver,
+ADD_TRANSLATOR (Note_heads_engraver,
 /* descr */       "Generate noteheads.",
 /* creats*/       "NoteHead Dots",
 /* accepts */     "note-event busy-playing-event",