X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fclef-engraver.cc;h=5ddfea627e0869149ecc4e1c7d65522d437e1a2f;hb=ffdffb6d5ec02e90cb4e71959cd266d08462ee3e;hp=d9b2e27dea3d9cd544d7ccd831c757217028a9bb;hpb=16cb456cabf477f6d398ff731aa0f10b60913394;p=lilypond.git diff --git a/lily/clef-engraver.cc b/lily/clef-engraver.cc index d9b2e27dea..5ddfea627e 100644 --- a/lily/clef-engraver.cc +++ b/lily/clef-engraver.cc @@ -1,11 +1,21 @@ /* - clef-engraver.cc -- implement Clef_engraver + This file is part of LilyPond, the GNU music typesetter. - source file of the GNU LilyPond music typesetter + Copyright (C) 1997--2011 Han-Wen Nienhuys + Mats Bengtsson - (c) 1997--2007 Han-Wen Nienhuys , + 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. - Mats Bengtsson + 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 . */ #include @@ -26,8 +36,6 @@ class Clef_engraver : public Engraver public: TRANSLATOR_DECLARATIONS (Clef_engraver); - Direction octave_dir_; - protected: void stop_translation_timestep (); void process_music (); @@ -57,7 +65,6 @@ Clef_engraver::derived_mark () const Clef_engraver::Clef_engraver () { clef_ = 0; - octave_dir_ = CENTER; octavate_ = 0; /* @@ -83,7 +90,7 @@ Clef_engraver::set_glyph () void Clef_engraver::acknowledge_bar_line (Grob_info info) { - Item *item = dynamic_cast (info.grob ()); + Item *item = info.item (); if (item && scm_is_string (get_property ("clefGlyph"))) create_clef (); } @@ -131,6 +138,15 @@ Clef_engraver::process_music () inspect_clef_properties (); } +static void apply_on_children (Context *context, SCM fun) +{ + scm_call_1(fun, context->self_scm()); + for (SCM s = context->children_contexts (); + scm_is_pair(s); s = scm_cdr (s)) + apply_on_children(unsmob_context (scm_car(s)), fun); +} + + void Clef_engraver::inspect_clef_properties () { @@ -145,9 +161,8 @@ Clef_engraver::inspect_clef_properties () || scm_equal_p (octavation, prev_octavation_) == SCM_BOOL_F || to_boolean (force_clef)) { - set_context_property_on_children (context (), - ly_symbol2scm ("localKeySignature"), - get_property ("keySignature")); + apply_on_children(context (), + ly_lily_module_constant ("invalidate-alterations")); set_glyph (); if (prev_cpos_ != SCM_BOOL_F || to_boolean (get_property ("firstClef"))) @@ -179,11 +194,7 @@ Clef_engraver::stop_translation_timestep () vis = get_property ("explicitClefVisibility"); if (vis) - { - clef_->set_property ("break-visibility", vis); - if (octavate_) - octavate_->set_property ("break-visibility", vis); - } + clef_->set_property ("break-visibility", vis); clef_ = 0; @@ -193,15 +204,20 @@ Clef_engraver::stop_translation_timestep () ADD_ACKNOWLEDGER (Clef_engraver, bar_line); ADD_TRANSLATOR (Clef_engraver, - /* doc */ "Determine and set reference point for pitches", - /* create */ "Clef " + /* doc */ + "Determine and set reference point for pitches.", + + /* create */ + "Clef " "OctavateEight ", + /* read */ "clefGlyph " "clefOctavation " "clefPosition " "explicitClefVisibility " - "forceClef " - "middleCPosition " - , - /* write */ ""); + "forceClef ", + + /* write */ + "" + );