Lemzwerg: New category

2025-11-21T23:17:38Z

New category

← Older revision		Revision as of 23:17, 21 November 2025
Line 182:		Line 182:
	[[Category:Expressive marks]]		[[Category:Expressive marks]]
	[[Category:Scheme]]		[[Category:Scheme]]
	[[Category:Really cool]][[Category:Snippet]]		[[Category:Really cool]]
			[[Category:Snippet]]

Lemzwerg at 22:46, 21 November 2025

2025-11-21T22:46:03Z

← Older revision		Revision as of 22:46, 21 November 2025
Line 182:		Line 182:
	[[Category:Expressive marks]]		[[Category:Expressive marks]]
	[[Category:Scheme]]		[[Category:Scheme]]
	[[Category:Really cool]]		[[Category:Really cool]][[Category:Snippet]]

Jean Abou Samra: Replace version="2.24.0" with version="2.24" now that the LilyWiki extension supports auto-selecting the latest release in a stable series

2025-11-16T18:48:03Z

Replace version="2.24.0" with version="2.24" now that the LilyWiki extension supports auto-selecting the latest release in a stable series

← Older revision		Revision as of 18:48, 16 November 2025
Line 1:		Line 1:
	Using <code>make-music</code>, you can add various stuff to notes. In this example tenuto lines are added to the notes, and tied notes are disregarded.		Using <code>make-music</code>, you can add various stuff to notes. In this example tenuto lines are added to the notes, and tied notes are disregarded.

	<lilypond version="2.24.0">		<lilypond version="2.24">
	%% http://lsr.di.unimi.it/LSR/Item?id=696		%% http://lsr.di.unimi.it/LSR/Item?id=696

Jean Abou Samra: Import snippet from LSR

2025-10-26T22:36:07Z

Import snippet from LSR

New page

Using <code>make-music</code>, you can add various stuff to notes. In this example tenuto lines are added to the notes, and tied notes are disregarded.

<lilypond version="2.24.0">
%% http://lsr.di.unimi.it/LSR/Item?id=696

%% version 2013/04/14 for lilypond 2.16 or higher
%% see also LSR = http://lsr.di.unimi.it/LSR/Item?u=1&id=769
%% last changes :
%% - fix a bug for \notCopyArticulations and q chords (has-notes? must
%% be called)

#(use-modules (ice-9 receive)) %% for the use of receive

#(define skipCurrentArticulationTag (gensym))
#(define notCopyArticulationsTag (gensym))

#(define (defined-music? music)
(not (eq? 'Music (ly:music-property music 'name))))

