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 "breathing-sign.hh"
  13 #include "string.hh"
  14 #include "molecule.hh"
  15 #include "paper-def.hh"
  16 #include "lookup.hh"
  17 #include "debug.hh"
  18 #include "dimensions.hh"
  19 #include "direction.hh"
  20
  21
  22 Breathing_sign::Breathing_sign ()
  23 {
  24   set_direction (UP);
  25   set_elt_property ("breakable", SCM_BOOL_T);
  26   set_elt_property ("visibility-lambda",
  27                     ly_ch_C_eval_scm ("non_postbreak_visibility"));
  28 }
  29
  30 void
  31 Breathing_sign::set_vertical_position (Direction updown)
  32 {
  33   assert(updown >= -1 && updown <= +1);
  34
  35   if(updown != 0)
  36     set_direction (updown);
  37 }
  38
  39 Molecule*
  40 Breathing_sign::do_brew_molecule_p () const
  41 {
  42   Real dl = staff_line_leading_f();
  43   Interval i1(0, dl / 6), i2(-dl / 2, dl / 2);
  44   Box b(i1, i2);
  45
  46   Molecule *output = new Molecule (lookup_l()->filledbox(b));
  47
  48   return output;
  49 }
  50
  51 void
  52 Breathing_sign::do_post_processing()
  53 {
  54   Real dl = staff_line_leading_f();
  55
  56   translate_axis(2.0 * dl * get_direction (), Y_AXIS);
  57 }
  58