source file of the GNU LilyPond music typesetter
- (c) 1999--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
+ (c) 1999--2007 Han-Wen Nienhuys <hanwen@xs4all.nl>
*/
#include <cctype>
using namespace std;
#include "text-metrics.hh"
#include "warn.hh"
#include "stencil.hh"
-#include "lookup.hh"
#include "main.hh"
+#include "program-option.hh"
Modified_font_metric::Modified_font_metric (Font_metric *fm,
Real magnification)
}
Offset
-Modified_font_metric::attachment_point (std::string s) const
+Modified_font_metric::attachment_point (string s) const
{
Offset o = orig_->attachment_point (s);
return o * magnification_;
}
vsize
-Modified_font_metric::name_to_index (std::string s) const
+Modified_font_metric::name_to_index (string s) const
{
return orig_->name_to_index (s);
}
/* TODO: put this klutchness behind ly:option switch. */
Box
-Modified_font_metric::tex_kludge (std::string text) const
+Modified_font_metric::tex_kludge (string text) const
{
Interval ydims;
Real w = 0;
}
Stencil
-Modified_font_metric::text_stencil (std::string text) const
+Modified_font_metric::text_stencil (string text) const
{
Box b;
if (Pango_font *pf = dynamic_cast<Pango_font *> (orig_))
}
Box
-Modified_font_metric::text_dimension (std::string text) const
+Modified_font_metric::text_dimension (string text) const
{
- SCM stext = scm_makfrom0str (text.c_str ());
- Box b = lookup_tex_text_dimension (orig_, stext);
- if (!b[Y_AXIS].is_empty ())
+ SCM stext = ly_string2scm (text);
+
+ Box b;
+ if (get_output_backend_name () == "tex")
{
- b.scale (magnification_);
- return b;
- }
+ b = lookup_tex_text_dimension (orig_, stext);
+
+ if (!b[Y_AXIS].is_empty ())
+ {
+ b.scale (magnification_);
+ return b;
+ }
- if (output_backend_global == "tex")
- {
b = tex_kludge (text);
return b;
}
return orig_->sub_fonts ();
}
-std::string
+string
Modified_font_metric::font_name () const
{
return original_font ()->font_name ();