lily/ambitus.cc

   1 /*
   2   ambitus.cc -- implement Ambitus
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 2002--2008 Juergen Reuter <reuter@ipd.uka.de>
   7 */
   8
   9 #include "ambitus.hh"
  10
  11 #include "staff-symbol-referencer.hh"
  12 #include "pitch.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 "pointer-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   // FIXME : should be Ambitus_line join heads
  28   extract_grob_set (me, "note-heads", heads);
  29   if (to_boolean (me->get_property ("join-heads"))
  30       && heads.size () > 1)
  31     {
  32       Grob *common
  33         = common_refpoint_of_array (vector<Grob*> (heads.begin (),
  34                                                        heads.begin () + 2),
  35                                     me, Y_AXIS);
  36
  37       Grob *minh = heads[0];
  38       Grob *maxh = heads[1];
  39
  40       if (minh->relative_coordinate (common, Y_AXIS)
  41           > maxh->relative_coordinate (common, Y_AXIS))
  42         {
  43           Grob *t = maxh;
  44           maxh = minh;
  45           minh = t;
  46         }
  47
  48       Real pad = 0.35;
  49       Real pmax = maxh->extent (common, Y_AXIS)[DOWN] - pad;
  50       Real pmin = minh->extent (common, Y_AXIS)[UP] + pad;
  51
  52       if (pmin < pmax)
  53         {
  54           Real linethickness = me->layout ()->get_dimension (ly_symbol2scm ("line-thickness"))
  55             * robust_scm2double (me->get_property ("thickness"), 1.0);
  56           Real blotdiameter = me->layout ()->get_dimension (ly_symbol2scm ("blot-diameter"));
  57           Interval x_extent = 0.5 * linethickness * Interval (-1, 1);
  58           Interval y_extent = Interval (pmin, pmax);
  59           Box line_box (x_extent, y_extent);
  60
  61           Stencil line = Lookup::round_filled_box (line_box, blotdiameter);
  62           line.translate_axis (- me->relative_coordinate (common, Y_AXIS),
  63                                Y_AXIS);
  64           return line.smobbed_copy ();
  65         }
  66     }
  67
  68   return SCM_EOL;
  69 }
  70
  71 ADD_INTERFACE (Ambitus,
  72                "The line between note heads for a pitch range.",
  73
  74                /* properties */
  75                "join-heads "
  76                "note-heads "
  77                "thickness "
  78                );