source file of the GNU LilyPond music typesetter
- (c) 1998--2007 Han-Wen Nienhuys <hanwen@xs4all.nl>
+ (c) 1998--2009 Han-Wen Nienhuys <hanwen@xs4all.nl>
*/
#include "engraver.hh"
{
inf.grob ()->set_property ("style", ly_symbol2scm ("harmonic"));
Grob *d = unsmob_grob (inf.grob ()->get_object ("dot"));
- if (d)
+ if (d && !to_boolean (get_property ("harmonicDots")))
d->suicide ();
}
}
void
New_fingering_engraver::add_script (Grob *head,
Stream_event *event,
- Stream_event *note)
+ Stream_event * /* note */)
{
- (void) note;
-
Finger_tuple ft;
Grob *g = make_item ("Script", event->self_scm ());
f->set_property ("direction", scm_from_int (hordir));
}
- int finger_prio = 200;
-
Direction d = DOWN;
Drul_array< vector<Finger_tuple> > vertical (down, up);
do
{
Finger_tuple ft = vertical[d][i];
Grob *f = ft.script_;
+ int finger_prio = robust_scm2int (f->get_property ("script-priority"), 200);
f->set_parent (ft.head_, X_AXIS);
f->set_property ("script-priority",
scm_from_int (finger_prio + d * ft.position_));
/* read */
"fingeringOrientations "
+ "harmonicDots "
"strokeFingerOrientations "
"stringNumberOrientations ",