lily/paper-column.cc

   1 /*
   2   paper-column.cc -- implement Paper_column
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c)  1997--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7 */
   8 #include "moment.hh"
   9 #include "paper-column.hh"
  10 #include "paper-score.hh"
  11 #include "debug.hh"
  12 #include "axis-group-interface.hh"
  13
  14 void
  15 Paper_column::add_rod (Paper_column * p, Real d)
  16 {
  17   Direction dir =  Direction (sign (p->rank_i ()  - rank_i ()));
  18
  19   if (dir != RIGHT)
  20     {
  21       programming_error ("Must set minimum distance LTOR.");
  22       return;
  23     }
  24
  25   for (int i=0; i < minimal_dists_.size (); i++)
  26     {
  27       Column_rod &rod = minimal_dists_[i];
  28       if (rod.other_l_ == p)
  29         {
  30           rod.distance_f_ = rod.distance_f_ >? d;
  31           return ;
  32         }
  33     }
  34
  35   Column_rod cr;
  36   cr.distance_f_ = d;
  37   cr.other_l_ = p;
  38
  39   minimal_dists_.push (cr);
  40 }
  41
  42 void
  43 Paper_column::add_spring (Paper_column * p, Real d, Real s)
  44 {
  45   Direction dir =  Direction (sign (p->rank_i ()  - rank_i ()));
  46
  47   if (dir != RIGHT)
  48     {
  49       programming_error ("Must set springs LTOR");
  50       return;
  51     }
  52
  53   for (int i=0; i < springs_.size (); i++)
  54     {
  55       Column_spring &spring = springs_[i];
  56       if (spring.other_l_ == p)
  57         {
  58           spring.distance_f_ = spring.distance_f_ >? d;
  59           return ;
  60         }
  61     }
  62
  63   Column_spring cr;
  64   cr.distance_f_ = d;
  65   cr.strength_f_ = s;
  66   cr.other_l_ = p;
  67
  68   springs_.push (cr);
  69 }
  70
  71 int
  72 Paper_column::rank_i() const
  73 {
  74   return rank_i_;
  75 }
  76
  77 void
  78 Paper_column::set_rank (int i)
  79 {
  80   rank_i_ = i;
  81 }
  82
  83
  84
  85 Line_of_score*
  86 Paper_column::line_l() const
  87 {
  88   return line_l_;
  89 }
  90
  91 Paper_column*
  92 Paper_column::column_l () const
  93 {
  94   return (Paper_column*)(this);
  95 }
  96
  97 Paper_column::Paper_column (SCM l)
  98   : Item (l)            // guh.?
  99 {
 100   Axis_group_interface (this).set_interface ();
 101   Axis_group_interface (this).set_axes (X_AXIS, X_AXIS);
 102   set_elt_pointer ("bounded-by-me", SCM_EOL);
 103   line_l_=0;
 104   rank_i_ = -1;
 105 }
 106
 107 Moment
 108 Paper_column::when_mom () const
 109 {
 110   SCM m = get_elt_property ("when");
 111   Moment s (0);
 112   if (SMOB_IS_TYPE_B(Moment, m))
 113     {
 114       s = *SMOB_TO_TYPE (Moment,m);
 115     }
 116   return s;
 117 }
 118
 119 bool
 120 Paper_column::musical_b () const
 121 {
 122   SCM m = get_elt_property ("shortest-starter-duration");
 123   Moment s (0);
 124   if (SMOB_IS_TYPE_B(Moment, m))
 125     {
 126       s = *SMOB_TO_TYPE (Moment,m);
 127     }
 128   return s != Moment(0);
 129 }
 130
 131 bool
 132 Paper_column::used_b ()const
 133 {
 134   return gh_pair_p (get_elt_pointer ("elements")) ||  breakable_b ()
 135     || gh_pair_p (get_elt_pointer ("bounded-by-me"))
 136     ;
 137 }