))
(define direction-polyphonic-grobs
- '(Tie Slur Script TextScript Stem Dots DotColumn))
+ '(Tie Rest Slur Script TextScript Stem Dots DotColumn))
(define-public (make-voice-props-set n)
(make-sequential-music
))
-(define-public (make-nonevent-skip dur)
- (let* ((m (make-music-by-name 'NonEventSkip)))
+(define-public (make-skip-music dur)
+ (let* ((m (make-music-by-name 'SkipMusic)))
(ly:set-mus-property! m 'duration dur)
m
))
(let*
(
(start (make-music-by-name 'MultiMeasureRestEvent))
- (stop (make-music-by-name 'MultiMeasureRestEvent))
- (skip ( make-music-by-name 'SkipEvent))
(ch (make-music-by-name 'BarCheck))
(ch2 (make-music-by-name 'BarCheck))
- (seq (make-music-by-name 'MultiMeasureRestMusicGroup))
+ (seq (make-music-by-name 'MultiMeasureRestMusicGroup))
)
(map (lambda (x) (ly:set-mus-property! x 'origin location))
- (list start stop skip ch ch2 seq))
- (ly:set-mus-property! start 'span-direction START)
- (ly:set-mus-property! stop 'span-direction STOP)
- (ly:set-mus-property! skip 'duration duration)
+ (list start ch ch2 seq))
+ (ly:set-mus-property! start 'duration duration)
(ly:set-mus-property! seq 'elements
(list
ch
(make-event-chord (list start))
- (make-event-chord (list skip))
- (make-event-chord (list stop))
ch2
))
;;; splitting chords into voices.
-
(define (voicify-list lst number)
"Make a list of Musics.
(make-simultaneous-music (car lst))))
'Voice (number->string number))
- (voicify-list (cdr lst) (+ number 1))
+ (voicify-list (cdr lst) (1+ number))
))
)
(if
(and (equal? (ly:music-name m) "Simultaneous_music")
(reduce (lambda (x y ) (or x y)) #f (map music-separator? es)))
- (voicify-chord m)
+ (set! m (context-spec-music (voicify-chord m) 'Staff))
)
m
(let*
((meta (ly:get-grob-property grob 'meta))
(nm (if (pair? meta) (cdr (assoc 'name meta)) "nonexistant"))
- (cb (ly:get-grob-property grob 'molecule-callback)))
+ (cb (ly:get-grob-property grob 'print-function)))
(if (equal? nm object-name)
(begin
- (ly:set-grob-property! grob 'molecule-callback Balloon_interface::brew_molecule)
+ (ly:set-grob-property! grob 'print-function Balloon_interface::print)
(ly:set-grob-property! grob 'balloon-original-callback cb)
(ly:set-grob-property! grob 'balloon-text text)
(ly:set-grob-property! grob 'balloon-text-offset off)
))))
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;
-
-
-(define-public (determine-split-list ev1 ev2 state)
-
-#f )