source file of the GNU LilyPond music typesetter
- (c) 1996--2003 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+ (c) 1996--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
Jan Nieuwenhuizen <janneke@gnu.org>
TODO: This is way too hairy
return a-b;
}
+/*
+ The positions, in ascending order.
+ */
Array<int>
Stem::note_head_positions (Grob *me)
{
heads.reverse ();
- Real thick = robust_scm2double (me->get_grob_property ("thickness"),1)
- * me->get_paper ()->get_realvar (ly_symbol2scm ("linethickness"));
+ Real thick = thickness (me);
Grob *hed = support_head (me);
Real w = Note_head::head_extent (hed,X_AXIS)[dir];
}
bool parity= true;
- int lastpos = int (Staff_symbol_referencer::get_position (heads[0]));
+ Real lastpos = Real (Staff_symbol_referencer::get_position (heads[0]));
for (int i=1; i < heads.size (); i ++)
{
Real p = Staff_symbol_referencer::get_position (heads[i]);
- int dy =abs (lastpos- (int)p);
+ Real dy =fabs (lastpos- p);
- if (dy <= 1)
+ /*
+ dy should always be 0.5, 0.0, 1.0, but provide safety margin
+ for rounding errors.
+ */
+ if (dy < 1.1)
{
if (parity)
{
}
else
{
- me->set_grob_property ("molecule-callback", SCM_EOL);
+ me->set_grob_property ("print-function", SCM_EOL);
}
return SCM_UNSPECIFIED;
else
{
r = flag (me).extent (X_AXIS)
- +
- gh_scm2double (me->get_grob_property ("thickness"))
- * me->get_paper ()->get_realvar (ly_symbol2scm ("linethickness"))/2;
+ + thickness (me)/2;
}
return ly_interval2scm (r);
}
+Real
+Stem::thickness (Grob* me)
+{
+ return gh_scm2double (me->get_grob_property ("thickness"))
+ * Staff_symbol_referencer::line_thickness (me);
+}
-
-MAKE_SCHEME_CALLBACK (Stem,brew_molecule,1);
+MAKE_SCHEME_CALLBACK (Stem,print,1);
SCM
-Stem::brew_molecule (SCM smob)
+Stem::print (SCM smob)
{
Grob*me = unsmob_grob (smob);
Molecule mol;
Direction d = get_direction (me);
-
-
/*
- TODO: make the stem start a direction ?
+ TODO: make the stem start a direction ?
This is required to avoid stems passing in tablature chords...
*/
return SCM_EOL;
if (invisible_b (me))
- {
- return SCM_EOL;
- }
+ return SCM_EOL;
Real y1 = Staff_symbol_referencer::get_position (lh);
Real y2 = stem_end_position (me);
// URG
- Real stem_width = robust_scm2double (me->get_grob_property ("thickness"), 1)
- * me->get_paper ()->get_realvar (ly_symbol2scm ("linethickness"));
+ Real stem_width = thickness (me);
Real blot =
me->get_paper ()->get_realvar (ly_symbol2scm ("blotdiameter"));
if (attach)
{
Real rule_thick
- = robust_scm2double (me->get_grob_property ("thickness"), 1)
- * me->get_paper ()->get_realvar (ly_symbol2scm ("linethickness"));
+ = thickness (me);
r += - d * rule_thick * 0.5;
}
Real staff_space = Staff_symbol_referencer::staff_space (me);
Grob *beam = get_beam (me);
Real beam_translation = Beam::get_beam_translation (beam);
- Real beam_thickness = robust_scm2double (beam->get_grob_property ("thickness"), 1);
+ Real beam_thickness = Beam::get_thickness (beam);
int beam_count = Beam::get_direction_beam_count (beam, my_dir);
Real note_start =
/* staff positions */
head_positions (me)[my_dir] * 0.5
- * my_dir;
+ * my_dir * staff_space;
Real ideal_y = note_start + ideal_length;
"no-stem-extend stroke-style");
+
+/****************************************************************/
+
+Stem_info::Stem_info()
+{
+ ideal_y_ = shortest_y_ =0;
+ dir_ = CENTER;
+}
+
+void
+Stem_info::scale (Real x)
+{
+ ideal_y_ *= x;
+ shortest_y_ *= x;
+}