]> git.donarmstrong.com Git - lilypond.git/blob - lily/slur-engraver.cc
release: 1.1.69
[lilypond.git] / lily / slur-engraver.cc
1 /*
2   slur-grav.cc -- implement Slur_engraver
3
4   (c)  1997--1999 Han-Wen Nienhuys <hanwen@cs.uu.nl>
5 */
6
7 #include "proto.hh"
8 #include "musical-request.hh"
9 #include "slur-engraver.hh"
10 #include "slur.hh"
11 #include "debug.hh"
12 #include "note-column.hh"
13 #include "translator-group.hh"
14
15 bool
16 Slur_engraver::do_try_music (Music *req_l)
17 {
18   if (Span_req *sl = dynamic_cast <Span_req *> (req_l))
19     {
20       if (sl->span_type_str_ != "slur")
21         return false;
22       new_slur_req_l_arr_.push (sl);
23
24       return true;
25     }
26   return false;
27 }
28
29 void
30 Slur_engraver::set_melisma (bool m)
31 {
32   Translator_group *where = daddy_trans_l_;
33   get_property ("slurMelismaBusy", &where);
34   if (!where)
35     where = daddy_trans_l_;
36     
37   daddy_trans_l_->set_property ("slurMelismaBusy", m ? "1" :"0");
38 }
39
40 void
41 Slur_engraver::acknowledge_element (Score_element_info info)
42 {
43   if (dynamic_cast<Note_column *> (info.elem_l_))
44     {
45       Note_column *col_l =dynamic_cast<Note_column *> (info.elem_l_) ;// ugh
46       for (int i = 0; i < slur_l_stack_.size(); i++)
47         slur_l_stack_[i]->add_column (col_l);
48       for (int i = 0; i < end_slur_l_arr_.size(); i++)
49         end_slur_l_arr_[i]->add_column (col_l);
50     }
51 }
52
53 void
54 Slur_engraver::do_removal_processing ()
55 {
56   for (int i = 0; i < slur_l_stack_.size(); i++)
57     {
58       typeset_element (slur_l_stack_[i]);
59     }
60   slur_l_stack_.clear ();
61   if (!get_property ("weAreGraceContext",0).to_bool ())
62     for (int i=0; i < requests_arr_.size(); i++)
63       {
64         requests_arr_[i]->warning (_ ("unterminated slur"));
65       }
66 }
67
68 void
69 Slur_engraver::do_process_requests()
70 {
71   Array<Slur*> start_slur_l_arr_;
72   for (int i=0; i< new_slur_req_l_arr_.size(); i++)
73     {
74       Span_req* slur_req_l = new_slur_req_l_arr_[i];
75       // end slur: move the slur to other array
76       if (slur_req_l->span_dir_ == STOP)
77         {
78           if (slur_l_stack_.empty())
79
80             slur_req_l->warning (_f ("can't find both ends of %s", _("slur")));
81           else
82             {
83               end_slur_l_arr_.push (slur_l_stack_.pop());
84               requests_arr_.pop();
85             }
86         }
87       else  if (slur_req_l->span_dir_ == START)
88         {
89           // push a new slur onto stack.
90           //(use temp. array to wait for all slur STOPs)
91           Slur * s_p =new Slur;
92           Scalar prop = get_property ("slurDash", 0);
93           if (prop.isnum_b ()) 
94             s_p->set_elt_property (dashed_scm_sym, gh_int2scm(prop));
95
96           requests_arr_.push (slur_req_l);
97           start_slur_l_arr_.push (s_p);
98           announce_element (Score_element_info (s_p, slur_req_l));
99         }
100     }
101   for (int i=0; i < start_slur_l_arr_.size(); i++)
102     slur_l_stack_.push (start_slur_l_arr_[i]);
103 }
104
105 void
106 Slur_engraver::do_pre_move_processing()
107 {
108   Scalar dir (get_property ("slurVerticalDirection", 0));
109   Scalar dir2 (get_property ("verticalDirection", 0));
110
111   Direction slurdir = CENTER;
112   if (dir.length_i () && dir.isnum_b ())
113     slurdir = (Direction) sign (int(dir));
114   else if (dir2.length_i () && dir2.isnum_b ())
115     slurdir = (Direction) sign (int (dir2));
116   
117   for (int i = 0; i < end_slur_l_arr_.size(); i++)
118     {
119       end_slur_l_arr_[i]->dir_ = slurdir;
120       typeset_element (end_slur_l_arr_[i]);
121     }
122   end_slur_l_arr_.clear();
123 }
124
125 void
126 Slur_engraver::do_post_move_processing()
127 {
128   new_slur_req_l_arr_.clear();
129   if (get_property ("automaticMelismata",0).to_bool ())
130     {
131       set_melisma (slur_l_stack_.size ());
132     }
133 }
134
135
136 ADD_THIS_TRANSLATOR(Slur_engraver);