2 This file is part of LilyPond, the GNU music typesetter.
4 Copyright (C) 2004--2011 Han-Wen Nienhuys <hanwen@xs4all.nl>
6 LilyPond is free software: you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation, either version 3 of the License, or
9 (at your option) any later version.
11 LilyPond is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with LilyPond. If not, see <http://www.gnu.org/licenses/>.
20 #include "text-interface.hh"
23 #include "line-interface.hh"
25 #include "font-interface.hh"
26 #include "lily-guile.hh"
27 #include "output-def.hh"
31 class Balloon_interface
34 DECLARE_SCHEME_CALLBACK (print
, (SCM
));
35 DECLARE_SCHEME_CALLBACK (print_spanner
, (SCM
));
36 DECLARE_GROB_INTERFACE ();
38 static SCM
internal_balloon_print (Grob
*me
, Grob
*p
, Offset off
);
41 MAKE_SCHEME_CALLBACK (Balloon_interface
, print
, 1);
43 Balloon_interface::print (SCM smob
)
45 Grob
*me
= unsmob_grob (smob
);
47 if (Item
*item
= dynamic_cast<Item
*> (me
))
48 if (!Item::break_visible (item
))
51 Grob
*p
= me
->get_parent (X_AXIS
);
53 Offset
off (me
->relative_coordinate (p
, X_AXIS
),
54 me
->relative_coordinate (p
, Y_AXIS
));
56 return internal_balloon_print (me
, p
, off
);
59 MAKE_SCHEME_CALLBACK (Balloon_interface
, print_spanner
, 1);
61 Balloon_interface::print_spanner (SCM smob
)
63 Spanner
*me
= unsmob_spanner (smob
);
64 Spanner
*orig
= dynamic_cast<Spanner
*> (me
->original ());
68 Direction spanner_placement
= robust_scm2dir (me
->get_property ("spanner-placement"), LEFT
);
70 Spanner
*wanted
= (spanner_placement
!= RIGHT
)
71 ? orig
->broken_intos_
[0]
72 : orig
->broken_intos_
.back ();
79 Spanner
*p
= dynamic_cast<Spanner
*> (me
->get_parent (Y_AXIS
));
84 Offset
off (me
->relative_coordinate (me
->get_bound (LEFT
), X_AXIS
),
85 me
->relative_coordinate (p
, Y_AXIS
));
86 return internal_balloon_print (me
, p
, off
);
90 Balloon_interface::internal_balloon_print (Grob
*me
, Grob
*p
, Offset off
)
92 Box
b (p
->extent (p
, X_AXIS
),
93 p
->extent (p
, Y_AXIS
));
94 Real padding
= robust_scm2double (me
->get_property ("padding"), .1);
95 b
.widen (padding
, padding
);
99 if (to_boolean (me
->get_property ("annotation-balloon")))
100 fr
= Lookup::frame (b
, 0.1, 0.05);
102 SCM bt
= me
->get_property ("text");
103 SCM chain
= Font_interface::text_font_alist_chain (me
);
105 SCM stencil
= Text_interface::interpret_markup (me
->layout ()->self_scm (),
108 Stencil
*text_stil
= unsmob_stencil (stencil
);
111 for (int i
= X_AXIS
; i
< NO_AXES
; i
++)
114 z1
[a
] = b
[a
].linear_combination (sign (off
[a
]));
115 text_stil
->align_to (a
, -sign (off
[a
]));
118 Offset z2
= z1
+ off
;
120 if (to_boolean (me
->get_property ("annotation-line")))
121 fr
.add_stencil (Line_interface::line (me
, z1
, z2
));
123 text_stil
->translate (z2
);
124 fr
.add_stencil (*text_stil
);
127 return fr
.smobbed_copy ();
130 ADD_INTERFACE (Balloon_interface
,
131 "A collection of routines to put text balloons around an"
135 "annotation-balloon "