lily/axis-group-interface.cc

   1 /*
   2   axis-group-interface.cc --  implement Axis_group_interface
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7
   8  */
   9 #include "hara-kiri-group-spanner.hh"
  10 #include "axis-group-interface.hh"
  11 #include "score-element.hh"
  12
  13 void
  14 Axis_group_interface::add_element (Score_element*me,Score_element *e)
  15 {
  16   for (SCM ax = me->get_elt_property ("axes"); ax != SCM_EOL ; ax = gh_cdr (ax))
  17     {
  18       Axis a = (Axis) gh_scm2int (gh_car (ax));
  19
  20       if (!e->parent_l (a))
  21         e->set_parent (me, a);
  22     }
  23
  24   Pointer_group_interface (me).add_element (e);
  25   me->add_dependency (e);
  26 }
  27
  28 bool
  29 Axis_group_interface::axis_b (Score_element*me,Axis a )
  30 {
  31   /*
  32     urg. FIXME, check for Hara_kiri_group_spanner shouldn't be necessary?
  33
  34
  35    */
  36   return me->has_extent_callback_b (group_extent_callback, a) ||
  37     (me->has_extent_callback_b (Hara_kiri_group_spanner::y_extent, a));
  38 }
  39
  40 Interval
  41 Axis_group_interface::relative_group_extent (Axis a, Score_element *common, SCM elts)
  42 {
  43   Interval r;
  44   for (SCM s = elts; gh_pair_p (s); s = gh_cdr (s))
  45     {
  46       Score_element * se = unsmob_element (gh_car (s));
  47       Interval dims = se->extent (a);
  48       if (!dims.empty_b ())
  49         r.unite (dims + se->relative_coordinate (common, a));
  50     }
  51   return r;
  52 }
  53
  54 Interval
  55 Axis_group_interface::group_extent_callback (Score_element *me, Axis a)
  56 {
  57   Score_element * common =(Score_element*) me;
  58
  59   for (SCM s = me->get_elt_property ("elements"); gh_pair_p (s); s = gh_cdr (s))
  60     {
  61       Score_element * se = unsmob_element (gh_car (s));
  62       common = se->common_refpoint (common, a);
  63     }
  64
  65   Real my_coord = me->relative_coordinate (common, a);
  66   Interval r (relative_group_extent (a, common, me->get_elt_property ("elements")));
  67
  68   return r - my_coord;
  69 }
  70
  71
  72
  73 void
  74 Axis_group_interface::set_axes (Score_element*me,Axis a1, Axis a2)
  75 {
  76   // set_interface () ?
  77   SCM sa1= gh_int2scm (a1);
  78   SCM sa2 = gh_int2scm (a2);
  79
  80   SCM axes = me->get_elt_property ("axes");
  81
  82   if (!gh_pair_p (axes)
  83       || scm_memq (sa1, axes) == SCM_BOOL_F
  84       || scm_memq (sa2, axes) == SCM_BOOL_F)
  85     {
  86       SCM ax = gh_cons (sa1, SCM_EOL);
  87       if (a1 != a2)
  88         ax= gh_cons (sa2, ax);
  89       me->set_elt_property ("axes", ax);
  90     }
  91
  92   if (a1 != X_AXIS && a2 != X_AXIS)
  93     me->set_extent_callback (0, X_AXIS);
  94   if (a1 != Y_AXIS && a2 != Y_AXIS)
  95     me->set_extent_callback (0, Y_AXIS);
  96
  97   //  if (!me->has_extent_callback_b (a1))
  98   if (me->has_extent_callback_b (Score_element::molecule_extent, a1))
  99     me->set_extent_callback (Axis_group_interface::group_extent_callback,a1);
 100   if (me->has_extent_callback_b (Score_element::molecule_extent, a2))
 101     me->set_extent_callback (Axis_group_interface::group_extent_callback,a2);
 102 }
 103
 104 Link_array<Score_element>
 105 Axis_group_interface::get_children (Score_element*me)
 106 {
 107   Link_array<Score_element> childs;
 108   childs.push (me) ;
 109
 110   if (!has_interface (me))
 111     return childs;
 112
 113   for (SCM ep = me->get_elt_property ("elements"); gh_pair_p (ep); ep = gh_cdr (ep))
 114     {
 115       Score_element* e = unsmob_element (gh_car (ep));
 116       if (e)
 117         childs.concat (Axis_group_interface::get_children (e));
 118     }
 119
 120   return childs;
 121 }
 122
 123 bool
 124 Axis_group_interface::has_interface (Score_element*me)
 125 {
 126   return me && me->has_interface (ly_symbol2scm ("axis-group-interface"));
 127 }
 128
 129
 130
 131 void
 132 Axis_group_interface::set_interface (Score_element*me)
 133 {
 134   if (!has_interface (me))
 135     {
 136       me->set_interface (ly_symbol2scm ("axis-group-interface"));
 137     }
 138 }