2 text-spanner.cc -- implement Text_spanner
4 source file of the GNU LilyPond music typesetter
6 (c) 2000--2005 Jan Nieuwenhuizen <janneke@gnu.org>
8 Revised over good by Han-Wen.
11 #include "text-spanner.hh"
13 #include "text-interface.hh"
14 #include "line-spanner.hh"
16 #include "font-interface.hh"
17 #include "dimensions.hh"
18 #include "output-def.hh"
20 #include "paper-column.hh"
21 #include "staff-symbol-referencer.hh"
25 - vertical start / vertical end (fixme-name) |
26 - contination types (vert. star, vert. end) |-> eat volta-bracket
28 - more texts/positions
31 MAKE_SCHEME_CALLBACK (Text_spanner
, print
, 1);
34 TODO: this function is too long
37 Text_spanner::print (SCM smob
)
39 Grob
*me
= unsmob_grob (smob
);
40 Spanner
*spanner
= dynamic_cast<Spanner
*> (me
);
42 /* Ugh, must be same as Hairpin::print. */
44 Grob
*common
= spanner
->get_bound (LEFT
)->common_refpoint (spanner
->get_bound (RIGHT
), X_AXIS
);
45 Output_def
*layout
= me
->get_layout ();
47 SCM flare
= me
->get_property ("bracket-flare");
48 SCM shorten
= me
->get_property ("shorten-pair");
51 Drul_array
<bool> broken
;
55 Item
*b
= spanner
->get_bound (d
);
56 broken
[d
] = b
->break_status_dir () != CENTER
;
61 span_points
[d
] = spanner
->get_broken_left_end_align ();
63 span_points
[d
] = b
->relative_coordinate (common
, X_AXIS
);
67 Real encl
= robust_scm2double (me
->get_property ("enclose-bounds"), 0.0);
68 Interval ext
= b
->extent (common
, X_AXIS
);
71 = robust_relative_extent (b
, common
, X_AXIS
).linear_combination (d
* encl
);
73 if (is_number_pair (shorten
))
74 span_points
-= d
* scm_to_double (index_get_cell (shorten
, d
));
77 if (is_number_pair (flare
))
78 span_points
-= d
* scm_to_double (index_get_cell (flare
, d
));
80 while (flip (&d
) != LEFT
);
82 SCM properties
= Font_interface::text_font_alist_chain (me
);
83 SCM edge_text
= me
->get_property ("edge-text");
84 Drul_array
<Stencil
> edge
;
85 if (scm_is_pair (edge_text
))
93 SCM text
= index_get_cell (edge_text
, d
);
95 if (Text_interface::markup_p (text
))
96 edge
[d
] = *unsmob_stencil (Text_interface::interpret_markup (layout
->self_scm (), properties
, text
));
98 if (!edge
[d
].is_empty ())
99 edge
[d
].align_to (Y_AXIS
, CENTER
);
101 while (flip (&d
) != LEFT
);
104 Drul_array
<Real
> edge_height
= robust_scm2interval (me
->get_property ("edge-height"),
105 Interval (0.0, 0.0));
106 Drul_array
<Stencil
> edge_line
;
109 int dir
= to_dir (me
->get_property ("direction"));
116 if (is_number_pair (flare
))
117 dx
= scm_to_double (index_get_cell (flare
, d
)) * d
;
119 Real dy
= -dir
* edge_height
[d
];
121 edge_line
[d
] = Line_spanner::line_stencil (me
, Offset (0, 0), Offset (dx
, dy
));
123 while (flip (&d
) != LEFT
);
129 Interval ext
= edge
[d
].extent (X_AXIS
);
130 if (!ext
.is_empty ())
132 Real pad
= robust_scm2double (me
->get_property ("bound-padding"), 0.0);
133 edge
[d
].translate_axis (span_points
[d
], X_AXIS
);
134 m
.add_stencil (edge
[d
]);
135 span_points
[d
] += -d
* (ext
[-d
] + pad
);
138 while (flip (&d
) != LEFT
);
142 if (d
* span_points
[d
] > d
* edge
[-d
].extent (X_AXIS
)[d
])
144 edge_line
[d
].translate_axis (span_points
[d
], X_AXIS
);
145 m
.add_stencil (edge_line
[d
]);
148 while (flip (&d
) != LEFT
);
150 if (!span_points
.is_empty ())
152 Stencil l
= Line_spanner::line_stencil (me
,
153 Offset (span_points
[LEFT
], 0),
154 Offset (span_points
[RIGHT
], 0));
157 m
.translate_axis (- me
->relative_coordinate (common
, X_AXIS
), X_AXIS
);
158 return m
.smobbed_copy ();
161 ADD_INTERFACE (Text_spanner
, "text-spanner-interface",
162 "generic text spanner",
163 "bound-padding dash-period dash-fraction edge-height bracket-flare edge-text shorten-pair style thickness enclose-bounds");