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   dir_ = UP;
  25   set_elt_property (breakable_scm_sym, SCM_BOOL_T);
  26   set_elt_property (break_priority_scm_sym, gh_int2scm (-4));
  27   set_elt_property (visibility_lambda_scm_sym,
  28                     ly_ch_C_eval_scm ("non_postbreak_visibility"));
  29 }
  30
  31 void
  32 Breathing_sign::set_vertical_position (Direction updown)
  33 {
  34   assert(updown >= -1 && updown <= +1);
  35
  36   if(updown != 0)
  37     dir_ = updown;
  38 }
  39
  40 Molecule*
  41 Breathing_sign::do_brew_molecule_p () const
  42 {
  43   Real dl = staff_line_leading_f();
  44   Interval i1(0, dl / 6), i2(-dl / 2, dl / 2);
  45   Box b(i1, i2);
  46
  47   Molecule *output = new Molecule (lookup_l()->filledbox(b));
  48
  49   return output;
  50 }
  51
  52 void
  53 Breathing_sign::do_post_processing()
  54 {
  55   Real dl = staff_line_leading_f();
  56
  57   translate_axis(2.0 * dl * dir_, Y_AXIS);
  58 }