]> git.donarmstrong.com Git - lilypond.git/blob - lily/fingering-engraver.cc
Configure only pristine build tree or on user
[lilypond.git] / lily / fingering-engraver.cc
1 /*   
2   fingering-engraver.cc --  implement Fingering_engraver
3   
4   source file of the GNU LilyPond music typesetter
5   
6   (c) 1998--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
7   
8  */
9
10
11 #include "engraver.hh"
12 #include "side-position-interface.hh"
13 #include "item.hh"
14 #include "event.hh"
15 #include "stem.hh"
16 #include "rhythmic-head.hh"
17 #include "self-alignment-interface.hh"
18
19 class Fingering_engraver : public Engraver
20 {
21   Link_array<Music> reqs_;
22   Link_array<Item> fingerings_;
23
24 public:
25   TRANSLATOR_DECLARATIONS (Fingering_engraver);
26 protected:
27   virtual bool try_music (Music* m);
28   virtual void stop_translation_timestep ();
29   virtual void start_translation_timestep ();
30   virtual void process_music ();
31   virtual void acknowledge_grob (Grob_info);
32
33 private:
34   void make_script (Direction, Music*, int);
35 };
36
37 bool
38 Fingering_engraver::try_music (Music *m)
39 {
40   if (m->is_mus_type ("fingering-event"))
41     {
42       reqs_.push (m);
43       return true;
44     }
45   return false;
46 }
47
48 void
49 Fingering_engraver::acknowledge_grob (Grob_info inf)
50 {
51   if (Stem::has_interface (inf.grob_))
52     {
53       for (int i=0; i < fingerings_.size (); i++)
54         {
55           Side_position_interface::add_support (fingerings_[i], inf.grob_);
56         }
57     }
58   else if (Rhythmic_head::has_interface (inf.grob_))
59     {
60       for (int i=0; i < fingerings_.size (); i++)
61         {
62           Grob*t = fingerings_[i];
63           Side_position_interface::add_support (t,inf.grob_);
64           if (!t->get_parent (X_AXIS))
65             t->set_parent (inf.grob_, X_AXIS);
66         }
67     }
68 }
69
70 void
71 Fingering_engraver::process_music ()
72 {
73   for (int i= reqs_.size (); i--;)
74     {
75       SCM dir = reqs_[i]->get_property ("direction");
76       make_script (to_dir (dir), reqs_[i], i);
77     }
78 }
79
80
81 void
82 Fingering_engraver::make_script (Direction d, Music *r, int i)
83 {
84   Item *fingering = make_item ("Fingering", r->self_scm ());
85   Axis a = Y_AXIS;
86   Axis other = other_axis (a);
87
88   /*
89     Huh, what's this for? --hwn.
90
91     junkme.
92    */
93   SCM pitch = r->get_property ("pitch");
94   if (unsmob_pitch (pitch))
95     fingering->set_property ("pitch", pitch);
96
97   /*
98     We can't fold these definitions into define-grobs since
99     fingerings for chords need different settings. 
100   */
101   Side_position_interface::set_axis (fingering, a);
102   fingering->add_offset_callback (Self_alignment_interface::aligned_on_self_proc, other);
103   fingering->add_offset_callback (Self_alignment_interface::centered_on_parent_proc, other);
104
105   // Hmm
106   int priority = 200;
107   SCM s = fingering->get_property ("script-priority");
108   if (ly_c_number_p (s))
109     priority = ly_scm2int (s);
110   
111   /* See script-engraver.cc */
112   priority += i;
113
114   fingering->set_property ("script-priority", scm_int2num (priority));
115
116
117   if (!is_direction (fingering->get_property ("direction")))
118     {
119       if (d)
120         fingering->set_property ("direction", scm_int2num (d));
121       else
122         fingering->set_property ("direction",  scm_int2num (RIGHT));
123     }
124
125   SCM dig =  r->get_property ("digit");
126   fingering->set_property ("text", scm_number_to_string (dig, scm_int2num (10)));
127
128   fingerings_.push (fingering);
129 }
130
131 void
132 Fingering_engraver::stop_translation_timestep ()
133 {
134   if (!fingerings_.size ())
135     return;
136   
137   fingerings_.clear ();
138 }
139
140 void
141 Fingering_engraver::start_translation_timestep ()
142 {
143   reqs_.clear ();
144 }
145
146 Fingering_engraver::Fingering_engraver ()
147 {
148
149 }
150
151 ENTER_DESCRIPTION (Fingering_engraver,
152 /* descr */       "Create fingering-scripts",
153 /* creats*/       "Fingering",
154 /* accepts */     "fingering-event",
155 /* acks  */      "rhythmic-head-interface stem-interface",
156 /* reads */       "",
157 /* write */       "");