Rietveld Code Review Tool
Help | Bug tracker | Discussion group | Source code | Sign in
(1160)

Unified Diff: scm/beam-settings.scm

Issue 88155: New format for autobeaming rules (Closed)
Patch Set: Release candidate Created 14 years, 8 months ago
Use n/p to move between diff chunks; N/P to move between comments. Please Sign in to add in-line comments.
Jump to:
View side-by-side diff with in-line comments
Download patch
« no previous file with comments | « scm/auto-beam.scm ('k') | scm/c++.scm » ('j') | no next file with comments »
Expand Comments ('e') | Collapse Comments ('c') | Show Comments Hide Comments ('s')
Index: scm/beam-settings.scm
diff --git a/scm/beam-settings.scm b/scm/beam-settings.scm
new file mode 100644
index 0000000000000000000000000000000000000000..eaa9c24e384f1808ee24f29c51ac01c4742cf424
--- /dev/null
+++ b/scm/beam-settings.scm
@@ -0,0 +1,228 @@
+;;;; default-beam-settings.scm -- Default auto-beam and subdivide-beam settings
+;;;;
+;;;; source file of the GNU LilyPond music typesetter
+;;;;
+;;;; (c) 2009 Carl Sorensen <c_sorensen@byu.edu>
+
+;;; specify default beaming rules
+
+;;; format:
+;;;
+;;; alist of
+;;; ((time-signature function) . (beam-type . grouping)) entries
+;;;
+;;; where
+;;;
+;;; time-signature = time signature fraction (pair of numbers, (4 .4) )
+;;; function = 'end or 'subdivide (possibly implement 'begin in the future)
+;;; beam-type = '* or (numerator . denominator); e.g. (1 . 16)
+;;; NOTE: numerator is kept in beam-type because of
+;;; tuplets, e.g. (2 . 24) = (2 . 3) * (1 . 8)
+;;; for eighth-note triplets.
+;;; grouping = a list of groups, in units of time signature denominator
+;;; (for default rules) or beam-type (for explicit rules)
+;;;
+
+(define-public default-beam-settings
+ `(
+ ;; in 2 2 time:
+ ;; default: end beams on 1 2 note boundaries
+ ;; end beams with 32nd notes each 1 4 beat
+ (((2 . 2) end) .
+ ((* . (1 1))
+ ((1 . 32) . (8 8 8 8))))
+
+ ;; in 2 4, 2 8 and 2 16 time:
+ ;; default: end beams on beats
+ (((2 . 4) end) . ((* . (1 1))))
+ (((2 . 8) end) . ((* . (1 1))))
+ (((2 . 16) end) . ((* . (1 1))))
+
+ ;; in 3 2 time:
+ ;; default: end beams on beats
+ ;; end beams with 32nd notes each 1 4 beat
+ (((3 . 2) end) .
+ ((* . (1 1 1))
+ ((1 . 32) . (8 8 8 8 8 8))))
+
+ ;; in 3 4 time:
+ ;; default: end beams on beats
+ ;; group 1/8 note beams on measure
+ (((3 . 4) end) .((* . (3))
+ ((1 16) . (4 4 4))
+ ((1 32) . (8 8 8))
+ ((1 64) . (16 16 16))
+ ((1 128) . (32 32 32))))
+
+ ;; in 3 8 and 3 16 time time:
+ ;; default: group on 3
+ (((3 . 8) end) . ((* . (3))))
+ (((3 . 16) end) . ((* . (3))))
+
+ ;; in 4 2 time:
+ ;; default: end beams on beats
+ ;; end beams with 16th notes each 1 4 beat
+ ;; end beams with 32nd notes each 1 8 beat
+ (((4 . 2) end) .
+ ((* . (1 1 1 1))
+ ((1 . 16) . (4 4 4 4 4 4 4 4))
+ ((1 . 32) . (4 4 4 4
+ 4 4 4 4
+ 4 4 4 4
+ 4 4 4 4))))
+
+ ;; in 4 4 (common) time:
+ ;; default: end beams on beats
+ ;; use beatLength for all except 32nd notes:
+ ;; end beams with 32nd notes each 1 8 beat
+ (((4 . 4) end) .
+ ((* . (2 2))
+ ((1 . 32) . (4 4 4 4
+ 4 4 4 4))))
+
+ ;; in 4 8 time:
+ ;; default: group on 1 4 notes
+ (((4 . 8) end) . ((* . (2 2))))
+
+ ;; in 4 16 time:
+ ;; default: group on beats
+ (((4 . 16) end) . ((* . (1 1 1 1))))
+
+ ;; in 6 4 time:
+ ;; default group at 3 4
+ ;; end beams with 16th or 32nd notes each 1 4 beat
+ (((6 . 4) end) .
+ ((* . (3 3))
+ ((1 . 16) . (4 4 4 4 4 4))
+ ((1 . 32) . (8 8 8 8 8 8))))
+
+ ;; in 6 8 time:
+ ;; default: group at 3 8
+ ;; end beams with 32nd notes each 1 8 beat
+ (((6 . 8) end) .
+ ((* . (3 3))
+ ((6 . 8) . (4 4 4 4 4 4))))
+
+ ;; in 6 16 time:
+ ;; default: group at 3 16
+ (((6 . 16) end) . ((* . (3 3))))
+
+ ;; in 9 4 time:
+ ;; default: group at 3 4
+ ;; end beams with 16th or 32nd notes each 1 4 beat
+ (((9 . 4) end) .
+ ((* . (3 3 3))
+ ((1 . 16) . (4 4 4 4 4 4 4 4 4))
+ ((1 . 32) . (8 8 8 8 8 8 8 8 8))))
+
+ ;; in 9 8 time:
+ ;; default: group at 3 8
+ ;; use beatGrouping for all except 32nd notes
+ ;; end beams with 32nd notes each 1 8 beat
+ (((9 . 8) end) .
+ ((* . (3 3 3))
+ ((1 . 32) . (4 4 4 4 4 4 4 4 4))))
+
+ ;; in 9 16 time
+ ;; default: group at 3 8
+ (((9 . 16) end) . ((* . (3 3 3))))
+
+ ;; in 12 4 time:
+ ;; default: group at 3 4
+ ;; end beams with 16th or 32nd notes each 1 4 beat
+ (((12 . 4) end) .
+ ((* . (3 3 3 3))
+ ((1 . 16) . (4 4 4 4 4 4 4 4 4 4 4 4 4))
+ ((12 . 4) . (8 8 8 8 8 8 8 8 8 8 8 8 8))))
+
+ ;; in 12 8 time:
+ ;; default: group at 3 8
+ ;; end beams with 32nd notes each 1 8 beat
+ (((12 . 8) end) .
+ ((* . (3 3 3 3))
+ ((1 . 32) . (4 4 4 4 4 4 4 4 4 4 4 4 4))))
+
+ ;; in 12 16 time:
+ ;; default: group at 3 16
+ (((12 . 16) end) . ((* . (3 3 3 3))))
+
+ ;; in 5 8 time:
+ ;; default: group (3 2)
+ (((5 . 8) end) . ((* . (3 2))))
+
+ ;; in 8 8 time:
+ ;; default: group (3 3 2)
+ (((8 . 8) end) . ((* . (3 3 2))))
+ )) ; end of alist definition
+
+;;; Functions for overriding beam settings
+;;;
+
+(define (overridden-property-alist context property setting value)
+ "Return an alist containing the current @{context} value of
+@code{property} overriden by @code{(setting . value)}. "
+ (cons (cons setting value) (ly:context-property context property)))
+
+(define-public (override-property-setting context property setting value)
+ "Like the C++ code that executes \\override, but without type
+checking. "
+ (ly:context-set-property!
+ context property
+ (overridden-property-alist context property setting value)))
+
+(define (revert-property-setting context property setting)
+ "Like the C++ code that executes \revert, but without type
+checking. "
+
+ (define (revert-member alist entry new)
+ "Return ALIST, with ENTRY removed. ALIST is not modified, instead
+a fresh copy of the list-head is made."
+ (cond
+ ((null? alist) new)
+ ((equal? (car alist) entry) (revert-member (cdr alist) entry new))
+ (else (revert-member (cdr alist) entry (cons (car alist) new)))))
+
+ (ly:context-set-property!
+ context property
+ (revert-member (ly:context-property context property) setting '())))
+
+(define-public (override-beam-setting
+ time-signature rule-type rule . rest)
+ "Override the beam settings for the context in @var{rest},
+for @var{time-signature} and @var{rule-type}, with the
+new rule alist @var{rule}. "
+ (define (make-setting c)
+ (let ((new-settings
+ (overridden-property-alist
+ c
+ 'beamSettings
+ (list time-signature rule-type)
+ rule)))
+ (ly:context-set-property! c 'beamSettings new-settings)))
+
+ (let ((music-to-export
+ (context-spec-music
+ (make-apply-context make-setting)
+ (if (and (pair? rest) (symbol? (car rest)))
+ (car rest)
+ 'Voice))))
+ (ly:export music-to-export)))
+
+(define-public (score-override-beam-setting
+ time-signature rule-type rule)
+ (override-beam-setting
+ time-signature rule-type rule 'Score))
+
+(define-public (revert-beam-setting
+ time-signature rule-type . rest)
+ (ly:export
+ (context-spec-music
+ (make-apply-context
+ (lambda (c)
+ (revert-property-setting
+ c
+ 'beamSettings
+ (list time-signature rule-type))))
+ (if (and (pair? rest) (symbol? (car rest)))
+ (car rest)
+ 'Voice))))
« no previous file with comments | « scm/auto-beam.scm ('k') | scm/c++.scm » ('j') | no next file with comments »

Powered by Google App Engine
RSS Feeds Recent Issues | This issue
This is Rietveld f62528b