lily/tuplet-number.cc

   1 /*
   2   tuplet-number.cc -- implement Tuplet_number
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 2005--2007 Han-Wen Nienhuys <hanwen@xs4all.nl>
   7
   8 */
   9
  10 #include "tuplet-bracket.hh"
  11 #include "moment.hh"
  12 #include "paper-column.hh"
  13 #include "text-interface.hh"
  14 #include "spanner.hh"
  15 #include "lookup.hh"
  16
  17 struct Tuplet_number
  18 {
  19   DECLARE_SCHEME_CALLBACK (print, (SCM));
  20   DECLARE_SCHEME_CALLBACK (calc_cross_staff, (SCM));
  21   DECLARE_GROB_INTERFACE ();
  22 };
  23
  24
  25 MAKE_SCHEME_CALLBACK (Tuplet_number, print, 1);
  26 SCM
  27 Tuplet_number::print (SCM smob)
  28 {
  29   Spanner *me = unsmob_spanner (smob);
  30   Spanner *tuplet = unsmob_spanner (me->get_object ("bracket"));
  31
  32   if (!tuplet || !tuplet->is_live ())
  33     {
  34       me->suicide ();
  35       return SCM_EOL;
  36     }
  37
  38   /*
  39     Don't print if it doesn't span time.
  40    */
  41   if (robust_scm2moment (tuplet->get_bound (LEFT)->get_column ()->get_property ("when"), Moment (0))
  42       == robust_scm2moment (tuplet->get_bound (RIGHT)->get_column ()->get_property ("when"), Moment (0)))
  43     {
  44       me->suicide ();
  45       return SCM_EOL;
  46     }
  47
  48   SCM stc_scm = Text_interface::print (smob);
  49   Stencil *stc = unsmob_stencil (stc_scm);
  50
  51   stc->align_to (X_AXIS, CENTER);
  52   stc->align_to (Y_AXIS, CENTER);
  53
  54   SCM cpoints =  tuplet->get_property ("control-points");
  55   Drul_array<Offset> points;
  56   if (scm_is_pair (cpoints))
  57     {
  58       points[LEFT] = ly_scm2offset (scm_car (cpoints));
  59       points[RIGHT] = ly_scm2offset (scm_cadr (cpoints));
  60     }
  61   else
  62     {
  63       programming_error ("wrong type for control-points");
  64     }
  65   stc->translate ((points[RIGHT] + points[LEFT]) / 2);
  66
  67   return stc_scm;
  68 }
  69
  70 MAKE_SCHEME_CALLBACK (Tuplet_number, calc_cross_staff, 1)
  71 SCM
  72 Tuplet_number::calc_cross_staff (SCM smob)
  73 {
  74   Grob *me = unsmob_grob (smob);
  75   return unsmob_grob (me->get_object ("bracket"))->get_property ("cross-staff");
  76 }
  77
  78 ADD_INTERFACE (Tuplet_number,
  79                "The number for a bracket. "
  80                ,
  81
  82                /* properties */
  83                "avoid-slur "    // UGH.
  84                "bracket ");
  85