X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fpaper-def.cc;h=3d473f202de9818bb54e48fb5c06bd960033d8ef;hb=ba9a8dc730bb3a681455150bc0a3eef0976523af;hp=20e412dde81f1da2260c1932079e58540b9f4da7;hpb=69b9cead5afe7164b9053d26eba582fec3825ef8;p=lilypond.git diff --git a/lily/paper-def.cc b/lily/paper-def.cc index 20e412dde8..3d473f202d 100644 --- a/lily/paper-def.cc +++ b/lily/paper-def.cc @@ -1,194 +1,124 @@ /* - paper-def.cc -- implement Paper_def + This file is part of LilyPond, the GNU music typesetter. - source file of the GNU LilyPond music typesetter + Copyright (C) 2004--2015 Han-Wen Nienhuys - (c) 1997--1998 Han-Wen Nienhuys -*/ + LilyPond is free software: you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation, either version 3 of the License, or + (at your option) any later version. -#include -#include "string.hh" -#include "assoc.hh" -#include "misc.hh" -#include "paper-def.hh" -#include "debug.hh" -#include "lookup.hh" -#include "dimen.hh" -#include "assoc-iter.hh" -#include "score-grav.hh" -#include "p-score.hh" -#include "main.hh" - - -Paper_def::Paper_def() -{ - lookup_p_ = 0; - real_vars_p_ = new Dictionary; -} + LilyPond is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. -Paper_def::~Paper_def() -{ - delete real_vars_p_; - delete lookup_p_; -} - -Paper_def::Paper_def (Paper_def const&s) - : Music_output_def (s) -{ - lookup_p_ = s.lookup_p_? new Lookup (*s.lookup_p_) : 0; - lookup_p_->paper_l_ = this; - real_vars_p_ = new Dictionary (*s.real_vars_p_); -} + You should have received a copy of the GNU General Public License + along with LilyPond. If not, see . +*/ -void -Paper_def::set_var (String s, Real r) -{ - real_vars_p_->elem (s) = r; -} +#include "dimensions.hh" +#include "libc-extension.hh" +#include "output-def.hh" +#include "modified-font-metric.hh" +#include "pango-font.hh" +#include "all-font-metrics.hh" Real -Paper_def::get_var (String s) const +output_scale (Output_def *od) { - if (! real_vars_p_->elt_b (s)) - error (_("unknown paper variable `") + s+"'"); - return real_vars_p_->elem (s); + return scm_to_double (od->lookup_variable (ly_symbol2scm ("output-scale"))); } -Interval -Paper_def::line_dimensions_int (int n) const +SCM +get_font_table (Output_def *def) { - if (!shape_int_a_.size ()) - if (n) - return Interval (0, linewidth_f ()); - else - return Interval (get_var ("indent"), linewidth_f ()); - - if (n >= shape_int_a_.size ()) - n = shape_int_a_.size () -1; - - return shape_int_a_[n]; + SCM font_table = def->lookup_variable (ly_symbol2scm ("scaled-fonts")); + if (!to_boolean (scm_hash_table_p (font_table))) + { + font_table = scm_c_make_hash_table (11); + def->set_variable (ly_symbol2scm ("scaled-fonts"), font_table); + } + return font_table; } -Real -Paper_def::linewidth_f () const +SCM +get_pango_font_table (Output_def *def) { - return get_var ("linewidth"); + SCM font_table = def->lookup_variable (ly_symbol2scm ("pango-fonts")); + if (!to_boolean (scm_hash_table_p (font_table))) + { + font_table = scm_c_make_hash_table (11); + def->set_variable (ly_symbol2scm ("pango-fonts"), font_table); + } + return font_table; } -Real -Paper_def::duration_to_dist (Moment d,Real k) const +/* TODO: should add nesting for Output_def here too. */ +Font_metric * +find_scaled_font (Output_def *mod, Font_metric *f, Real m) { - if (get_var("geometric")) - return geometric_spacing(d); - return arithmetic_spacing(d,k); -} + if (mod->parent_) + return find_scaled_font (mod->parent_, f, m); + Real lookup_mag = m / output_scale (mod); -/** - Get the measure wide constant for arithmetic. + SCM font_table = get_font_table (mod); + SCM sizes = scm_hashq_ref (font_table, f->self_scm (), SCM_EOL); + SCM handle = scm_assoc (scm_from_double (lookup_mag), sizes); + if (scm_is_pair (handle)) + return Font_metric::unsmob (scm_cdr (handle)); - @see - John S. Gourlay. ``Spacing a Line of Music,'' Technical Report - OSU-CISRC-10/87-TR35, Department of Computer and Information Science, - The Ohio State University, 1987. + SCM val = Modified_font_metric::make_scaled_font_metric (f, lookup_mag); - */ -Real -Paper_def::arithmetic_constant(Moment d) const -{ - return get_var("arithmetic_basicspace") - log_2(Moment(1,8) unprotect (); + scm_hashq_set_x (font_table, f->self_scm (), sizes); + return Font_metric::unsmob (val); } -Real -Paper_def::geometric_spacing(Moment d) const +Font_metric * +find_pango_font (Output_def *layout, SCM descr, Real factor) { - Real dur_f = (d) ?pow (get_var ("geometric"), log_2(d)) : 0; - return get_var ("basicspace") + get_var ("unitspace") * dur_f; -} + if (layout->parent_) + return find_pango_font (layout->parent_, descr, factor); -void -Paper_def::set (Lookup*l) -{ - assert (l != lookup_p_); - delete lookup_p_; - lookup_p_ = l; - lookup_p_->paper_l_ = this; -} + SCM table = get_pango_font_table (layout); + SCM sizes = scm_hash_ref (table, descr, SCM_EOL); + SCM size_key = scm_from_double (factor); + SCM handle = scm_assoc (size_key, sizes); + if (scm_is_pair (handle)) + return Font_metric::unsmob (scm_cdr (handle)); -Real -Paper_def::interline_f() const -{ - return get_var ("interline"); -} + PangoFontDescription *description + = pango_font_description_from_string (scm_i_string_chars (descr)); + pango_font_description_set_size + (description, + gint (my_round (factor * pango_font_description_get_size (description)))); -Real -Paper_def::rule_thickness() const -{ - return get_var ("rulethickness"); -} + Font_metric *fm = all_fonts_global->find_pango_font (description, + output_scale (layout)); -Real -Paper_def::interbeam_f() const -{ - return get_var ("interbeam"); -} -Real -Paper_def::internote_f() const -{ - return interline_f() / 2; -} + pango_font_description_free (description); -Real -Paper_def::note_width() const -{ - return get_var ("notewidth"); -} + sizes = scm_acons (size_key, fm->self_scm (), sizes); + scm_hash_set_x (table, descr, sizes); -void -Paper_def::print() const -{ -#ifndef NPRINT - Music_output_def::print (); - DOUT << "Paper {"; - lookup_p_->print(); - for (Assoc_iter i (*real_vars_p_); i.ok(); i++) - { - DOUT << i.key() << "= " << i.val () << "\n"; - } - DOUT << "}\n"; -#endif + return fm; } -Lookup const * -Paper_def::lookup_l() +/* TODO: this is a nasty interface. During formatting, + the Output_def should be scaled to the output_scale_ + specified in the toplevel Output_def. */ +Output_def * +scale_output_def (Output_def *o, Real amount) { - assert (lookup_p_); - return lookup_p_; -} - -IMPLEMENT_IS_TYPE_B1(Paper_def, Music_output_def); + SCM proc = ly_lily_module_constant ("scale-layout"); + SCM new_pap = scm_call_2 (proc, o->self_scm (), scm_from_double (amount)); -String -Paper_def::TeX_output_settings_str () const -{ - String s("\n "); - for (Assoc_iter i (*real_vars_p_); i.ok(); i++) - s += String ("\\def\\mudelapaper") + i.key () + "{" + i.val () + "}\n"; - s += lookup_p_->texsetting + "%(Tex id)\n"; - return s; + o = Output_def::unsmob (new_pap); + o->protect (); + return o; } -int Paper_def::default_count_i_ = 0; - -int -Paper_def::get_next_default_count () const -{ - return default_count_i_ ++; -}