← Back to branch summary

~ubuntu-branches/ubuntu/precise/lilypond/precise

« back to all changes in this revision

Viewing changes to lily/slur-engraver.cc

  • Committer: Bazaar Package Importer
  • Author(s): Thomas Bushnell, BSG
  • Date: 2006-12-19 10:18:12 UTC
  • mfrom: (3.1.4 feisty)
  • Revision ID: james.westby@ubuntu.com-20061219101812-7awtjkp0i393wxty
Tags: 2.8.7-3
http://bugs.debian.org/400550
scripts/midi2ly.py: When setting DATADIR, find Lilypond python files
in the @TOPLEVEL_VERSION@ directory, not 'current'.  Patch thanks to
Chris Lamb (chris@chris-lamb.co.uk).  (Closes: #400550)

Show diffs side-by-side

added added

removed removed

Lines of Context:
lily/slur-engraver.cc
1
1
/*
2
2
  slur-engraver.cc -- implement Slur_engraver
3
3
 
4
 
  (c) 1997--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
 
4
  source file of the GNU LilyPond music typesetter
 
5
 
 
6
  (c) 1997--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
5
7
*/
6
8
 
7
 
#include "event.hh"
 
9
#include "engraver.hh"
 
10
 
 
11
#include "context.hh"
 
12
#include "directional-element-interface.hh"
 
13
#include "international.hh"
 
14
#include "note-column.hh"
8
15
#include "slur.hh"
 
16
#include "spanner.hh"
 
17
#include "tie.hh"
9
18
#include "warn.hh"
10
 
#include "note-column.hh"
11
 
#include "context.hh"
12
 
 
13
 
#include "engraver.hh"
14
 
#include "spanner.hh"
15
19
 
16
20
/*
17
 
  TODO: junk nested slur functionality.
18
 
 */
 
21
  It is possible that a slur starts and ends on the same note.  At
 
22
  least, it is for phrasing slurs: a note can be both beginning and
 
23
  ending of a phrase.
 
24
*/
19
25
class Slur_engraver : public Engraver
20
26
{
21
 
  Link_array<Music> events_;
22
 
  Link_array<Music> new_slur_evs_;
23
 
  Link_array<Grob> slur_stack_;
24
 
  Link_array<Grob> end_slurs_;
25
 
  Moment last_start_;
 
27
  Drul_array<Music *> events_;
 
28
  Music *running_slur_start_;
 
29
  vector<Grob*> slurs_;
 
30
  vector<Grob*> end_slurs_;
26
31
 
27
32
  void set_melisma (bool);
28
33
 
29
34
protected:
30
 
  virtual bool try_music (Music*);
31
 
  virtual void acknowledge_grob (Grob_info);
32
 
  virtual void stop_translation_timestep ();
 
35
  virtual bool try_music (Music *);
 
36
 
 
37
  DECLARE_ACKNOWLEDGER (accidental);
 
38
  DECLARE_ACKNOWLEDGER (dynamic_line_spanner);
 
39
  DECLARE_ACKNOWLEDGER (fingering);
 
40
  DECLARE_ACKNOWLEDGER (note_column);
 
41
  DECLARE_ACKNOWLEDGER (script);
 
42
  DECLARE_ACKNOWLEDGER (text_script);
 
43
  DECLARE_ACKNOWLEDGER (tie);
 
44
  DECLARE_ACKNOWLEDGER (tuplet_number);
 
45
  void acknowledge_extra_object (Grob_info);
 
46
  void stop_translation_timestep ();
33
47
  virtual void finalize ();
34
 
  virtual void process_music ();
 
48
  void process_music ();
35
49
 
36
50
public:
37
51
  TRANSLATOR_DECLARATIONS (Slur_engraver);
39
53
 
40
54
Slur_engraver::Slur_engraver ()
41
55
{
42
 
  last_start_ = Moment (-1);
 
56
  events_[START] = events_[STOP] = 0;
43
57
}
44
58
 
45
59
bool
46
 
Slur_engraver::try_music (Music *ev)
 
60
Slur_engraver::try_music (Music *m)
47
61
{
48
 
  if (ev->is_mus_type ("slur-event"))
 
62
  if (m->is_mus_type ("slur-event"))
49
63
    {
50
 
      /*
51
 
        Let's not start more than one slur per moment.
52
 
      */
53
 
      Direction d = to_dir (ev->get_property ("span-direction"));
 
64
      Direction d = to_dir (m->get_property ("span-direction"));
54
65
      if (d == START)
55
66
        {
56
 
          if (now_mom () > last_start_)
57
 
            {
58
 
              new_slur_evs_.push (ev);
59
 
              last_start_ = now_mom ();
60
 
            }
61
 
 
62
 
          /*
63
 
            But we swallow other slur events.
64
 
          */
65
 
              
 
67
          events_[START] = m;
66
68
          return true;
67
69
        }
68
70
      else if (d == STOP)
69
71
        {
70
 
          /*
71
 
            Swallow other events.
72
 
          */
73
 
          for (int j = new_slur_evs_.size (); j--;)
74
 
            {
75
 
              Direction nd = to_dir (new_slur_evs_[j]->get_property ("span-direction"));
76
 
              
77
 
              if (nd == STOP)
78
 
                return true;
79
 
            }
80
 
              
81
 
          new_slur_evs_.push (ev);
 
72
          events_[STOP] = m;
82
73
          return true;
83
74
        }
84
75
    }
88
79
void
89
80
Slur_engraver::set_melisma (bool m)
90
81
{
91
 
  daddy_context_->set_property ("slurMelismaBusy", m ? SCM_BOOL_T :SCM_BOOL_F);
92
 
}
93
 
 
94
 
void
95
 
Slur_engraver::acknowledge_grob (Grob_info info)
96
 
{
97
 
  if (Note_column::has_interface (info.grob_))
98
 
    {
99
 
      Grob *e =info.grob_;
100
 
      for (int i = 0; i < slur_stack_.size (); i++)
101
 
        Slur::add_column (slur_stack_[i], e);
102
 
      for (int i = 0; i < end_slurs_.size (); i++)
103
 
        Slur::add_column (end_slurs_[i], e);
104
 
    }
 
82
  context ()->set_property ("slurMelismaBusy", m ? SCM_BOOL_T : SCM_BOOL_F);
 
83
}
 
84
 
 
85
void
 
86
Slur_engraver::acknowledge_note_column (Grob_info info)
 
87
{
 
88
  Grob *e = info.grob ();
 
89
  for (vsize i = slurs_.size (); i--;)
 
90
    Slur::add_column (slurs_[i], e);
 
91
  for (vsize i = end_slurs_.size (); i--;)
 
92
    Slur::add_column (end_slurs_[i], e);
 
93
}
 
94
 
 
95
void
 
96
Slur_engraver::acknowledge_extra_object (Grob_info info)
 
97
{
 
98
  if (slurs_.empty () && end_slurs_.empty ())
 
99
    return ;
 
100
  
 
101
  Grob *e = info.grob ();
 
102
  SCM avoid = e->get_property ("avoid-slur");
 
103
  if (Tie::has_interface (e)
 
104
      || avoid == ly_symbol2scm ("inside"))
 
105
    {
 
106
      for (vsize i = slurs_.size (); i--;)
 
107
        Slur::add_extra_encompass (slurs_[i], e);
 
108
      for (vsize i = end_slurs_.size (); i--;)
 
109
        Slur::add_extra_encompass (end_slurs_[i], e);
 
110
    }
 
111
  else if (avoid == ly_symbol2scm ("outside")
 
112
           || avoid == ly_symbol2scm ("around"))
 
113
    {
 
114
      Grob *slur = slurs_.size () ? slurs_[0] : 0;
 
115
      slur = (end_slurs_.size () && !slur)
 
116
        ? end_slurs_[0] : slur;
 
117
 
 
118
      if (slur)
 
119
        {
 
120
          chain_offset_callback (e, Slur::outside_slur_callback_proc, Y_AXIS);
 
121
          e->set_object ("slur", slur->self_scm ());
 
122
        }
 
123
    }
 
124
  else
 
125
    e->warning ("Ignoring grob for slur. avoid-slur not set?");
 
126
}
 
127
 
 
128
void
 
129
Slur_engraver::acknowledge_accidental (Grob_info info)
 
130
{
 
131
  acknowledge_extra_object (info);
 
132
}
 
133
 
 
134
void
 
135
Slur_engraver::acknowledge_dynamic_line_spanner (Grob_info info)
 
136
{
 
137
  acknowledge_extra_object (info);
 
138
}
 
139
 
 
140
void
 
141
Slur_engraver::acknowledge_fingering (Grob_info info)
 
142
{
 
143
  acknowledge_extra_object (info);
 
144
}
 
145
 
 
146
void
 
147
Slur_engraver::acknowledge_tuplet_number (Grob_info info)
 
148
{
 
149
  acknowledge_extra_object (info);
 
150
}
 
151
 
 
152
 
 
153
void
 
154
Slur_engraver::acknowledge_script (Grob_info info)
 
155
{
 
156
  if (!info.grob ()->internal_has_interface (ly_symbol2scm ("dynamic-interface")))
 
157
    acknowledge_extra_object (info);
 
158
}
 
159
 
 
160
void
 
161
Slur_engraver::acknowledge_text_script (Grob_info info)
 
162
{
 
163
  acknowledge_extra_object (info);
 
164
}
 
165
 
 
166
void
 
167
Slur_engraver::acknowledge_tie (Grob_info info)
 
168
{
 
169
  acknowledge_extra_object (info);
105
170
}
106
171
 
107
172
void
108
173
Slur_engraver::finalize ()
109
174
{
110
 
  for (int i = 0; i < slur_stack_.size (); i++)
111
 
    {
112
 
      /*
113
 
        Let's not typeset unterminated stuff
114
 
       */
115
 
      slur_stack_[i]->suicide ();
116
 
    }
117
 
  slur_stack_.clear ();
118
 
 
119
 
  for (int i=0; i < events_.size (); i++)
120
 
      {
121
 
        events_[i]->origin ()->warning (_ ("unterminated slur"));
122
 
      }
 
175
  if (slurs_.size ())
 
176
    slurs_[0]->warning (_ ("unterminated slur"));
123
177
}
124
178
 
125
179
void
126
180
Slur_engraver::process_music ()
127
181
{
128
 
  Link_array<Grob> start_slurs;
129
 
  for (int i=0; i< new_slur_evs_.size (); i++)
130
 
    {
131
 
      Music* slur_ev = new_slur_evs_[i];
132
 
      // end slur: move the slur to other array
133
 
      Direction d = to_dir (slur_ev->get_property ("span-direction"));
134
 
      if (d== STOP)
135
 
        {
136
 
          if (slur_stack_.is_empty ())
137
 
            /* How to shut up this warning, when Voice_devnull_engraver has
138
 
               eaten start event? */
139
 
            slur_ev->origin ()->warning (_f ("can't find start of slur"));
140
 
          else
141
 
            {
142
 
              Grob* slur = slur_stack_.pop ();
143
 
            
144
 
              end_slurs_.push (slur);
145
 
              events_.pop ();
146
 
            }
147
 
        }
148
 
      else  if (d == START)
149
 
        {
150
 
          // push a new slur onto stack.
151
 
          // (use temp. array to wait for all slur STOPs)
152
 
          Grob* slur = make_spanner ("Slur");
153
 
          Slur::set_interface (slur); // cannot remove yet!
154
 
 
155
 
 
156
 
          if (Direction updown = to_dir (slur_ev->get_property ("direction")))
157
 
            {
158
 
              slur->set_property ("direction", gh_int2scm (updown));
159
 
            }
160
 
          
161
 
          start_slurs.push (slur);
162
 
          events_.push (slur_ev);
163
 
          announce_grob (slur, slur_ev->self_scm ());
164
 
        }
165
 
    }
166
 
 
167
 
  slur_stack_.concat  (start_slurs);
168
 
 
169
 
  set_melisma (slur_stack_.size ());
170
 
 
171
 
  new_slur_evs_.clear ();
 
182
  if (events_[STOP])
 
183
    {
 
184
      if (slurs_.size () == 0)
 
185
        events_[STOP]->origin ()->warning (_ ("can't end slur"));
 
186
 
 
187
      end_slurs_ = slurs_;
 
188
      slurs_.clear ();
 
189
    }
 
190
 
 
191
  if (events_[START] && slurs_.empty ())
 
192
    {
 
193
      Music *ev = events_[START];
 
194
 
 
195
      bool double_slurs = to_boolean (get_property ("doubleSlurs"));
 
196
 
 
197
      Grob *slur = make_spanner ("Slur", events_[START]->self_scm ());
 
198
      Direction updown = to_dir (ev->get_property ("direction"));
 
199
      if (updown && !double_slurs)
 
200
        set_grob_direction (slur, updown);
 
201
 
 
202
      slurs_.push_back (slur);
 
203
 
 
204
      if (double_slurs)
 
205
        {
 
206
          set_grob_direction (slur, DOWN);
 
207
          slur = make_spanner ("Slur", events_[START]->self_scm ());
 
208
          set_grob_direction (slur, UP);
 
209
          slurs_.push_back (slur);
 
210
        }
 
211
    }
 
212
  set_melisma (slurs_.size ());
172
213
}
173
214
 
174
215
void
175
216
Slur_engraver::stop_translation_timestep ()
176
217
{
177
 
  for (int i = 0; i < end_slurs_.size (); i++)
178
 
    {
179
 
      typeset_grob (end_slurs_[i]);
180
 
    }
181
218
  end_slurs_.clear ();
182
 
  new_slur_evs_.clear ();
 
219
  events_[START] = events_[STOP] = 0;
183
220
}
184
221
 
185
 
 
186
 
 
187
 
ENTER_DESCRIPTION (Slur_engraver,
188
 
/* descr */       "Build slurs from Slur_evs",
189
 
/* creats*/       "Slur",
190
 
/* accepts */     "slur-event",
191
 
/* acks  */      "note-column-interface",
192
 
/* reads */       "slurMelismaBusy",
193
 
/* write */       "");
 
222
#include "translator.icc"
 
223
 
 
224
ADD_ACKNOWLEDGER (Slur_engraver, accidental);
 
225
ADD_ACKNOWLEDGER (Slur_engraver, dynamic_line_spanner);
 
226
ADD_ACKNOWLEDGER (Slur_engraver, fingering);
 
227
ADD_ACKNOWLEDGER (Slur_engraver, note_column);
 
228
ADD_ACKNOWLEDGER (Slur_engraver, script);
 
229
ADD_ACKNOWLEDGER (Slur_engraver, text_script);
 
230
ADD_ACKNOWLEDGER (Slur_engraver, tie);
 
231
ADD_ACKNOWLEDGER (Slur_engraver, tuplet_number);
 
232
ADD_TRANSLATOR (Slur_engraver,
 
233
                /* doc */ "Build slur grobs from slur events",
 
234
                /* create */ "Slur",
 
235
                /* accept */ "slur-event",
 
236
                /* read */ "slurMelismaBusy doubleSlurs",
 
237
                /* write */ "");