X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fgrob.cc;h=b27350b92996e694a9acffe8ff94cbb2513a8e86;hb=982d3cb1b1745b5de6443779adc6cd4a0c15a119;hp=ce3e41c76dbcbf826d9191c9e27511edd23f1209;hpb=2f38710a2b40a24977441aa7faa05b6ab132f3cf;p=lilypond.git

diff --git a/lily/grob.cc b/lily/grob.cc
index ce3e41c76d..b27350b929 100644
--- a/lily/grob.cc
+++ b/lily/grob.cc
@@ -1,9 +1,20 @@
 /*
-  grob.cc -- implement Grob
+  This file is part of LilyPond, the GNU music typesetter.
 
-  source file of the GNU LilyPond music typesetter
+  Copyright (C) 1997--2009 Han-Wen Nienhuys <hanwen@xs4all.nl>
 
-  (c) 1997--2009 Han-Wen Nienhuys <hanwen@xs4all.nl>
+  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 "grob.hh"
@@ -11,6 +22,7 @@
 #include <cstring>
 
 #include "align-interface.hh"
+#include "axis-group-interface.hh"
 #include "input.hh"
 #include "international.hh"
 #include "item.hh"
@@ -143,6 +155,15 @@ Grob::get_print_stencil () const
 	  retval = Stencil (retval.extent_box (), expr);
 	}
 
+      /* process whiteout */
+      if (to_boolean (get_property ("whiteout")))
+        {
+          /* Call the scheme procedure stencil-whiteout in scm/stencils.scm */
+          /* to add a round-filled-box stencil to the stencil list */
+          retval
+            = *unsmob_stencil (scm_call_1 (ly_lily_module_constant ("stencil-whiteout"),
+                                           retval.smobbed_copy()));
+        }
     }
 
   return retval;
@@ -650,6 +671,7 @@ ADD_INTERFACE (Grob,
 	       "staff-symbol "
 	       "stencil "
 	       "transparent "
+	       "whiteout "
 	       );
 
 /****************************************************************
@@ -761,3 +783,4 @@ Grob::check_cross_staff (Grob *commony)
 
   return false;
 }
+