/*
- 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 <hanwen@xs4all.nl>
+ Mats Bengtsson <matsb@s3.kth.se>
- (c) 1997--2008 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.
- Mats Bengtsson <matsb@s3.kth.se>
+ 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 <cctype>
public:
TRANSLATOR_DECLARATIONS (Clef_engraver);
- Direction octave_dir_;
-
protected:
void stop_translation_timestep ();
void process_music ();
Clef_engraver::Clef_engraver ()
{
clef_ = 0;
- octave_dir_ = CENTER;
octavate_ = 0;
/*
void
Clef_engraver::acknowledge_bar_line (Grob_info info)
{
- Item *item = dynamic_cast<Item *> (info.grob ());
+ Item *item = info.item ();
if (item && scm_is_string (get_property ("clefGlyph")))
create_clef ();
}
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 ()
{
|| 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")))
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;