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
  13
  14 bool
  15 Request::equal_b (Request const* r) const
  16 {
  17   return r->do_equal_b (this) || this->do_equal_b (r) ;
  18 }
  19
  20 bool
  21 Request::do_equal_b (Request const*) const
  22 {
  23   return true;
  24 }
  25
  26
  27 Request::Request ()
  28   : Music (SCM_EOL)
  29 {
  30   set_mus_property ("type", ly_symbol2scm ("request"));
  31 }
  32
  33
  34
  35 Script_req::Script_req ()
  36 {
  37   set_direction (CENTER);
  38 }
  39
  40 void
  41 Script_req::set_direction (Direction d)
  42 {
  43   set_mus_property ("direction", gh_int2scm (d));
  44 }
  45
  46 Direction
  47 Script_req::get_direction () const
  48 {
  49   SCM d = get_mus_property ("direction");
  50
  51   return (isdir_b (d)) ?  to_dir (d) : CENTER;
  52 }
  53
  54
  55 Direction
  56 Span_req::get_span_dir () const
  57 {
  58   SCM d = get_mus_property ("span-direction");
  59
  60   return (isdir_b (d)) ?  to_dir (d) : CENTER;
  61 }
  62
  63 void
  64 Span_req::set_span_dir (Direction d)
  65 {
  66   set_mus_property ("span-direction", gh_int2scm (d));
  67 }
  68
  69
  70