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   Real his_extent;
 110   if (i.empty_b ())
 111     {
 112       programming_error ("Molecule::add_at_edge: adding empty molecule.");
 113       his_extent = 0.0;
 114     }
 115   else
 116     his_extent = i[-d];
 117
 118   Real offset = my_extent -  his_extent;
 119   Molecule toadd (m);
 120   toadd.translate_axis (offset + d * padding, a);
 121   add_molecule (toadd);
 122 }
 123
 124 bool
 125 Molecule::empty_b () const
 126 {
 127   return expr_ == SCM_EOL;
 128 }
 129
 130 SCM
 131 fontify_atom(Font_metric * met, SCM f)
 132 {
 133   if (f == SCM_EOL)
 134     return f;
 135   else
 136     return  gh_list (ly_symbol2scm ("fontify"),
 137                      ly_quote_scm (met->description_), f, SCM_UNDEFINED);
 138 }
 139
 140 SCM
 141 Molecule::get_expr () const
 142 {
 143   return expr_;
 144 }
 145
 146 Molecule
 147 create_molecule (SCM scm_mol)
 148 {
 149   if (!gh_pair_p (scm_mol))
 150     return Molecule ();
 151
 152   SCM exp = gh_car (scm_mol);
 153   scm_mol = gh_cdr (scm_mol);
 154   Box b ;
 155   if (gh_pair_p (scm_mol))
 156     {
 157       Interval i1 = ly_scm2interval (gh_car (scm_mol));
 158       Interval i2 = ly_scm2interval (gh_cdr (scm_mol));
 159       b = Box (i1,i2);
 160     }
 161   return Molecule (b, exp);
 162 }
 163
 164 SCM
 165 Molecule::create_scheme () const
 166 {
 167   return gh_cons (expr_,
 168                   gh_cons (ly_interval2scm (dim_[X_AXIS]),
 169                            ly_interval2scm (dim_[Y_AXIS])));
 170 }
 171
 172 Box
 173 Molecule::extent_box () const
 174 {
 175   return dim_;
 176 }