lily/cross-staff.cc

   1 #include "cross-staff.hh"
   2 #include "item.hh"
   3 #include "align-interface.hh"
   4 #include "spanner.hh"
   5 #include "warn.hh"
   6
   7 /*
   8   JUNKME
   9  */
  10 Real
  11 calc_interstaff_dist (Item const *item, Spanner const *span)
  12 {
  13   Real interstaff = 0.0;
  14   Score_element *common = item->common_refpoint (span, Y_AXIS);
  15
  16
  17   if (Align_interface::has_interface (common) && Align_interface::axis(common) == Y_AXIS)
  18     {
  19       SCM threshold = common->get_elt_property ("threshold");
  20       if (!gh_pair_p (threshold)
  21           || !scm_equal_p (gh_car (threshold), gh_cdr (threshold)))
  22         warning (_ ("minVerticalAlign != maxVerticalAlign: cross staff spanners may be broken"));
  23
  24       interstaff = 0.0;
  25       if (gh_pair_p (threshold))
  26         interstaff =  gh_scm2double (gh_car (threshold));
  27
  28       Score_element const * span_refpoint = span;
  29       while (span_refpoint->parent_l  (Y_AXIS) != common)
  30         span_refpoint = span_refpoint->parent_l (Y_AXIS);
  31
  32       Score_element const * note_refpoint = item;
  33       while (note_refpoint->parent_l (Y_AXIS) != common)
  34         note_refpoint = note_refpoint->parent_l (Y_AXIS);
  35
  36       int span_prio =
  37         Align_interface::get_count (common,(Score_element*) dynamic_cast<Score_element const*> (span_refpoint));
  38       int item_prio =
  39         Align_interface::get_count (common,(Score_element*) dynamic_cast<Score_element  const *> (note_refpoint));
  40
  41       /*
  42         our staff is lower -> interstaff *= -1
  43        */
  44
  45       if (span_prio < item_prio)
  46         interstaff *= -1;
  47       return interstaff;
  48     }
  49   else return 0.0;
  50 }
  51