2 This file is part of LilyPond, the GNU music typesetter.
4 Copyright (C) 1999--2015 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/>.
22 #include "modified-font-metric.hh"
23 #include "pango-font.hh"
27 #include "program-option.hh"
29 Preinit_Modified_font_metric::Preinit_Modified_font_metric ()
34 Modified_font_metric::Modified_font_metric (Font_metric *fm,
37 magnification_ = magnification;
39 SCM desc = fm->description_;
41 Real total_mag = magnification * scm_to_double (scm_cdr (desc));
44 description_ = scm_cons (scm_car (desc), scm_from_double (total_mag));
49 Modified_font_metric::make_scaled_font_metric (Font_metric *fm, Real scaling)
51 Modified_font_metric *sfm = new Modified_font_metric (fm, scaling);
52 return sfm->self_scm ();
56 Modified_font_metric::design_size () const
58 return orig_->design_size ();
62 Modified_font_metric::get_indexed_char_dimensions (vsize i) const
64 Box b = orig_->get_indexed_char_dimensions (i);
65 b.scale (magnification_);
70 Modified_font_metric::get_magnification () const
72 return magnification_;
76 Modified_font_metric::count () const
78 return orig_->count ();
82 Modified_font_metric::attachment_point (const string &s) const
84 Offset o = orig_->attachment_point (s);
85 return o * magnification_;
89 Modified_font_metric::get_indexed_wxwy (vsize k) const
91 Offset o = orig_->get_indexed_wxwy (k);
92 return o * magnification_;
96 Modified_font_metric::name_to_index (string s) const
98 return orig_->name_to_index (s);
102 Modified_font_metric::index_to_charcode (vsize i) const
104 return orig_->index_to_charcode (i);
108 Modified_font_metric::derived_mark () const
111 scm_gc_mark (orig_->self_scm ());
115 Modified_font_metric::text_stencil (Output_def *state,
116 const string &text, bool feta) const
119 if (Pango_font *pf = dynamic_cast<Pango_font *> (orig_))
121 Stencil stc = pf->text_stencil (state, text, feta);
123 Box b = stc.extent_box ();
125 b.scale (magnification_);
126 Stencil scaled (b, stc.expr ());
130 return Font_metric::text_stencil (state, text, feta);
134 Modified_font_metric::original_font () const
140 Modified_font_metric::sub_fonts () const
142 return orig_->sub_fonts ();
146 Modified_font_metric::font_name () const
148 return original_font ()->font_name ();