]> git.donarmstrong.com Git - lilypond.git/blob - lily/rest-engraver.cc
(parse_symbol_list): Bugfix.
[lilypond.git] / lily / rest-engraver.cc
1 /*
2   rest-engraver.cc -- implement Rest_engraver
3
4   source file of the GNU LilyPond music typesetter
5
6   (c) 1997--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
7 */
8
9 #include "engraver.hh"
10
11 #include "duration.hh"
12 #include "item.hh"
13 #include "staff-symbol-referencer.hh"
14 #include "dots.hh"
15 #include "rhythmic-head.hh"
16 #include "music.hh"
17
18 class Rest_engraver : public Engraver
19 {
20   Music *rest_event_;
21   Item *dot_;
22   Grob *rest_;
23 protected:
24   virtual bool try_music (Music *);
25   void start_translation_timestep ();
26   void process_music ();
27
28 public:
29   TRANSLATOR_DECLARATIONS (Rest_engraver);
30 };
31
32 /*
33   Should merge with Note_head_engraver
34 */
35 Rest_engraver::Rest_engraver ()
36 {
37   rest_event_ = 0;
38   rest_ = 0;
39   dot_ = 0;
40 }
41
42 void
43 Rest_engraver::start_translation_timestep ()
44 {
45   rest_event_ = 0;
46   rest_ = 0;
47   dot_ = 0;
48 }
49
50 void
51 Rest_engraver::process_music ()
52 {
53   if (rest_event_ && !rest_)
54     {
55       rest_ = make_item ("Rest", rest_event_->self_scm ());
56
57       int durlog = unsmob_duration (rest_event_->get_property ("duration"))->duration_log ();
58
59       rest_->set_property ("duration-log",
60                            scm_from_int (durlog));
61
62       int dots = unsmob_duration (rest_event_->get_property ("duration"))->dot_count ();
63
64       if (dots)
65         {
66           dot_ = make_item ("Dots", SCM_EOL);
67
68           Rhythmic_head::set_dots (rest_, dot_);
69           dot_->set_parent (rest_, Y_AXIS);
70           dot_->set_property ("dot-count", scm_from_int (dots));
71         }
72
73       Pitch *p = unsmob_pitch (rest_event_->get_property ("pitch"));
74
75       /*
76         This is ridiculous -- rests don't have pitch, but we act as if
77         our nose is bleeding.
78       */
79       if (p)
80         {
81           int pos = p->steps ();
82           SCM c0 = get_property ("middleCPosition");
83           if (scm_is_number (c0))
84             pos += scm_to_int (c0);
85
86           rest_->set_property ("staff-position", scm_from_int (pos));
87         }
88     }
89 }
90
91 bool
92 Rest_engraver::try_music (Music *m)
93 {
94   if (m->is_mus_type ("rest-event"))
95     {
96       rest_event_ = m;
97       return true;
98     }
99   return false;
100 }
101
102 #include "translator.icc"
103
104 ADD_TRANSLATOR (Rest_engraver,
105                 /* doc */ "",
106                 /* create */ "Rest Dots",
107                 /* accept */ "rest-event",
108                 /* read */ "middleCPosition",
109                 /* write */ "");