lily/enclosing-bracket.cc

   1 /*
   2   enclosing-bracket.cc -- implement Enclosing_bracket
   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 "stencil.hh"
  11 #include "horizontal-bracket.hh"
  12 #include "grob.hh"
  13 #include "axis-group-interface.hh"
  14 #include "pointer-group-interface.hh"
  15
  16 struct Enclosing_bracket
  17 {
  18   DECLARE_GROB_INTERFACE();
  19
  20 public:
  21   DECLARE_SCHEME_CALLBACK(print, (SCM));
  22   DECLARE_SCHEME_CALLBACK(width, (SCM));
  23 };
  24
  25
  26 ADD_INTERFACE(Enclosing_bracket,
  27
  28               "Brackets alongside bass figures.",
  29
  30               /* props */
  31               "bracket-flare "
  32               "edge-height "
  33               "elements "
  34               "padding "
  35               "shorten-pair "
  36               "thickness "
  37               );
  38
  39 /* ugh: should make bracket interface. */
  40
  41
  42 MAKE_SCHEME_CALLBACK (Enclosing_bracket, width, 1);
  43 SCM
  44 Enclosing_bracket::width (SCM grob)
  45 {
  46   /*
  47      UGH. cut & paste code.
  48   */
  49   Grob *me = unsmob_grob (grob);
  50   extract_grob_set (me, "elements", elements);
  51   if (elements.empty ())
  52     {
  53       me->suicide ();
  54       return SCM_EOL;
  55     }
  56
  57   Grob *common_x = common_refpoint_of_array (elements, me, X_AXIS);
  58   Interval xext = Axis_group_interface::relative_group_extent (elements, common_x, X_AXIS);
  59
  60   Stencil left_br = Horizontal_bracket::make_bracket (me, 10.0, Y_AXIS, LEFT);
  61   Stencil right_br = Horizontal_bracket::make_bracket (me, 10.0, Y_AXIS, LEFT);
  62
  63
  64   xext.widen (robust_scm2double (me->get_property ("padding"), 0.25));
  65   left_br.translate_axis (xext[LEFT], X_AXIS);
  66   right_br.translate_axis (xext[RIGHT], X_AXIS);
  67
  68   left_br.add_stencil (right_br);
  69   left_br.translate_axis (-me->relative_coordinate (common_x, X_AXIS), X_AXIS);
  70
  71   return ly_interval2scm (left_br.extent (X_AXIS));
  72 }
  73
  74 MAKE_SCHEME_CALLBACK (Enclosing_bracket, print, 1);
  75 SCM
  76 Enclosing_bracket::print (SCM grob)
  77 {
  78   Grob *me = unsmob_grob (grob);
  79   extract_grob_set (me, "elements", elements);
  80   if (elements.empty ())
  81     {
  82       me->suicide ();
  83       return SCM_EOL;
  84     }
  85
  86   Grob *common_x = common_refpoint_of_array (elements, me, X_AXIS);
  87   Interval xext = Axis_group_interface::relative_group_extent (elements, common_x, X_AXIS);
  88   if (xext.is_empty ())
  89     {
  90       me->programming_error ("elements have no X extent.");
  91       xext = Interval (0, 0);
  92     }
  93
  94   Stencil left_br = Horizontal_bracket::make_enclosing_bracket (me, me, elements,
  95                                                                 Y_AXIS, LEFT);
  96   Stencil right_br = Horizontal_bracket::make_enclosing_bracket (me, me, elements,
  97                                                                  Y_AXIS, RIGHT);
  98
  99   xext.widen (robust_scm2double (me->get_property ("padding"), 0.25));
 100   left_br.translate_axis (xext[LEFT], X_AXIS);
 101   right_br.translate_axis (xext[RIGHT], X_AXIS);
 102
 103   left_br.add_stencil (right_br);
 104   left_br.translate_axis (-me->relative_coordinate (common_x, X_AXIS), X_AXIS);
 105
 106   return left_br.smobbed_copy ();
 107 }
 108