]> git.donarmstrong.com Git - lilypond.git/blob - lily/stem-tremolo.cc
release: 1.3.62
[lilypond.git] / lily / stem-tremolo.cc
1 /*   
2   stem-tremolo.cc --  implement Stem_tremolo
3   
4   source file of the GNU LilyPond music typesetter
5   
6   (c)  1997--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
7   
8  */
9
10 #include "stem-tremolo.hh"
11 #include "debug.hh"
12 #include "beam.hh"
13 #include "paper-def.hh"
14 #include "lookup.hh"
15 #include "stem.hh"
16 #include "offset.hh"
17 #include "dimension-cache.hh"
18 #include "staff-symbol-referencer.hh"
19 #include "directional-element-interface.hh"
20
21 /*
22   TODO:
23     lengthen stem if necessary
24  */
25
26 Stem_tremolo::Stem_tremolo (SCM s)
27   : Item (s)
28 {
29   set_elt_pointer ("stem", SCM_EOL);
30 }
31
32
33 Stem *
34 Stem_tremolo::stem_l ()const
35 {
36   SCM s =   get_elt_pointer ("stem");
37
38   return dynamic_cast<Stem*> (  unsmob_element (s));
39 }
40
41 Interval
42 Stem_tremolo::dim_callback (Score_element * se, Axis )
43 {
44   Stem_tremolo * s = dynamic_cast<Stem_tremolo*> (se);
45   Real space = Staff_symbol_referencer_interface (s->stem_l ())
46     .staff_space ();
47   return Interval (-space, space);
48 }
49
50
51
52 GLUE_SCORE_ELEMENT(Stem_tremolo,brew_molecule);
53 SCM
54 Stem_tremolo::member_brew_molecule () const
55 {
56   Stem * stem = stem_l ();
57   Beam * beam = stem->beam_l ();
58   
59   Real dydx;
60   if (beam)
61     {
62       Real dy = 0;
63       SCM s = beam->get_elt_property ("height");
64       if (gh_number_p (s))
65         dy = gh_scm2double (s);
66       Real dx = beam->last_visible_stem ()->relative_coordinate (0, X_AXIS)
67         - beam->first_visible_stem ()->relative_coordinate (0, X_AXIS);
68       dydx = dx ? dy/dx : 0;
69     }
70   else
71     // urg
72     dydx = 0.25;
73
74   Real ss = Staff_symbol_referencer_interface (stem).staff_space ();
75   Real thick = gh_scm2double (get_elt_property ("beam-thickness"));
76   Real width = gh_scm2double (get_elt_property ("beam-width"));
77   width *= ss;
78   thick *= ss;
79   
80   Molecule a (lookup_l ()->beam (dydx, width, thick));
81   a.translate (Offset (-width/2, width / 2 * dydx));
82   
83   int tremolo_flags;
84   SCM s = get_elt_property ("tremolo-flags");
85   if (gh_number_p (s))
86     tremolo_flags = gh_scm2int (s);
87   else
88     // huh?
89     tremolo_flags = 1;
90
91   int mult = beam ? beam->get_multiplicity () : 0;
92   Real interbeam_f = paper_l ()->interbeam_f (mult);
93   Molecule mol; 
94   for (int i = 0; i < tremolo_flags; i++)
95     {
96       Molecule b (a);
97       b.translate_axis (interbeam_f * i, Y_AXIS);
98       mol.add_molecule (b);
99     }
100   if (tremolo_flags)
101     mol.translate_axis (-mol.extent (Y_AXIS).center (), Y_AXIS);
102   if (beam)
103     {
104       // ugh, rather calc from Stem_tremolo_req
105       int beams_i = stem->beam_count(RIGHT) >? stem->beam_count (LEFT);
106       mol.translate (Offset(stem->relative_coordinate (0, X_AXIS) - relative_coordinate (0, X_AXIS),
107                             stem->stem_end_position () * ss / 2 - 
108                             directional_element (beam).get () * beams_i * interbeam_f));
109     }
110   else
111     {  
112       /*
113         Beams should intersect one beamthickness below stem end
114       */
115       Real dy = stem->stem_end_position () * ss / 2;
116       dy -= mol.extent (Y_AXIS).length () / 2 *  stem->get_direction ();
117
118       /*
119         uhg.  Should use relative coords and placement
120       */
121       Real whole_note_correction;
122       if (stem->invisible_b ())
123         whole_note_correction = -stem->get_direction ()
124           * stem->support_head ()->extent (X_AXIS).length () / 2;
125       else
126         whole_note_correction = 0;
127          
128       mol.translate (Offset (stem->relative_coordinate (0, X_AXIS) - relative_coordinate (0, X_AXIS) +
129                              whole_note_correction, dy));
130     }
131   
132   return mol.create_scheme();
133 }
134
135
136 void
137 Stem_tremolo::set_stem (Stem *s)
138 {
139   set_elt_pointer ("stem", s->self_scm_);
140   add_dependency (s);
141 }
142