lily/breathing-sign.cc

   1 /*
   2   breathing_sign.cc -- implement Breathing_sign
   3
   4   Copyright (C) 1999 Michael Krause
   5
   6   written for the GNU LilyPond music typesetter
   7
   8   TODO: --> see breathing-sign-engraver.cc
   9
  10 */
  11
  12 #include "staff-symbol-referencer.hh"
  13 #include "directional-element-interface.hh"
  14 #include "breathing-sign.hh"
  15 #include "string.hh"
  16 #include "molecule.hh"
  17 #include "paper-def.hh"
  18 #include "lookup.hh"
  19
  20 #include "dimensions.hh"
  21 #include "direction.hh"
  22
  23 MAKE_SCHEME_CALLBACK (Breathing_sign,brew_molecule,1);
  24 SCM
  25 Breathing_sign::brew_molecule (SCM smob)
  26 {
  27   Grob * me = unsmob_grob (smob);
  28   Real space = Staff_symbol_referencer::staff_space (me);
  29
  30   // todo: cfg'able.
  31   Interval i1 (0, space / 6), i2 (-space / 2, space / 2);
  32   Box b (i1, i2);
  33
  34   return Lookup::filledbox (b).smobbed_copy ();
  35 }
  36
  37 MAKE_SCHEME_CALLBACK (Breathing_sign,offset_callback,2);
  38 SCM
  39 Breathing_sign::offset_callback (SCM element_smob, SCM)
  40 {
  41   Grob *me = unsmob_grob (element_smob);
  42
  43   Direction d = Directional_element_interface::get (me);
  44   if (!d)
  45     {
  46       d = UP;
  47       Directional_element_interface::set (me, d);
  48     }
  49
  50   Real inter_f = Staff_symbol_referencer::staff_space (me)/2;
  51   int sz = Staff_symbol_referencer::line_count (me)-1;
  52   return gh_double2scm (inter_f * sz * d);
  53 }
  54
  55
  56 ADD_INTERFACE(Breathing_sign, "breathing-sign-interface",
  57               "A breathing sign.",
  58               "direction");