lily/molecule.cc

   1 /*
   2   molecule.cc -- implement Molecule
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c)  1997--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7 */
   8
   9 #include <math.h>
  10 #include <libc-extension.hh>
  11
  12 #include "font-metric.hh"
  13 #include "dimensions.hh"
  14 #include "interval.hh"
  15 #include "string.hh"
  16 #include "molecule.hh"
  17 #include "debug.hh"
  18 #include "killing-cons.tcc"
  19
  20 Interval
  21 Molecule::extent(Axis a) const
  22 {
  23   return dim_[a];
  24 }
  25
  26 Molecule::Molecule (Box b, SCM func)
  27 {
  28   expr_ = func;
  29   dim_ = b;
  30 }
  31
  32 Molecule::Molecule()
  33 {
  34   expr_ = SCM_EOL;
  35   set_empty (true);
  36 }
  37
  38 void
  39 Molecule::translate (Offset o)
  40 {
  41   Axis a = X_AXIS;
  42   while (a < NO_AXES)
  43     {
  44       if (abs(o[a]) > 30 CM
  45           || isinf (o[a]) || isnan (o[a]))
  46         {
  47           programming_error ("Improbable offset for translation: setting to zero");
  48           o[a] =  0.0;
  49         }
  50       incr (a);
  51     }
  52
  53   expr_ = gh_list (ly_symbol2scm ("translate-molecule"),
  54                    ly_offset2scm (o),
  55                    expr_, SCM_UNDEFINED);
  56   if (!empty_b ())
  57     dim_.translate (o);
  58 }
  59
  60
  61 void
  62 Molecule::translate_axis (Real x,Axis a)
  63 {
  64   Offset o(0,0);
  65   o[a] = x;
  66   translate (o);
  67 }
  68
  69
  70
  71 void
  72 Molecule::add_molecule (Molecule const &m)
  73 {
  74   expr_ = gh_list (ly_symbol2scm ("combine-molecule"),
  75                    m.expr_,
  76                    expr_, SCM_UNDEFINED);
  77   dim_.unite (m.dim_);
  78 }
  79
  80 void
  81 Molecule::set_empty (bool e)
  82 {
  83   if (e)
  84     {
  85       dim_[X_AXIS].set_empty ();
  86       dim_[Y_AXIS].set_empty ();
  87     }
  88   else
  89     {
  90       dim_[X_AXIS] = Interval(0,0);
  91       dim_[Y_AXIS] = Interval (0,0);
  92     }
  93 }
  94
  95
  96 void
  97 Molecule::align_to (Axis a, Direction d)
  98 {
  99   Interval i (extent (a));
 100   Real r =  (d == CENTER) ? i.center () : i[d];
 101   translate_axis (-r, a);
 102 }
 103
 104 void
 105 Molecule::add_at_edge (Axis a, Direction d, Molecule const &m, Real padding)
 106 {
 107   Real my_extent= empty_b () ? 0.0 : dim_[a][d];
 108   Interval i (m.extent (a));
 109   if (i.empty_b ())
 110     programming_error ("Molecule::add_at_edge: adding empty molecule.");
 111
 112   Real his_extent = i[-d];
 113   Real offset = my_extent -  his_extent;
 114   Molecule toadd (m);
 115   toadd.translate_axis (offset + d * padding, a);
 116   add_molecule (toadd);
 117 }
 118
 119 bool
 120 Molecule::empty_b () const
 121 {
 122   return expr_ == SCM_EOL;
 123 }
 124
 125 SCM
 126 fontify_atom(Font_metric * met, SCM f)
 127 {
 128   if (f == SCM_EOL)
 129     return f;
 130   else
 131     return  gh_list (ly_symbol2scm ("fontify"),
 132                      ly_quote_scm (met->description_), f, SCM_UNDEFINED);
 133 }
 134
 135 SCM
 136 Molecule::get_expr () const
 137 {
 138   return expr_;
 139 }
 140
 141 Molecule
 142 create_molecule (SCM scm_mol)
 143 {
 144   if (!gh_pair_p (scm_mol))
 145     return Molecule ();
 146
 147   SCM exp = gh_car (scm_mol);
 148   scm_mol = gh_cdr (scm_mol);
 149   Box b ;
 150   if (gh_pair_p (scm_mol))
 151     {
 152       Interval i1 = ly_scm2interval (gh_car (scm_mol));
 153       Interval i2 = ly_scm2interval (gh_cdr (scm_mol));
 154       b = Box (i1,i2);
 155     }
 156   return Molecule (b, exp);
 157 }
 158
 159 SCM
 160 Molecule::create_scheme () const
 161 {
 162   return gh_cons (expr_,
 163                   gh_cons (ly_interval2scm (dim_[X_AXIS]),
 164                            ly_interval2scm (dim_[Y_AXIS])));
 165 }
 166
 167 Box
 168 Molecule::extent_box () const
 169 {
 170   return dim_;
 171 }