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
#include "paper-def.hh"
#include "rhythmic-head.hh"
#include "font-interface.hh"
-#include "molecule.hh"
+#include "stencil.hh"
#include "paper-column.hh"
#include "misc.hh"
#include "beam.hh"
return a-b;
}
+/*
+ The positions, in ascending order.
+ */
Array<int>
Stem::note_head_positions (Grob *me)
{
}
bool
-Stem::invisible_b (Grob*me)
+Stem::is_invisible (Grob*me)
{
return ! (head_count (me)
&& gh_scm2int (me->get_grob_property ("duration-log")) >= 1);
{
int staff_center = 0;
Interval hp = head_positions (me);
- if (hp.empty_b())
+ if (hp.is_empty ())
{
return CENTER;
}
|| (get_direction (me) != get_default_dir (me)))
{
- Real shorten = 0.0;
SCM sshorten = me->get_grob_property ("stem-shorten");
SCM scm_shorten = gh_pair_p (sshorten) ?
robust_list_ref ((duration_log (me) - 2) >? 0, sshorten): SCM_EOL;
- if (gh_number_p (scm_shorten))
- {
- shorten = 2* gh_scm2double (scm_shorten);
- }
+ Real shorten = 2* robust_scm2double (scm_shorten,0);
+
/* On boundary: shorten only half */
if (abs (head_positions (me)[get_direction (me)]) <= 1)
Crude hack: add extra space if tremolo flag is there.
We can't do this for the beam, since we get into a loop
- (Stem_tremolo::raw_molecule() looks at the beam.)
+ (Stem_tremolo::raw_stencil() looks at the beam.)
--hwn
*/
Real minlen =
- 1.0 + 2 * Stem_tremolo::raw_molecule (trem).extent (Y_AXIS).length () / ss;
+ 1.0 + 2 * Stem_tremolo::raw_stencil (trem).extent (Y_AXIS).length () / ss;
if (durlog >= 3)
{
Interval flag_ext = flag (me).extent (Y_AXIS) ;
- if (!flag_ext.empty_b())
+ if (!flag_ext.is_empty ())
minlen += 2 * flag_ext.length () / ss ;
/*
heads.reverse ();
- Real thick = gh_scm2double (me->get_grob_property ("thickness"))
- * 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)
{
Real reverse_overlap =0.5;
heads[i]->translate_axis ((l-thick*reverse_overlap) * d, X_AXIS);
- if (invisible_b(me))
+ if (is_invisible(me))
heads[i]->translate_axis (-thick*(2 - reverse_overlap) * d , X_AXIS);
}
else
{
- me->set_grob_property ("molecule-callback", SCM_EOL);
+ me->set_grob_property ("print-function", SCM_EOL);
}
return SCM_UNSPECIFIED;
Grob * me = unsmob_grob (smob);
assert (a == Y_AXIS);
- SCM mol = me->get_uncached_molecule ();
+ SCM mol = me->get_uncached_stencil ();
Interval iv;
if (mol != SCM_EOL)
- iv = unsmob_molecule (mol)->extent (a);
+ iv = unsmob_stencil (mol)->extent (a);
if (Grob *b =get_beam (me))
{
Direction d = get_direction (me);
}
-Molecule
+Stencil
Stem::flag (Grob*me)
{
/* TODO: maybe property stroke-style should take different values,
if (flag_style == "no-flag")
{
- return Molecule ();
+ return Stencil ();
}
bool adjust = to_boolean (me->get_grob_property ("adjust-if-on-staffline"));
String font_char =
flag_style + to_string (dir) + staffline_offs + to_string (duration_log (me));
Font_metric *fm = Font_interface::get_default_font (me);
- Molecule flag = fm->find_by_name ("flags-" + font_char);
- if (flag.empty_b ())
+ Stencil flag = fm->find_by_name ("flags-" + font_char);
+ if (flag.is_empty ())
{
me->warning (_f ("flag `%s' not found", font_char));
}
if (gh_string_p (stroke_style_scm))
{
String stroke_style = ly_scm2string (stroke_style_scm);
- if (!stroke_style.empty_b ())
+ if (!stroke_style.is_empty ())
{
String font_char = to_string (dir) + stroke_style;
- Molecule stroke = fm->find_by_name ("flags-" + font_char);
- if (stroke.empty_b ())
+ Stencil stroke = fm->find_by_name ("flags-" + font_char);
+ if (stroke.is_empty ())
{
me->warning (_f ("flag stroke `%s' not found", font_char));
}
else
{
- flag.add_molecule (stroke);
+ flag.add_stencil (stroke);
}
}
}
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;
+ Stencil 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...
*/
if (!lh)
return SCM_EOL;
- if (invisible_b (me))
- {
- return SCM_EOL;
- }
+ if (is_invisible (me))
+ return SCM_EOL;
Real y1 = Staff_symbol_referencer::get_position (lh);
Real y2 = stem_end_position (me);
// URG
- Real stem_width = gh_scm2double (me->get_grob_property ("thickness"))
- * me->get_paper ()->get_realvar (ly_symbol2scm ("linethickness"));
+ Real stem_width = thickness (me);
Real blot =
me->get_paper ()->get_realvar (ly_symbol2scm ("blotdiameter"));
Box b = Box (Interval (-stem_width/2, stem_width/2),
Interval (stem_y[DOWN]*dy, stem_y[UP]*dy));
- Molecule ss = Lookup::round_filled_box (b, blot);
- mol.add_molecule (ss);
+ Stencil ss = Lookup::round_filled_box (b, blot);
+ mol.add_stencil (ss);
if (!get_beam (me) && abs (duration_log (me)) > 2)
{
- Molecule fl = flag (me);
+ Stencil fl = flag (me);
fl.translate_axis (stem_y[d]*dy - d * blot/2, Y_AXIS);
fl.translate_axis (stem_width/2, X_AXIS);
- mol.add_molecule (fl);
+ mol.add_stencil (fl);
}
return mol.smobbed_copy ();
Real attach =0.0;
- if (invisible_b (me))
+ if (is_invisible (me))
{
attach = 0.0;
}
if (attach)
{
Real rule_thick
- = gh_scm2double (me->get_grob_property ("thickness"))
- * me->get_paper ()->get_realvar (ly_symbol2scm ("linethickness"));
+ = thickness (me);
r += - d * rule_thick * 0.5;
}
Stem::calc_stem_info (Grob *me)
{
Direction my_dir = get_grob_direction (me);
+
+ if (!my_dir)
+ {
+ programming_error ("No stem dir set?");
+ my_dir = UP;
+ }
+
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 = gh_scm2double (beam->get_grob_property ("thickness"));
+ 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;
Also, not for knees. Seems to be a good thing. */
bool no_extend_b = to_boolean (me->get_grob_property ("no-stem-extend"));
- bool knee_b = to_boolean (beam->get_grob_property ("knee"));
- if (!no_extend_b && !knee_b)
+ bool is_knee = to_boolean (beam->get_grob_property ("knee"));
+ if (!no_extend_b && !is_knee)
{
/* Highest beam of (UP) beam must never be lower than middle
staffline */
}
- SCM shorten = beam->get_grob_property ("shorten");
- if (gh_number_p (shorten))
- ideal_y -= gh_scm2double (shorten);
+ ideal_y -= robust_scm2double (beam->get_grob_property ("shorten"), 0);
Real minimum_free =
gh_scm2double (robust_list_ref
/* stem only extends to center of beam */
- 0.5 * beam_thickness;
- Real minimum_y = note_start + minimum_length;
+ Real minimum_y = note_start + minimum_length;
ideal_y *= my_dir;
these are too many props.
*/
ADD_INTERFACE (Stem,"stem-interface",
- "A stem",
+ "The stem represent the graphical stem. "
+ " In addition, it internally connects note heads, beams, tremolos. Rests "
+ " and whole notes have invisible stems."
+
+,
+
"tremolo-flag french-beaming "
"avoid-note-head adjust-if-on-staffline thickness "
"stem-info beamed-lengths beamed-minimum-free-lengths "
"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;
+}