2 clef-engraver.cc -- implement Clef_engraver
4 source file of the GNU LilyPond music typesetter
6 (c) 1997--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>,
8 Mats Bengtsson <matsb@s3.kth.se>
14 #include "bar-line.hh"
15 #include "staff-symbol-referencer.hh"
16 #include "engraver.hh"
17 #include "direction.hh"
18 #include "side-position-interface.hh"
20 class Clef_engraver : public Engraver
23 TRANSLATOR_DECLARATIONS (Clef_engraver);
25 Direction octave_dir_;
28 virtual void stop_translation_timestep ();
29 virtual void process_music ();
30 virtual void acknowledge_grob (Grob_info);
40 void inspect_clef_properties ();
43 Clef_engraver::Clef_engraver ()
50 will trigger a clef at the start since #f != ' ()
52 prev_cpos_ = prev_glyph_ = SCM_BOOL_F;
56 Clef_engraver::set_glyph ()
58 SCM glyph_sym = ly_symbol2scm ("glyph-name");
59 SCM glyph = get_property ("clefGlyph");
61 SCM basic = ly_symbol2scm ("Clef");
63 execute_pushpop_property (context (), basic, glyph_sym, SCM_UNDEFINED);
64 execute_pushpop_property (context (), basic, glyph_sym, glyph);
68 Generate a clef at the start of a measure. (when you see a Bar,
72 Clef_engraver::acknowledge_grob (Grob_info info)
74 Item * item = dynamic_cast <Item *> (info.grob_);
77 if (Bar_line::has_interface (info.grob_)
78 && scm_is_string (get_property ("clefGlyph")))
84 Clef_engraver::create_clef ()
88 Item *c = make_item ("Clef", SCM_EOL);
92 SCM cpos = get_property ("clefPosition");
94 if (scm_is_number (cpos))
95 clef_->set_property ("staff-position", cpos);
97 SCM oct = get_property ("clefOctavation");
98 if (scm_is_number (oct) && scm_to_int (oct))
100 Item * g = make_item ("OctavateEight", SCM_EOL);
102 int abs_oct = scm_to_int (oct) ;
103 int dir = sign (abs_oct);
104 abs_oct = abs (abs_oct) + 1;
106 SCM txt = scm_number_to_string (scm_int2num (abs_oct),
109 g->set_property ("text",
110 scm_list_n (ly_scheme_function ("vcenter-markup"),
111 txt, SCM_UNDEFINED));
112 Side_position_interface::add_support (g,clef_);
114 g->set_parent (clef_, Y_AXIS);
115 g->set_parent (clef_, X_AXIS);
116 g->set_property ("direction", scm_int2num (dir));
123 Clef_engraver::process_music ()
125 inspect_clef_properties ();
129 Clef_engraver::inspect_clef_properties ()
131 SCM glyph = get_property ("clefGlyph");
132 SCM clefpos = get_property ("clefPosition");
133 SCM octavation = get_property ("clefOctavation");
134 SCM force_clef = get_property ("forceClef");
136 if (clefpos == SCM_EOL
137 || scm_equal_p (glyph, prev_glyph_) == SCM_BOOL_F
138 || scm_equal_p (clefpos, prev_cpos_) == SCM_BOOL_F
139 || scm_equal_p (octavation, prev_octavation_) == SCM_BOOL_F
140 || to_boolean (force_clef))
145 clef_->set_property ("non-default", SCM_BOOL_T);
147 prev_cpos_ = clefpos;
149 prev_octavation_ = octavation;
152 if (to_boolean (force_clef))
154 Context * w = context ()->where_defined (ly_symbol2scm ("forceClef"));
155 w->set_property ("forceClef", SCM_EOL);
161 Clef_engraver::stop_translation_timestep ()
166 if (to_boolean (clef_->get_property ("non-default")))
168 vis = get_property ("explicitClefVisibility");
173 clef_->set_property ("break-visibility", vis);
176 octavate_->set_property ("break-visibility", vis);
189 ADD_TRANSLATOR (Clef_engraver,
190 /* descr */ "Determine and set reference point for pitches",
191 /* creats*/ "Clef OctavateEight",
193 /* acks */ "bar-line-interface",
194 /* reads */ "clefPosition clefGlyph middleCPosition clefOctavation explicitClefVisibility forceClef",