lily/request.cc

   1 /*
   2   request.cc -- implement Request
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 1996--2001 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7 */
   8
   9 #include "request.hh"
  10 #include "debug.hh"
  11
  12 bool
  13 Request::equal_b (Request const* r) const
  14 {
  15   return r->do_equal_b (this) || this->do_equal_b (r) ;
  16 }
  17
  18 bool
  19 Request::do_equal_b (Request const*) const
  20 {
  21   return true;
  22 }
  23
  24 Request::Request ()
  25   : Music (SCM_EOL)
  26 {
  27   set_mus_property ("type", ly_symbol2scm ("request"));
  28 }
  29
  30 Script_req::Script_req ()
  31 {
  32   set_direction (CENTER);
  33 }
  34
  35 void
  36 Script_req::set_direction (Direction d)
  37 {
  38   set_mus_property ("direction", gh_int2scm (d));
  39 }
  40
  41 Direction
  42 Script_req::get_direction () const
  43 {
  44   SCM d = get_mus_property ("direction");
  45
  46   return (isdir_b (d)) ?  to_dir (d) : CENTER;
  47 }
  48
  49 Direction
  50 Span_req::get_span_dir () const
  51 {
  52   SCM d = get_mus_property ("span-direction");
  53
  54   return (isdir_b (d)) ?  to_dir (d) : CENTER;
  55 }
  56
  57 void
  58 Span_req::set_span_dir (Direction d)
  59 {
  60   set_mus_property ("span-direction", gh_int2scm (d));
  61 }
  62
  63
  64
  65
  66