X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fmensural-ligature.cc;h=c327da0b551d3c7455302b5db73e1d20c7c58fca;hb=455116c39466c026839f1bf728c05ecaa6015a9c;hp=add51960b9b2a3fe990b43cc0ddecc195eec33b1;hpb=108cf0e8c08c8e15e2a800feb161cfad9057daa8;p=lilypond.git diff --git a/lily/mensural-ligature.cc b/lily/mensural-ligature.cc index add51960b9..c327da0b55 100644 --- a/lily/mensural-ligature.cc +++ b/lily/mensural-ligature.cc @@ -3,19 +3,19 @@ source file of the GNU LilyPond music typesetter - (c) 2002--2005 Juergen Reuter , + (c) 2002--2006 Juergen Reuter , Pal Benko */ -#include - #include "mensural-ligature.hh" -#include "item.hh" + #include "font-interface.hh" +#include "international.hh" +#include "item.hh" #include "lookup.hh" -#include "staff-symbol-referencer.hh" #include "note-head.hh" #include "output-def.hh" +#include "staff-symbol-referencer.hh" #include "warn.hh" /* @@ -110,7 +110,7 @@ internal_brew_primitive (Grob *me) if (primitive & MLP_FLEXA) { - delta_pitch = robust_scm2int (me->get_property ("delta-pitch"), + delta_pitch = robust_scm2int (me->get_property ("delta-position"), 0); width = robust_scm2double (me->get_property ("flexa-width"), 2.0 * staff_space); @@ -144,7 +144,7 @@ internal_brew_primitive (Grob *me) } Real blotdiameter - = (me->get_layout ()->get_dimension (ly_symbol2scm ("blotdiameter"))); + = (me->layout ()->get_dimension (ly_symbol2scm ("blot-diameter"))); if (primitive & MLP_STEM) { @@ -221,5 +221,12 @@ Mensural_ligature::print (SCM) ADD_INTERFACE (Mensural_ligature, "mensural-ligature-interface", "A mensural ligature", - "delta-pitch flexa-width head-width join-right-amount " // "add-join " - "ligature-primitive-callback primitive thickness"); + + "delta-position " + "flexa-width " + "head-width " + "join-right-amount " + "primitive " + "thickness" + ); +