]> git.donarmstrong.com Git - lilypond.git/blob - lily/tuplet-number.cc
Moving files into input/manual/
[lilypond.git] / lily / tuplet-number.cc
1 /*
2   tuplet-number.cc -- implement Tuplet_number
3
4   source file of the GNU LilyPond music typesetter
5
6   (c) 2005--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
7
8 */
9
10 #include "tuplet-bracket.hh"
11 #include "moment.hh"
12 #include "paper-column.hh"
13 #include "text-interface.hh"
14 #include "spanner.hh"
15 #include "lookup.hh"
16
17 struct Tuplet_number
18 {
19   DECLARE_SCHEME_CALLBACK(print, (SCM));
20   static bool has_interface (Grob *);
21 };
22   
23
24 MAKE_SCHEME_CALLBACK(Tuplet_number, print, 1);
25 SCM 
26 Tuplet_number::print (SCM smob)
27 {
28   Spanner *me = unsmob_spanner (smob);
29   Spanner *tuplet = unsmob_spanner (me->get_object ("bracket")); 
30
31   if (!tuplet || !tuplet->is_live ())
32     {
33       me->suicide ();
34       return SCM_EOL;
35     }
36
37   /*
38     Don't print if it doesn't span time.
39    */
40   if (robust_scm2moment (tuplet->get_bound (LEFT)->get_column ()->get_property ("when"), Moment (0))
41       == robust_scm2moment (tuplet->get_bound (RIGHT)->get_column ()->get_property ("when"), Moment (0)))
42     {
43       me->suicide ();
44       return SCM_EOL;
45     }
46
47   SCM stc_scm = Text_interface::print (smob);
48   Stencil *stc = unsmob_stencil (stc_scm);
49
50   stc->align_to (X_AXIS, CENTER);
51   stc->align_to (Y_AXIS, CENTER);
52
53   SCM cpoints =  tuplet->get_property ("control-points");
54   Drul_array<Offset> points;
55   points[LEFT] = ly_scm2offset (scm_car (cpoints));
56   points[RIGHT] = ly_scm2offset (scm_cadr (cpoints));
57
58   stc->translate ((points[RIGHT] + points[LEFT]) / 2);
59   
60   return stc_scm;
61 }
62
63
64 ADD_INTERFACE (Tuplet_number,
65                "tuplet-number-interface",
66                "The number for a bracket. "
67                ,
68
69                /* properties */
70                "avoid-slur "    // UGH.
71                "bracket ");
72