(c) 1999--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
*/
+#include <cctype>
#include "modified-font-metric.hh"
#include "pango-font.hh"
-
-#include <cctype>
-
+#include "text-metrics.hh"
#include "warn.hh"
#include "stencil.hh"
+#include "lookup.hh"
+#include "main.hh"
Modified_font_metric::Modified_font_metric (Font_metric *fm,
- Real magnification,
- String font_encoding,
- String input_encoding)
+ Real magnification)
{
- input_encoding_ = input_encoding;
- coding_vector_ = SCM_EOL;
- coding_mapping_ = SCM_EOL;
- coding_table_ = SCM_EOL;
- coding_description_ = SCM_EOL;
magnification_ = magnification;
SCM desc = fm->description_;
description_ = scm_cons (scm_car (desc), scm_make_real (total_mag));
orig_ = fm;
-
- String metric_coding = orig_->coding_scheme ();
- if (metric_coding != "FontSpecific"
- && metric_coding != font_encoding)
- warning (_f ("conflicting metric coding (%s) and font_encoding (%s)",
- metric_coding, font_encoding));
-
- if (input_encoding_ != ""
- && input_encoding_ != "TeX"
- && input_encoding_ != "ASCII"
- && input_encoding_ != font_encoding)
- {
- coding_vector_ = scm_call_1 (ly_lily_module_constant ("get-coding-vector"),
- scm_makfrom0str (font_encoding.to_str0 ()));
-
- if (!ly_c_vector_p (coding_vector_))
- {
- programming_error ("get-coding-vector should return vector");
- coding_vector_ = scm_c_make_vector (256, ly_symbol2scm (".notdef"));
- }
-
- coding_table_ = scm_call_1 (ly_lily_module_constant ("get-coding-table"),
- scm_makfrom0str (font_encoding.to_str0 ()));
-
- coding_mapping_
- = scm_call_2 (ly_lily_module_constant ("make-encoding-mapping"),
- coding_vector_,
- coding_table_);
-
- coding_description_ = SCM_EOL;
- coding_description_
- = scm_acons (ly_symbol2scm ("input-name"),
- scm_makfrom0str (input_encoding_.to_str0 ()),
- coding_description_);
- coding_description_
- = scm_acons (ly_symbol2scm ("input-vector"),
- coding_vector_, coding_description_);
- coding_description_
- = scm_acons (ly_symbol2scm ("output-name"),
- scm_makfrom0str (orig_->coding_scheme ().to_str0 ()),
- coding_description_);
- coding_description_
- = scm_acons (ly_symbol2scm ("output-table"),
- coding_table_,
- coding_description_);
- coding_description_
- = scm_acons (ly_symbol2scm ("char-mapping"),
- coding_mapping_,
- coding_description_);
- }
}
SCM
-Modified_font_metric::make_scaled_font_metric (Font_metric *fm, Real scaling,
- SCM font_encoding,
- SCM input_encoding)
+Modified_font_metric::make_scaled_font_metric (Font_metric *fm, Real scaling)
{
- /*
- UGH.
- */
- if (scm_is_symbol (input_encoding))
- input_encoding = scm_symbol_to_string (input_encoding);
-
- String font_encoding_str = ly_symbol2string (font_encoding);
- String input_encoding_str
- = scm_is_string (input_encoding) ? ly_scm2string (input_encoding) : "";
-
- Modified_font_metric *sfm = new Modified_font_metric (fm, scaling,
- font_encoding_str,
- input_encoding_str);
+ Modified_font_metric *sfm = new Modified_font_metric (fm, scaling);
return sfm->self_scm ();
}
return orig_->index_to_ascii (k);
}
-String
-Modified_font_metric::coding_scheme () const
-{
- return input_encoding_;
-}
-
void
Modified_font_metric::derived_mark () const
{
- scm_gc_mark (coding_vector_);
- scm_gc_mark (coding_description_);
- scm_gc_mark (coding_table_);
- scm_gc_mark (coding_mapping_);
}
/* TODO: put this klutchness behind ly:option switch. */
Box b = stc.extent_box ();
b.scale (magnification_);
- return Stencil (b, stc.expr());
+ Stencil scaled(b, stc.expr());
+ return scaled;
}
return Font_metric::text_stencil (text);
return b;
}
-
-
- if (input_encoding_ == "TeX")
- b = tex_kludge (text);
- else if (input_encoding_ == "ASCII"
- || input_encoding_ == ""
- || input_encoding_ == orig_->coding_scheme ())
+ if (output_format_global == "tex")
{
- Interval ydims;
-
- Real w = 0.0;
-
- for (int i = 0; i < text.length (); i++)
- {
- Box b = get_ascii_char ((unsigned char)text[i]);
-
- w += b[X_AXIS].length ();
- ydims.unite (b[Y_AXIS]);
- }
- if (ydims.is_empty ())
- ydims = Interval (0, 0);
-
- b = Box(Interval(0,w), ydims);
+ b = tex_kludge (text);
+ return b;
}
- else
- {
- Interval ydims;
- Real w = 0.0;
-
- for (int i = 0; i < text.length (); i++)
- {
- SCM sym = scm_vector_ref (coding_vector_,
- scm_from_int((unsigned char) text[i]));
-
- Box char_box;
-
- if (!scm_is_symbol (sym))
- continue;
- char const *chars = scm_i_string_chars (scm_symbol_to_string (sym));
-
- int idx = orig_->name_to_index (chars);
- if (idx >= 0)
- char_box = orig_->get_indexed_char (idx);
-
- char_box.scale (magnification_);
- if (!char_box[X_AXIS].is_empty ())
- /* length ? */
- w += char_box[X_AXIS][RIGHT];
-
- ydims.unite (char_box[Y_AXIS]);
- }
+ Interval ydims;
- if (ydims.is_empty ())
- ydims = Interval (0, 0);
+ Real w = 0.0;
- b = Box (Interval (0, w), ydims);
+ for (int i = 0; i < text.length (); i++)
+ {
+ Box b = get_ascii_char ((unsigned char)text[i]);
+
+ w += b[X_AXIS].length ();
+ ydims.unite (b[Y_AXIS]);
}
-
+ if (ydims.is_empty ())
+ ydims = Interval (0, 0);
+
+ b = Box(Interval(0,w), ydims);
return b;
}
return orig_;
}
-
-LY_DEFINE (ly_font_encoding_alist, "ly:font-encoding-alist",
- 1, 0, 0,
- (SCM font),
- "Given the Modified_font_metric @var{font}, return an "
- "alist. Keys are input-name, input-vector, "
- "output-name, output-table, mapping.")
-{
- Modified_font_metric *fm
- = dynamic_cast<Modified_font_metric*> (unsmob_metrics (font));
-
- SCM_ASSERT_TYPE (fm, font, SCM_ARG1, __FUNCTION__, "Modified_font_metric");
- return fm->coding_description_;
-}
-
-LY_DEFINE (ly_font_encoding, "ly:font-encoding",
- 1, 0, 0,
- (SCM font),
- "Return encoding of @var{font}.")
-{
- Modified_font_metric *fm
- = dynamic_cast<Modified_font_metric*> (unsmob_metrics (font));
- SCM_ASSERT_TYPE (fm, font, SCM_ARG1, __FUNCTION__, "Modified_font_metric");
- return ly_symbol2scm (fm->original_font ()->coding_scheme ().to_str0 ());
-}
-
SCM
Modified_font_metric::sub_fonts () const
{
projects / lilypond.git / blobdiff