ly:grob-default-font (changed from get-default-font).
* lily/axis-group-interface-scheme.cc (LY_DEFINE): new file.
/*
- axis-group-interface-scheme.cc -- implement Axis_group_interface
+ axis-group-interface-scheme.cc -- implement Axis_group_interface bindings
source file of the GNU LilyPond music typesetter
+++ /dev/null
-/*
- font-interface-scheme.cc -- implement Font_interface bindings
-
- source file of the GNU LilyPond music typesetter
-
- (c) 2000--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
-*/
-
-
-#include "font-interface.hh"
-
-#include "grob.hh"
-
-
-LY_DEFINE (ly_grob_default_font, "ly:grob-default-font",
- 1, 0, 0, (SCM grob),
- "Return the default font for grob @var{gr}.")
-{
- Grob *gr = unsmob_grob (grob);
- SCM_ASSERT_TYPE (gr, grob, SCM_ARG1, __FUNCTION__, "grob");
-
- return Font_interface::get_default_font (gr)->self_scm ();
-}
Han-Wen Nienhuys <hanwen@cs.uu.nl>
*/
+#include "grob.hh"
+
#include "warn.hh"
#include "item.hh"
#include "output-def.hh"
#include "system.hh"
+#include "font-interface.hh"
+
LY_DEFINE (ly_grob_set_property_x, "ly:grob-set-property!",
3, 0, 0, (SCM grob, SCM sym, SCM val),
SCM_ASSERT_TYPE (me, grob, SCM_ARG1, __FUNCTION__, "Grob");
return me->get_key ()->self_scm ();
}
+
+
+
+LY_DEFINE (ly_grob_default_font, "ly:grob-default-font",
+ 1, 0, 0, (SCM grob),
+ "Return the default font for grob @var{gr}.")
+{
+ Grob *gr = unsmob_grob (grob);
+ SCM_ASSERT_TYPE (gr, grob, SCM_ARG1, __FUNCTION__, "grob");
+
+ return Font_interface::get_default_font (gr)->self_scm ();
+}
(define-public (format-mark-box-barnumbers mark context)
(make-bold-markup (make-box-markup
(number->string (ly:context-property context 'currentBarNumber)))))
-
-(define-public (format-pitched-trill-head pitch do-print-accidental context)
- (make-override-markup
- '(word-space . 0.0)
- (make-line-markup
- (append
- (list
- (make-musicglyph-markup "accidentals.leftparen"))
- (if do-print-accidental
- (list (make-musicglyph-markup
- (string-append "accidentals."
- (number->string (ly:pitch-alteration pitch))))
- (make-hspace-markup 0.2))
- '())
-
- (list
- (make-musicglyph-markup "noteheads.s2")
- (make-musicglyph-markup "accidentals.rightparen"))
- ))))