The LilyPond Snippet Repository ♪♫

…avoid-slur . around) (direction . ,UP))) % Single mark articulations: #(append! default-script-alist (list ` (lheel_backward . ,pedalbroken_left))) #(append! … …append! default-script-alist (list ` (rtoe_lheel . ,pedalbroken_right))) #(append! default-script-alist (list ` (rheel_ltoe . ,pedalbroken_right))) #(append! default-script-alist (list ` (rheel_lheel . ,pedalbroken_right))) ltoe_rtoe = …

…lambda (evt prev-list) (if (eq? (name-of evt) 'SequentialMusic) (append (ly:music-property (clean-music evt) 'elements) prev-list) (cons (clean-music evt) … …of this cond statement (loop (cdr notes-list) pat-list (append x res))) ; append x to res ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ((note-or-chord? evt) ; evt in pattern …

…is-white? ; is a white key? (list? (member key-name (append enharmonic-c enharmonic-d enharmonic-e enharmonic-f enharmonic-g enharmonic-a enharmonic-b)))) (is-black? ; … …to b (white or black) ((list? (member key-name (append enharmonic-f enharmonic-fis enharmonic-g enharmonic-gis enharmonic-a enharmonic-ais enharmonic-b))) (* base … …fis" "g" "gis" "a" "ais" "b"))) (let ((many-octaves (append one-octave one-octave one-octave one-octave one-octave one-octave one-octave one-octave …

…grob) (let* ((grobs (ly:grob-object grob 'accidental-grobs)) (grobs (apply append (map cdr grobs))) (heads (map (lambda (x) (ly:grob-parent … …x) (ly:grob-object x 'stem)) heads)) (grob-set1 (ly:grob-list->grob-array (append heads stems))) (grob-set2 (ly:grob-list->grob-array (append heads stems heads2 stems2))) (refp (ly:grob-common-refpoint-of-array grob grob-set1 …

…grobb 'stencil (ly:stencil-combine-at-edge bar-stil Y dir tip-style 0))) (append top-bar-lines bottom-bar-lines) (append (make-list bar-lines-list-length top-stil) (make-list bar-lines-list-length bottom-stil)) (append (make-list bar-lines-list-length 1) (make-list bar-lines-list-length -1)) (append (make-list bar-lines-list-length up-tip) (make-list bar-lines-list-length down-tip))))))) %%%%%%%%%%%%%%%%%%%%%%%%%%% %% EXAMPLES %%%%%%%%%%%%%%%%%%%%%%%%%%% \paper { …

…with ;; 'normal' pitches from full ;; (all pitches) (all (append (take full (length partial-pitches)) (drop pitches (length partial-pitches)))) (… …make-line-markup (list (root->markup root) partial-markup-prefix (make-super-markup (markup-join (append (map step->markup (append altered (if (and (> (step-nr highest) 5) (not (step-even-or-altered? …

…else #f)))) (if one-note (begin (ly:music-set-property! one-note 'articulations (append (ly:music-property one-note 'articulations) others)) one-note) (make-event-chord (append res others))))))) #(define (extract-note music n . args) "… …of new notes (new-arti (cdr entry))) ; the articulations (append new-notes notes new-arti arti))))) ;; combine in chords, each …

…else #f)))) (if one-note (begin (ly:music-set-property! one-note 'articulations (append (ly:music-property one-note 'articulations) others)) one-note) (make-event-chord (append res others))))))) #(define (extract-note music n . args) "… …of new notes (new-arti (cdr entry))) ; the articulations (append new-notes notes new-arti arti))))) ;; combine in chords, each …

…http://lilypond.org/doc/stable/Documentation/notation/displaying-pitches % Append markup in the text property to the grob … …for treble clef \once \set Staff.middleCClefPosition = -6 % Append change clef to the time signature \once \override … …for bass clef \once \set Staff.middleCClefPosition = 6 % Append change clef to the time signature \once \override …

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