2 instrument-name-engraver.cc -- implement Instrument_name_engraver
4 source file of the GNU LilyPond music typesetter
6 (c) 2000--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
10 #include "engraver.hh"
12 #include "bar-line.hh"
13 #include "system-start-delimiter.hh"
14 #include "side-position-interface.hh"
15 #include "align-interface.hh"
16 #include "axis-group-interface.hh"
18 #include "text-item.hh"
20 class Instrument_name_engraver
: public Engraver
24 TRANSLATOR_DECLARATIONS (Instrument_name_engraver
);
29 virtual void create_text ();
30 virtual void initialize ();
31 virtual void acknowledge_grob (Grob_info
);
32 virtual void stop_translation_timestep ();
33 virtual void process_music ();
36 Instrument_name_engraver::Instrument_name_engraver ()
43 Instrument_name_engraver::initialize ()
45 context ()->set_property ("instrumentSupport", SCM_EOL
);
49 Instrument_name_engraver::stop_translation_timestep ()
53 text_
->set_property ("side-support-elements",
54 get_property ("instrumentSupport"));
61 Instrument_name_engraver::create_text ()
66 SCM txt
= get_property ("instrument");
68 if (now_mom () > Moment (0))
69 txt
= get_property ("instr");
77 text_
= make_item ("InstrumentName", SCM_EOL
);
79 if (text_
->get_property ("text") != txt
)
80 text_
->set_property ("text", txt
);
85 Instrument_name_engraver::acknowledge_grob (Grob_info i
)
87 if (Bar_line::has_interface (i
.grob_
))
92 if (dynamic_cast<Spanner
*> (i
.grob_
)
93 && i
.grob_
->internal_has_interface (ly_symbol2scm ("dynamic-interface")))
97 Hang the instrument names on the staves, but not on the alignment
98 groups enclosing that staff. The alignment has no real location,
99 but is only a vehicle for the placement routine it contains, and
100 therefore the location of its refpoint won't be very useful.
102 We could also just use stavesFound, but lets keep this working
103 without staffs as well.
105 if (dynamic_cast<Spanner
*> (i
.grob_
)
106 && ((Axis_group_interface::has_interface (i
.grob_
)
107 && Axis_group_interface::has_axis (i
.grob_
, Y_AXIS
)))
108 && !Align_interface::has_interface (i
.grob_
))
110 SCM nl
= scm_cons (i
.grob_
->self_scm (),
111 get_property ("instrumentSupport"));
113 context ()->set_property ("instrumentSupport", nl
);
118 Instrument_name_engraver::process_music ()
121 Also create text if barlines in other groups. This allows
122 a name to be attached to lyrics or chords.
124 if (ly_c_string_p (get_property ("whichBar")))
128 ENTER_DESCRIPTION (Instrument_name_engraver
,
129 /* descr */ " Prints the name of the instrument (specified by "
130 " @code{Staff.instrument} and @code{Staff.instr}) "
131 "at the left of the staff. ",
132 /* creats*/ "InstrumentName",
134 /* acks */ "bar-line-interface axis-group-interface",
135 /* reads */ "instrument instr",
138 /****************************************************************/
141 class Vocal_name_engraver
: public Instrument_name_engraver
144 TRANSLATOR_DECLARATIONS (Vocal_name_engraver
);
145 virtual void create_text ();
149 Vocal_name_engraver::Vocal_name_engraver ()
155 Vocal_name_engraver::create_text ()
160 SCM txt
= get_property ("vocalName");
162 if (now_mom () > Moment (0))
163 txt
= get_property ("vocNam");
171 text_
= make_item ("VocalName", SCM_EOL
);
173 if (text_
->get_property ("text") != txt
)
174 text_
->set_property ("text", txt
);
180 ENTER_DESCRIPTION (Vocal_name_engraver
,
181 /* descr */ " Prints the name of the a lyric voice (specified by "
182 " @code{Staff.vocalName} and @code{Staff.vocNam}) "
183 "at the left of the staff. ",
184 /* creats*/ "VocalName",
186 /* acks */ "bar-line-interface axis-group-interface",
187 /* reads */ "vocNam vocalName",