X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fgrob.cc;h=7ce89d50158ff737e2e702609c1f7750422b84d6;hb=512fc5ece5ff691520bf93badaa0a77a46370839;hp=2f1bd8aa9f52c463c274fa28ab6fe2fc60227d03;hpb=0b25807868f2e1f3372a8fb5e19d9036dec53ecc;p=lilypond.git diff --git a/lily/grob.cc b/lily/grob.cc index 2f1bd8aa9f..7ce89d5015 100644 --- a/lily/grob.cc +++ b/lily/grob.cc @@ -146,25 +146,15 @@ Grob::get_print_stencil () const /* whiteout background and larger file sizes with \pointAndClickOn. */ /* A grob has to be visible, otherwise the whiteout property has no effect. */ /* Calls the scheme procedure stencil-whiteout in scm/stencils.scm */ - if (!transparent && (scm_is_number (get_property("whiteout")) + if (!transparent && (scm_is_number (get_property ("whiteout")) || to_boolean (get_property ("whiteout")))) { - Real thickness = robust_scm2double (get_property("whiteout"), 3.0) - * layout ()->get_dimension (ly_symbol2scm ("line-thickness")); + Real line_thickness = layout ()->get_dimension (ly_symbol2scm ("line-thickness")); retval = *unsmob (Lily::stencil_whiteout (retval.smobbed_copy (), - scm_from_double (thickness))); - } - - /* Calls the scheme procedure stencil-whiteout-box in scm/stencils.scm */ - if (!transparent && (scm_is_number (get_property("whiteout-box")) - || to_boolean (get_property ("whiteout-box")))) - { - Real thickness = robust_scm2double (get_property("whiteout-box"), 0.0) - * layout ()->get_dimension (ly_symbol2scm ("line-thickness")); - retval = *unsmob - (Lily::stencil_whiteout_box (retval.smobbed_copy (), - scm_from_double (thickness))); + get_property ("whiteout-style"), + get_property ("whiteout"), + scm_from_double (line_thickness))); } if (transparent) @@ -843,7 +833,7 @@ ADD_INTERFACE (Grob, "transparent " "vertical-skylines " "whiteout " - "whiteout-box " + "whiteout-style " ); /****************************************************************