Lemzwerg: New category

2025-11-21T23:29:50Z

New category

← Older revision		Revision as of 23:29, 21 November 2025
Line 197:		Line 197:
	[[Category:Automatic notation]]		[[Category:Automatic notation]]
	[[Category:Scheme]]		[[Category:Scheme]]
	[[Category:Template]][[Category:Snippet]]		[[Category:Template]]
			[[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 197:		Line 197:
	[[Category:Automatic notation]]		[[Category:Automatic notation]]
	[[Category:Scheme]]		[[Category:Scheme]]
	[[Category:Template]]		[[Category:Template]][[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:46:59Z

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:46, 16 November 2025
Line 20:		Line 20:
	Download the code of this function here : [http://gillesth.free.fr/Lilypond/copyArticulations/copyArticulations.ly copyArticulations.ly].		Download the code of this function here : [http://gillesth.free.fr/Lilypond/copyArticulations/copyArticulations.ly copyArticulations.ly].

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

Jean Abou Samra: Import snippet from LSR

2025-10-26T22:46:50Z

Import snippet from LSR

New page

Repeating the same articulations a great number of time can be a bit time-consuming to enter.

The function <code>copyArticulations</code> here, automates the job by copying the articulations from a pattern into your music.

As the music is rarely always the same, a few extra functions can give you some flexibility.

The code of the image below is the following:

<pre> \copyArticulations
{ c( c) c-. c-. } %% the pattern
{ %% the music
c16 d e f g a b c b8 a g f
\notCA e1
\nSkipArti #2
r8 d16 e f g a b c8 g e g
\notCA c,1
} </pre>
Here, <code>\notCA</code> allows you to keep the music untouched and <code>\nSkipArti #2</code> skips 2 notes (so 2 articulations) in the pattern.

Download the code of this function here : [http://gillesth.free.fr/Lilypond/copyArticulations/copyArticulations.ly copyArticulations.ly].

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

%% version 2013/04/14 for lilypond 2.16 or higher
%% 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)

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

\new Voice \relative c' {
\copyArticulations { c( c) c-. c-. }
{
c16 d e f g a b c b8 a g f
\notCA e1
\nSkipArti #2
r8 d16 e f g a b c8 g e g
\notCA c,1
}
}
</lilypond>

[[Category:Automatic notation]]
[[Category:Scheme]]
[[Category:Template]]

Adding articulations from a template - 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