#(define (name-of music)
(ly:music-property music 'name))

#(define (noteEvent? music)
(eq? (name-of music) 'NoteEvent))

#(define (has-notes? music)
"Return true if there is at least one note in `music, false otherwise."
(or (noteEvent? music)
(let ((e (ly:music-property music 'element)))
(and (ly:music? e)
(has-notes? e)))
(let loop ((es (ly:music-property music 'elements)))
(and (pair? es)
(or (has-notes? (car es))
(loop (cdr es)))))))

#(define (make-arti-list pattern)
"Make a list of articulations "
(let ((res '())) ; the list to fill
(for-some-music ; see music-functions.scm
(lambda (evt)
(case (name-of evt)
((EventChord)
(receive (notes others)
(partition noteEvent? (ly:music-property evt 'elements))
(if (pair? notes)
(set! res (cons others res)))))
; keeps only not note events
((NoteEvent)
(set! res (cons (ly:music-property evt 'articulations) res)))
(else #f)))
pattern)
(reverse res)))

%% use (ly:music-deep-copy music) for a direct use of copy-articulations
#(define (copy-articulations pattern music)
"Copy articulations of `pattern recursively in each notes of music."
(if (not (has-notes? pattern)) ; avoid endless loops ...
music
(let* ((new-arti (make-arti-list pattern))
(pointer-list new-arti)
(current-arti (lambda ()
(let ((res (car pointer-list)))
(set! pointer-list (cdr pointer-list))
(if (null? pointer-list)(set! pointer-list new-arti))
res))))
(music-filter
defined-music? ; deletes all (make-music 'Music)
(map-some-music ; see music-functions.scm
(lambda(evt)
(let ((tags (ly:music-property evt 'tags)))
(cond
((memq skipCurrentArticulationTag tags); yes => evt = <>
(current-arti) ; ignores return
(make-music 'Music)) ; will be deleted...
((memq notCopyArticulationsTag tags)
(ly:music-set-property! evt 'tags ; just remove the tag
(delq notCopyArticulationsTag tags))
evt)
((noteEvent? evt)
(let ((arti (ly:music-property evt 'articulations)))
(ly:music-set-property! evt 'articulations
(append arti (current-arti)))
evt))
((eq? 'EventChord (name-of evt))
(let ((elts (ly:music-property evt 'elements)))
(and
(pair? (filter noteEvent? elts))
(begin
(ly:music-set-property! evt 'elements
(append elts (current-arti)))
evt))))
(else (and (ly:music-property evt 'duration #f)
evt)))))
(expand-repeat-chords! (list 'rhythmic-event) music))))))

copyArticulations = #(define-music-function (pattern music)
(ly:music? ly:music?)
"Copy articulations of `pattern recursively in each notes of music."
(copy-articulations pattern music))

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% enhancement functions, working inside the music parameter
%% of \copyArticulations
%%%%%%%
notCopyArticulations =
#(define-music-function (music)(ly:music?)
"Add a special tag in 'tags of all notes and chords, that will forbid
articulations to be copied to these events."
(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)))
evt)
(else #f))) ; go deeper
music))

skipArti = \tag #skipCurrentArticulationTag <>

nSkipArti = #(define-music-function (n)(integer?)
"Return \\skipArti \\skipArti \\skipArti ... n times."
(if (< n 2)
skipArti
(make-sequential-music (make-list n skipArti))))

skipTiedNotes = #(define-music-function (music)(ly:music?)
"Add a special tag in 'tags of second tied notes to forbid articulations to be
copied."
(let ((prev-was-tied #f))
(map-some-music
(lambda(evt)
(let ((name (name-of evt)))
(cond
((or (eq? name 'NoteEvent)
(and (eq? name 'EventChord)
(has-notes? evt)))
(if prev-was-tied (ly:music-set-property! evt 'tags
(cons notCopyArticulationsTag (ly:music-property evt 'tags))))
(map-some-music
(lambda(x)
(set! prev-was-tied (and (eq? (name-of x) 'TieEvent) x))
prev-was-tied) ; stop if true
evt))
(else #f))))
music)))

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% shortcuts %%

artiI = c-. % default values for artiI and artiII, if the user does
artiII = {c( c) c-. c-.} % not define them, before using \cAI and \cAII

cAI = #(define-music-function (music) (ly:music?)
#{ \copyArticulations \artiI $music #})

cAII = #(define-music-function (music) (ly:music?)
#{ \copyArticulations \artiII $music #})

#(define cA copyArticulations)
#(define notCA notCopyArticulations)

addTenuto = #(define-music-function (x) (ly:music?)
#{
\copyArticulations {c--} \skipTiedNotes $x
#})

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\relative c' {
a'4
\addTenuto {
g f e~ e d8 c <d gis,>4~ <d gis,>8 r16 e
}
a,1
\bar "|."
}
</lilypond>

[[Category:Expressive marks]]
[[Category:Scheme]]
[[Category:Really cool]]

Adding articulation marks using Scheme (advanced) - Revision history

Lemzwerg: New category

Lemzwerg at 22:46, 21 November 2025

Jean Abou Samra: Replace version="2.24.0" with version="2.24" now that the LilyWiki extension supports auto-selecting the latest release in a stable series

Jean Abou Samra: Import snippet from LSR