2 pitched-trill-engraver.cc -- implement Pitched_trill_engraver
4 source file of the GNU LilyPond music typesetter
6 (c) 2005--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
12 #include "pointer-group-interface.hh"
13 #include "axis-group-interface.hh"
15 #include "note-head.hh"
17 #include "side-position-interface.hh"
21 class Pitched_trill_engraver
: public Engraver
24 TRANSLATOR_DECLARATIONS (Pitched_trill_engraver
);
27 DECLARE_ACKNOWLEDGER (note_head
);
28 DECLARE_ACKNOWLEDGER (dots
);
29 DECLARE_ACKNOWLEDGER (text_spanner
);
30 void process_music ();
31 void stop_translation_timestep ();
36 Item
*trill_accidental_
;
38 Link_array
<Grob
> heads_
;
40 void make_trill (Music
*);
43 Pitched_trill_engraver::Pitched_trill_engraver ()
47 trill_accidental_
= 0;
51 Pitched_trill_engraver::acknowledge_dots (Grob_info info
)
53 heads_
.push (info
.grob ());
56 Pitched_trill_engraver::acknowledge_note_head (Grob_info info
)
58 heads_
.push (info
.grob ());
62 Pitched_trill_engraver::acknowledge_text_spanner (Grob_info info
)
64 Music
*mus
= info
.music_cause ();
66 && mus
->is_mus_type ("trill-span-event")
67 && to_dir (mus
->get_property ("span-direction")) == START
68 && unsmob_pitch (mus
->get_property ("pitch")))
73 Pitched_trill_engraver::make_trill (Music
*mus
)
75 SCM scm_pitch
= mus
->get_property ("pitch");
76 Pitch
*p
= unsmob_pitch (scm_pitch
);
78 SCM keysig
= get_property ("localKeySignature");
80 SCM key
= scm_cons (scm_from_int (p
->get_octave ()),
81 scm_from_int (p
->get_notename ()));
83 SCM handle
= scm_assoc (key
, keysig
);
85 = (handle
== SCM_BOOL_F
)
86 || p
->get_alteration () == 0;
90 programming_error ("already have a trill head.");
94 trill_head_
= make_item ("TrillPitchHead", mus
->self_scm ());
95 SCM c0scm
= get_property ("middleCPosition");
97 int c0
= scm_is_number (c0scm
) ? scm_to_int (c0scm
) : 0;
99 trill_head_
->set_property ("staff-position",
100 scm_from_int (unsmob_pitch (scm_pitch
)->steps ()
103 trill_group_
= make_item ("TrillPitchGroup", mus
->self_scm ());
105 Axis_group_interface::add_element (trill_group_
, trill_head_
);
109 trill_accidental_
= make_item ("TrillPitchAccidental", mus
->self_scm ());
111 // fixme: naming -> alterations
112 trill_accidental_
->set_property ("accidentals", scm_list_1 (scm_from_int (p
->get_alteration ())));
113 Side_position_interface::add_support (trill_accidental_
, trill_head_
);
114 trill_head_
->set_object ("accidental-grob", trill_accidental_
->self_scm ());
115 trill_group_
->set_parent (trill_head_
, Y_AXIS
);
116 Axis_group_interface::add_element (trill_group_
, trill_accidental_
);
117 trill_accidental_
->set_parent (trill_head_
, Y_AXIS
);
122 Pitched_trill_engraver::stop_translation_timestep ()
125 for (int i
= 0; i
< heads_
.size (); i
++)
126 Side_position_interface::add_support (trill_group_
, heads_
[i
]);
131 trill_accidental_
= 0;
135 Pitched_trill_engraver::process_music ()
140 #include "translator.icc"
142 ADD_ACKNOWLEDGER (Pitched_trill_engraver
, note_head
);
143 ADD_ACKNOWLEDGER (Pitched_trill_engraver
, dots
);
144 ADD_ACKNOWLEDGER (Pitched_trill_engraver
, text_spanner
);
146 ADD_TRANSLATOR (Pitched_trill_engraver
,
147 /* doc */ "Print the bracketed notehead after a notehead with trill.",
150 "TrillPitchAccidental "