The LilyPond Snippet Repository ♪♫

…of the chord." (map-some-music (lambda (evt) (cond ((eq? 'EventChord (ly:music-property evt 'name)) (let ((tags (ly:music-property evt 'tags))) (… …NoteEvent) (acons (list m) (note->chords-arti m) p)) ((EventChord) (receive (notes arti) ; separates notes from scripts, dynamics … …make-event-chord (do-add (list x) (note->chords-arti x))) x)) ((EventChord) (if (entry?)(receive (notes arti) ; separates notes from …

…or (has-notes? (car es)) (loop (cdr es))))))) %% An EventChord is sometimes used as a wrapper in Lilypond, … …append (ly:music-property to 'articulations) arti-from)) (ly:music-set-property! to 'elements ; EventChord (append es-to arti-from))) ; copy also 'tags and 'to-relative-callback (… …else #f))) music) (if last-note ; the last saved EventChord (ly:music-set-property! last-note 'tags (cons cPSamePitchEnd ; add cPSamePitchEnd tag, …

…of the chord." (map-some-music (lambda (evt) (cond ((eq? 'EventChord (ly:music-property evt 'name)) (let ((tags (ly:music-property evt 'tags))) (… …NoteEvent) (acons (list m) (note->chords-arti m) p)) ((EventChord) (receive (notes arti) ; separates notes from scripts, dynamics … …make-event-chord (do-add (list x) (note->chords-arti x))) x)) ((EventChord) (if (entry?)(receive (notes arti) ; separates notes from …

…define (music-elts x) (ly:music-property x 'elements)) #(define (EventChord? x) (eq? (ly:music-property x 'name) 'EventChord)) #(define (… …music))) parenLeft = #(define-music-function (music) (ly:music?) (ly:music-set-property! (if (EventChord? music) (car (ly:music-property music 'elements)) music) 'parenleft #t) music) parenRight = #(define-music-function (music) (ly:music?) (ly:music-set-property! (if (EventChord? music) (car (ly:music-property music 'elements)) music) 'parenright #t) …

…see music-functions.scm (lambda (evt) (case (name-of evt) ((EventChord) (receive (notes others) (partition noteEvent? (ly:music-property evt 'elements)) (… …map-some-music (lambda(evt) (cond ((memq (name-of evt) '(NoteEvent EventChord)) (ly:music-set-property! evt 'tags (cons notCopyArticulationsTag (ly:music-property evt 'tags))) … …cond ((or (eq? name 'NoteEvent) (and (eq? name 'EventChord) (has-notes? evt))) (if prev-was-tied (ly:music-set-property! evt 'tags (cons …

…see music-functions.scm (lambda (evt) (case (name-of evt) ((EventChord) (receive (notes others) (partition noteEvent? (ly:music-property evt 'elements)) (… …map-some-music (lambda(evt) (cond ((memq (name-of evt) '(NoteEvent EventChord)) (ly:music-set-property! evt 'tags (cons notCopyArticulationsTag (ly:music-property evt 'tags))) … …cond ((or (eq? name 'NoteEvent) (and (eq? name 'EventChord) (has-notes? evt))) (if prev-was-tied (ly:music-set-property! evt 'tags (cons …

…ly:music-property x 'duration #f))) (and (or dur (eq? 'EventChord (ly:music-property x 'name))) (let ((skip (make-music 'SkipEvent 'duration (… …x 'elements #f))) (if elts (filter (lambda(y) ;; EventChord (not (eq? 'NoteEvent (ly:music-property y 'name)))) elts) (map …

…simultaneous? music) (memq (ly:music-property music 'name) (list 'SimultaneousMusic 'EventChord))) #(define (defined-music? music) (not (eq? 'Music (ly:music-property music 'name)))) #(define (chord-event? music) (eq? 'EventChord (ly:music-property music 'name))) #(define (get-duration music) (ly:music-property …

…#f) (ly:grob-set-nested-property! grob '(bound-details right-broken text) #f)))) $(make-music 'EventChord 'elements (list (make-music 'TextSpanEvent 'span-direction -1))) #}) nebenstimmeStart = … …#f) (ly:grob-set-nested-property! grob '(bound-details right-broken text) #f)))) $(make-music 'EventChord 'elements (list (make-music 'TextSpanEvent 'span-direction -1))) #}) hauptstimmeEnd = \…

…append (ly:music-property m 'articulations) (list (make-script x)))) m) ((EventChord)(set! (ly:music-property m 'elements) (append (ly:music-property m 'elements) (…