-;;;
-;;; auto-beam.scm -- Auto-beam-engraver settings
-;;;
-;;; source file of the GNU LilyPond music typesetter
-;;;
-;;; (c) 2000--2003 Jan Nieuwenhuizen <janneke@gnu.org>
-;;;
+;;;; auto-beam.scm -- Auto-beam-engraver settings
+;;;;
+;;;; source file of the GNU LilyPond music typesetter
+;;;;
+;;;; (c) 2000--2004 Jan Nieuwenhuizen <janneke@gnu.org>
;;; specify generic beam begin and end times
;;; where
;;;
;;; function = begin or end
-;;; shortest-duration-in-beam = numerator denominator; eg: 1 16
-;;; time-signature = numerator denominator, eg: 4 4
+;;; shortest-duration-in-beam = numerator denominator; e.g.: 1 16
+;;; time-signature = numerator denominator, e.g.: 4 4
;;;
;;; unspecified or wildcard entries for duration or time-signature
;;; are given by * *
(define (override-property-setting context context-prop setting value)
- "Like the C++ code that executes \override, but without type
+ "Like the C++ code that executes \\override, but without type
checking. "
- (ly:set-context-property! context context-prop
+ (ly:context-set-property! context context-prop
(cons (cons setting value)
- (ly:get-context-property context context-prop)
+ (ly:context-property context context-prop)
)
)
)
- (ly:set-context-property!
+ (ly:context-set-property!
context context-prop
- (revert-assoc (ly:get-context-property context context-prop)
+ (revert-assoc (ly:context-property context context-prop)
setting))
)
-(define-public (override-auto-beam-setting setting num den)
+(define-public (override-auto-beam-setting setting num den . rest)
(ly:export
(context-spec-music
(make-apply-context (lambda (c)
c 'autoBeamSettings
setting (ly:make-moment num den))
))
- "Voice")
- ))
+ (if (and (pair? rest) (symbol? (car rest)))
+ (car rest)
+ 'Voice)
+ )))
-(define-public (revert-auto-beam-setting setting)
+(define-public (revert-auto-beam-setting setting . rest)
(ly:export
(context-spec-music
(make-apply-context (lambda (c)
(revert-property-setting
c 'autoBeamSettings
setting)))
-
- "Voice")))
-
-
+ (if (and (pair? rest) (symbol? (car rest)))
+ (car rest)
+ 'Voice))))