lily/ambitus.cc

   1 /*
   2   ambitus.cc -- implement Ambitus
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 2002--2004 Juergen Reuter <reuter@ipd.uka.de>
   7 */
   8
   9 #include "staff-symbol-referencer.hh"
  10 #include "pitch.hh"
  11 #include "ambitus.hh"
  12 #include "stencil.hh"
  13 #include "note-head.hh"
  14 #include "item.hh"
  15 #include "font-interface.hh"
  16 #include "output-def.hh"
  17 #include "lookup.hh"
  18 #include "group-interface.hh"
  19
  20 MAKE_SCHEME_CALLBACK (Ambitus,print,1);
  21 SCM
  22 Ambitus::print (SCM smob)
  23 {
  24   Item *me = (Item*) unsmob_grob (smob);
  25   Stencil stencil;
  26
  27   // join heads
  28   Link_array<Grob> heads (Pointer_group_interface__extract_grobs (me, (Grob*)0, "note-heads"));
  29   if (to_boolean (me->get_property ("join-heads"))
  30       && heads.size() > 1)
  31     {
  32       Grob *common
  33         = common_refpoint_of_array (heads.slice (0,2), me, Y_AXIS);
  34
  35       Grob *minh = heads[0];
  36       Grob *maxh = heads[1];
  37
  38       if (minh->relative_coordinate (common, Y_AXIS) >
  39           maxh->relative_coordinate (common, Y_AXIS))
  40         {
  41           Grob *t = maxh;
  42           maxh = minh;
  43           minh = t;
  44         }
  45
  46       Real pad = 0.35;
  47       Real pmax = maxh->relative_coordinate (common, Y_AXIS) - pad;
  48       Real pmin = minh->relative_coordinate (common, Y_AXIS) + pad;
  49
  50       if (pmin < pmax)
  51         {
  52           Real linethickness = me->get_paper ()->get_dimension (ly_symbol2scm ("linethickness"));
  53           Real blotdiameter = me->get_paper ()->get_dimension (ly_symbol2scm ("blotdiameter"));
  54           Interval x_extent = 0.5 * Interval (-linethickness, +linethickness);
  55           Interval y_extent = 0.5 * Interval (pmin, pmax);
  56           Box line_box (x_extent, y_extent);
  57
  58           Stencil line = Lookup::round_filled_box (line_box, blotdiameter);
  59           line.translate_axis (- me-> relative_coordinate (common, Y_AXIS),
  60                                    Y_AXIS);
  61           return line.smobbed_copy ();
  62         }
  63     }
  64
  65   return SCM_EOL;
  66 }
  67
  68 ADD_INTERFACE (Ambitus, "ambitus-interface",
  69   "The line between note heads for a pitch range.",
  70   "note-heads join-heads");