The LilyPond Snippet Repository ♪♫

…Usage: \color_interval_engraver #intervaldefs #debug? #intervals-given intervaldefs: alist containing information about semitonical distances for certain intervals, …

…on the %%% intervals between successive pitches %% Interval definitions alist %% %% Key: %% number determines the interval type, 1=prime, … …looks up the interval in the interval definitions alist and hands %% the determined interval distances together with … …Usage: %% \color_interval_engraver #intervaldefs #debug? intervals-given %% %% intervaldefs: alist containing information about semitonical distances for %% certain intervals, …

…note 'articulations)) (ly:music-set-property! note 'articulations note-arti) chord-arti)) (let* ((alist ; a list of pairs of 2 lists : '(… …begin (set! entry (car alist)) (set! alist (cdr alist)) entry)))) (do-add (lambda (notes arti) (let* ((dur (ly:music-property (… …new-arti arti))))) ;; combine in chords, each element of alist with notes of music (map-some-music (lambda(x) (case (…

…note 'articulations)) (ly:music-set-property! note 'articulations note-arti) chord-arti)) (let* ((alist ; a list of pairs of 2 lists : '(… …begin (set! entry (car alist)) (set! alist (cdr alist)) entry)))) (do-add (lambda (notes arti) (let* ((dur (ly:music-property (… …new-arti arti))))) ;; combine in chords, each element of alist with notes of music (map-some-music (lambda(x) (case (…

…context . $top-grob . stencil = #(lambda (grob) (define (get-stil-proc alist) ;; removes the first 'stencil entry from the grob-property ;; … …if (procedure-name stil-proc) stil-proc (begin (set! alist (assoc-remove! alist 'stencil)) (get-stil-proc alist))))) (let* ((basic-props (ly:grob-basic-properties grob)) (stil-proc (get-stil-proc basic-props)) (this-stil (…

…define-public (note-names-language str) "Select note names language." (let ((alist (assoc-get (string->symbol str) language-pitch-names '()))) (if (pair? alist) (… …ly:debug "Using `~a' note names..." str) (set! pitchnames alist) (ly:parser-set-note-names alist)) (ly:warning "Could not find language `~a'. Ignoring." str)))) …

…in $defaultheader (scopes (list $defaultheader)) (alists (map ly:module->alist scopes)) (prefixed-alist (map (lambda (alist) (map (lambda (entry) (cons (string->symbol (string-append "header:" (symbol->string (car entry)))) (cdr entry))) alist)) alists)) (props (append prefixed-alist props (layout-extract-page-properties layout)))) (interpret-markup …

…lambda (x) (apply define-translator-property x)) `((chordNameExceptionsFull ,list? "An alist of full chord exceptions. Contains @code{(@var{chord} . @var{markup})} entries.") (chordNameExceptionsPartial ,list? "An alist of partial chord exceptions. Contains @code{(@var{chord} . (@…

…the counter values is implemented as a global alist counter-alist (Scheme/Guile's concept of a hash), … …by one and stores it back in the alist.

…after the number. To change that, pass an alist to figuredBassPlusStrokedAlist and set the glyph in question …

…or skip) represents. More precisely, a measure division alist is made of positive, exact numbers adding up …