Doc-es: various updates.

[lilypond.git] / lily / grace-spacing-engraver.cc

diff --git a/lily/grace-spacing-engraver.cc b/lily/grace-spacing-engraver.cc
index a2a333c782cf88560ce9dd0f7579abba92dadec6..57b934953933ff0ccf30fe40f3388086aae1d27c 100644 (file)
--- a/lily/grace-spacing-engraver.cc
+++ b/lily/grace-spacing-engraver.cc
@@ -1,10 +1,21 @@
 /*
-  grace-spacing-engraver.cc -- implement Grace_spacing_engraver
+  This file is part of LilyPond, the GNU music typesetter.
 
-  source file of the GNU LilyPond music typesetter
+  Copyright (C) 2006--2015 Han-Wen <hanwen@lilypond.org>
 
-  (c) 2006--2009 Han-Wen <hanwen@lilypond.org>
 
+  LilyPond is free software: you can redistribute it and/or modify
+  it under the terms of the GNU General Public License as published by
+  the Free Software Foundation, either version 3 of the License, or
+  (at your option) any later version.
+
+  LilyPond is distributed in the hope that it will be useful,
+  but WITHOUT ANY WARRANTY; without even the implied warranty of
+  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+  GNU General Public License for more details.
+
+  You should have received a copy of the GNU General Public License
+  along with LilyPond.  If not, see <http://www.gnu.org/licenses/>.
 */
 
 #include "engraver.hh"
@@ -22,13 +33,13 @@ protected:
 
   Moment last_moment_;
   Spanner *grace_spacing_;
-  
+
   void process_music ();
   void stop_translation_timestep ();
 };
 
-
-Grace_spacing_engraver::Grace_spacing_engraver ()
+Grace_spacing_engraver::Grace_spacing_engraver (Context *c)
+  : Engraver (c)
 {
   grace_spacing_ = 0;
 }
@@ -42,20 +53,19 @@ Grace_spacing_engraver::process_music ()
       grace_spacing_ = make_spanner ("GraceSpacing", SCM_EOL);
     }
 
-
   if (grace_spacing_ && (now.grace_part_ || last_moment_.grace_part_))
     {
-      Grob *column = unsmob_grob (get_property ("currentMusicalColumn"));
+      Grob *column = unsmob<Grob> (get_property ("currentMusicalColumn"));
       Pointer_group_interface::add_grob (grace_spacing_,
-                                        ly_symbol2scm ("columns"),
-                                        column);
+                                         ly_symbol2scm ("columns"),
+                                         column);
 
       column->set_object ("grace-spacing", grace_spacing_->self_scm ());
 
       if (!grace_spacing_->get_bound (LEFT))
-       grace_spacing_->set_bound (LEFT, column);
+        grace_spacing_->set_bound (LEFT, column);
       else
-       grace_spacing_->set_bound (RIGHT, column);
+        grace_spacing_->set_bound (RIGHT, column);
     }
 }
 
@@ -68,17 +78,22 @@ Grace_spacing_engraver::stop_translation_timestep ()
     grace_spacing_ = 0;
 }
 
+void
+Grace_spacing_engraver::boot ()
+{
+
+}
 
 ADD_TRANSLATOR (Grace_spacing_engraver,
-               "Bookkeeping of shortest starting and playing notes in grace"
-               " note runs.",
-
-               /* create */
-               "GraceSpacing ",
-
-               /* read */
-               "currentMusicalColumn ",
-               
-               /* write */
-               ""
-               );
+                "Bookkeeping of shortest starting and playing notes in grace"
+                " note runs.",
+
+                /* create */
+                "GraceSpacing ",
+
+                /* read */
+                "currentMusicalColumn ",
+
+                /* write */
+                ""
+               );