/*
- 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 <reuter@ipd.uka.de>
- (c) 2000--2004 Juergen Reuter <reuter@ipd.uka.de>
+ 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.
+
+ 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.
+
+ You should have received a copy of the GNU General Public License
+ along with LilyPond. If not, see <http://www.gnu.org/licenses/>.
*/
/* TODO:
- - 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
+- 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 <cstdio>
+#include <cmath> // rint
+using namespace std;
-#include <stdio.h>
+#include "custos.hh"
#include "direction.hh"
+#include "font-interface.hh"
+#include "international.hh"
+#include "item.hh"
+#include "note-head.hh"
#include "staff-symbol-referencer.hh"
-#include "custos.hh"
-#include "stencil.hh"
#include "warn.hh"
-#include "note-head.hh"
-#include "item.hh"
-#include "font-interface.hh"
-#include "math.h" // rint
-MAKE_SCHEME_CALLBACK (Custos,print,1);
+MAKE_SCHEME_CALLBACK (Custos, print, 1);
SCM
Custos::print (SCM smob)
{
- Item *me = (Item *)unsmob_grob (smob);
+ Item *me = (Item *)unsmob<Grob> (smob);
SCM scm_style = me->get_property ("style");
- String style;
- if (gh_symbol_p (scm_style))
- {
- style = ly_symbol2string (scm_style);
- }
+ string style;
+ if (scm_is_symbol (scm_style))
+ style = ly_symbol2string (scm_style);
else
- {
- style = "mensural";
- }
+ 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
- = to_boolean (me->get_property ("adjust-if-on-staffline"));
-
- int neutral_pos;
- SCM ntr_pos = me->get_property ("neutral-position");
- if (gh_number_p (ntr_pos))
- neutral_pos = gh_scm2int (ntr_pos);
- else
- neutral_pos = 0;
+ bool adjust = true;
- Direction neutral_direction =
- to_dir (me->get_property ("neutral-direction"));
+ int neutral_pos = robust_scm2int (me->get_property ("neutral-position"), 0);
+ Direction neutral_direction
+ = to_dir (me->get_property ("neutral-direction"));
- int pos = (int)rint (Staff_symbol_referencer::get_position (me));
- int sz = Staff_symbol_referencer::line_count (me)-1;
+ int pos = Staff_symbol_referencer::get_rounded_position (me);
- String font_char = "custodes-" + style + "-";
+ string font_char = "custodes." + style + ".";
if (pos < neutral_pos)
font_char += "u";
else if (pos > neutral_pos)
font_char += "d";
if (adjust)
- {
- font_char += (((pos ^ sz) & 0x1) == 0) ? "1" : "0";
- }
+ font_char += Staff_symbol_referencer::on_line (me, pos) ? "1" : "0";
else
- {
- font_char += "2";
- }
+ font_char += "2";
Stencil stencil
= Font_interface::get_default_font (me)->find_by_name (font_char);
me->warning (_f ("custos `%s' not found", font_char));
return SCM_EOL;
}
- else
- {
- // add ledger lines
- int pos = (int)rint (Staff_symbol_referencer::get_position (me));
- int interspaces = Staff_symbol_referencer::line_count (me)-1;
- if (abs (pos) - interspaces > 1)
- {
- Stencil ledger_lines =
- Note_head::brew_ledger_lines (me, pos, interspaces,
- stencil.extent (X_AXIS), 0, true);
- stencil.add_stencil (ledger_lines);
- }
- return stencil.smobbed_copy ();
- }
+
+ return stencil.smobbed_copy ();
}
-ADD_INTERFACE (Custos, "custos-interface",
- "A custos object.",
- "style adjust-if-on-staffline neutral-direction neutral-position");
+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 "
+ );