X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fcustos.cc;h=37aeb66f6b9202ed8db498f7dd5e3139fc547837;hb=5d84bfad4626892bcffd05adcced53c8a2329047;hp=79ff6b33f6108c208060ae8ceb549611177c3022;hpb=e520d35df0268554fabe100fcdbe26946c693031;p=lilypond.git diff --git a/lily/custos.cc b/lily/custos.cc index 79ff6b33f6..37aeb66f6b 100644 --- a/lily/custos.cc +++ b/lily/custos.cc @@ -1,180 +1,103 @@ /* - custos.cc -- implement Custos + This file is part of LilyPond, the GNU music typesetter. - source file of the GNU LilyPond music typesetter + Copyright (C) 2000--2015 Juergen Reuter - (C) 2000 Juergen Reuter -*/ - -/* TODO: - - - merge create_ledger_line () and Note_head::create_ledger_line () - + 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. - - rewrite create_ledger_line () to support short and thin ledger lines + 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. - - do not show if a clef change immediately follows in the next line + You should have received a copy of the GNU General Public License + along with LilyPond. If not, see . +*/ - - make custos direction control configurable +/* TODO: - - decide: do or do not print custos if the next line starts with a rest +- do not show if a clef change immediately follows in the next line +- decide: do or do not print custos if the next line starts with a rest */ +#include +#include // rint +using namespace std; -#include -#include "staff-symbol-referencer.hh" #include "custos.hh" -#include "molecule.hh" -#include "debug.hh" -#include "note-head.hh" -#include "item.hh" +#include "direction.hh" #include "font-interface.hh" +#include "international.hh" +#include "item.hh" +#include "note-head.hh" +#include "staff-symbol-referencer.hh" +#include "warn.hh" -/* - This function is a patched and hopefully much more understandable - rewrite of Note_head::ledger_line (). It still has some - bugs/limitations: - * - (1) The term thick/2 probably should be thick*2 (probably a bug, - see the code below). - * - (2) The minimal width of the resulting ledger line equals the width - of the noteheads-ledgerending symbol (a limitation): - * - (---- left ledger ending - ----) right ledger ending - (---) resulting ledger line (just ok) - * - If x_extent ("xwid" in Note_head) is less than the width of the - ledger ending, the width of the total ledger line is even *greater* - than the width of a ledger ending (I would call this a bug). In - the below code, the condition "if (x_extent.length () > - slice_x_extent.length ())" avoids outputting the left ending in such - cases (rather a silly workaround, but better than nothing). - * - (---- left ledger ending - ----) right ledger ending - (-) desired ledger line - ------- resulting ledger line (too long) - ----) resulting ledger line with additional "if" (still too long) - * - The algorithm works properly only for a desired ledger line width - greater than the width of the ledger ending: - * - (---- left ledger ending - ----) right ledger ending - (------) desired ledger line - (------) resulting ledger line (ok) - * - * (3) The thickness of the ledger line is fixed (limitation). - */ -Molecule -Custos::create_ledger_line (Interval x_extent, Grob *me) +MAKE_SCHEME_CALLBACK (Custos, print, 1); +SCM +Custos::print (SCM smob) { - Molecule line; - Molecule slice = Font_interface::get_default_font (me)->find_by_name ("noteheads-ledgerending"); - Interval slice_x_extent = slice.extent (X_AXIS); - Interval slice_y_extent = slice.extent (Y_AXIS); - - // Create left ending of ledger line. - Molecule left_ending = slice; - left_ending.translate_axis (x_extent[LEFT] - slice_x_extent[LEFT], X_AXIS); - if (x_extent.length () > slice_x_extent.length ()) - line.add_molecule (left_ending); - - // Create right ending of ledger line. - Molecule right_ending = slice; - right_ending.translate_axis (x_extent[RIGHT] - slice_x_extent[RIGHT], - X_AXIS); - line.add_molecule (right_ending); - - // Fill out space between left and right ending of ledger line by - // lining up a series of slices in a row between them. - Molecule fill_out_slice = left_ending; - Real thick = slice_y_extent.length (); - Real delta_x = slice_x_extent.length () - thick; - Real xpos = x_extent [LEFT] + 2*delta_x + thick/2; // TODO: check: thick*2? - while (xpos <= x_extent[RIGHT]) - { - fill_out_slice.translate_axis (delta_x, X_AXIS); - line.add_molecule (fill_out_slice); - xpos += delta_x; - } + Item *me = (Item *)unsmob (smob); - return line; -} + SCM scm_style = me->get_property ("style"); + string style; + if (scm_is_symbol (scm_style)) + style = ly_symbol2string (scm_style); + else + style = "mensural"; + + /* + * Shall we use a common custos font character regardless if on + * staffline or not, or shall we use individual font characters + * for both cases? + */ + bool adjust = true; + + int neutral_pos = robust_scm2int (me->get_property ("neutral-position"), 0); + Direction neutral_direction + = to_dir (me->get_property ("neutral-direction")); + + int pos = Staff_symbol_referencer::get_rounded_position (me); + + string font_char = "custodes." + style + "."; + if (pos < neutral_pos) + font_char += "u"; + else if (pos > neutral_pos) + font_char += "d"; + else if (neutral_direction == UP) + font_char += "u"; + else if (neutral_direction == DOWN) + font_char += "d"; + else // auto direction; not yet supported -> use "d" + font_char += "d"; + + if (adjust) + font_char += Staff_symbol_referencer::on_line (me, pos) ? "1" : "0"; + else + font_char += "2"; -void -Custos::add_streepjes (Grob* me, - int pos, - int interspaces, - Molecule* custos_p_) -{ - // TODO: This is (almost) duplicated code (see - // Note_head::brew_molecule). Junk me. - Real inter_f = Staff_symbol_referencer::staff_space (me)/2; - int streepjes_i = abs (pos) < interspaces - ? 0 - : (abs (pos) - interspaces) /2; - if (streepjes_i) + Stencil stencil + = Font_interface::get_default_font (me)->find_by_name (font_char); + if (stencil.is_empty ()) { - Direction dir = (Direction)sign (pos); - Molecule ledger_line (create_ledger_line (custos_p_->extent (X_AXIS), - me)); - ledger_line.set_empty (true); - Real offs = (Staff_symbol_referencer::on_staffline (me)) - ? 0.0 - : -dir * inter_f; - for (int i = 0; i < streepjes_i; i++) - { - Molecule streep (ledger_line); - streep.translate_axis (-dir * inter_f * i * 2 + offs, - Y_AXIS); - custos_p_->add_molecule (streep); - } + me->warning (_f ("custos `%s' not found", font_char)); + return SCM_EOL; } -} -MAKE_SCHEME_CALLBACK (Custos,brew_molecule,1); -SCM -Custos::brew_molecule (SCM smob) -{ - Item *me = (Item *)unsmob_grob (smob); - SCM scm_style = me->get_grob_property ("style"); - - if (gh_symbol_p (scm_style)) - { - String style = ly_scm2string (scm_symbol_to_string (scm_style)); - - String idx = "custodes-"; - int interspaces = Staff_symbol_referencer::line_count (me)-1; - - Real pos = Staff_symbol_referencer::position_f (me); - - if (pos > (interspaces/2 + 1)) // TODO: make this rule configurable - idx += "r"; - idx += style; - Molecule molecule - = Font_interface::get_default_font (me)->find_by_name (idx); - if (molecule.empty_b ()) - { - String message = "unknown custos style: `" + style + "'"; - warning (_ (message.ch_C ())); - return SCM_EOL; - } - else - { - add_streepjes (me, (int)pos, interspaces, &molecule); - return molecule.smobbed_copy (); - } - } - else - return SCM_EOL; + return stencil.smobbed_copy (); } -bool -Custos::has_interface (Grob*m) -{ - return m && m->has_interface (ly_symbol2scm ("custos-interface")); -} +ADD_INTERFACE (Custos, + "A custos object. @code{style} can have four valid values:" + " @code{mensural}, @code{vaticana}, @code{medicaea}, and" + " @code{hufnagel}. @code{mensural} is the default style.", + + /* properties */ + "style " + "neutral-position " + "neutral-direction " + );