Transpose Italian chords - Revision history

Lemzwerg at 06:48, 25 November 2025

2025-11-25T06:48:01Z

← Older revision		Revision as of 06:48, 25 November 2025
Line 1:		Line 1:
	Transpose x steps (-12 ~~<~~= x ~~<~~= 12) chords written as lyrics in a string. To be used with ~~AccordiMio.ly~~.		Transpose x steps (-12 <= x <= 12) chords written as lyrics in a string. To be used with [[Customized Italian style chords]].

	<lilypond version="2.24">		<lilypond version="2.24">
	~~%Transpose x steps (-12 <= x <= 12) chords written as lyrics in a string.~~
	~~%To be used with AccordiMio.ly~~

	\language "italiano"		\language "italiano"

Line 89:		Line 86:
	>>		>>
	</lilypond>		</lilypond>

			[[Category:Chords]]
			[[Category:Snippet]]

Lemzwerg: Lemzwerg moved page Transpose italian chords to Transpose Italian chords without leaving a redirect: Misspelled title

2025-11-25T06:45:06Z

Lemzwerg moved page Transpose italian chords to Transpose Italian chords without leaving a redirect: Misspelled title

← Older revision	Revision as of 06:45, 25 November 2025
(No difference)

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:53:12Z

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:53, 16 November 2025
Line 1:		Line 1:
	Transpose x steps (-12 <= x <= 12) chords written as lyrics in a string. To be used with AccordiMio.ly.		Transpose x steps (-12 <= x <= 12) chords written as lyrics in a string. To be used with AccordiMio.ly.

	<lilypond version="2.24.0">		<lilypond version="2.24">
	%Transpose x steps (-12 <= x <= 12) chords written as lyrics in a string.		%Transpose x steps (-12 <= x <= 12) chords written as lyrics in a string.
	%To be used with AccordiMio.ly		%To be used with AccordiMio.ly

Jean Abou Samra: Import snippet from LSR

2025-10-26T22:49:17Z

Import snippet from LSR

New page

Transpose x steps (-12 <= x <= 12) chords written as lyrics in a string. To be used with AccordiMio.ly.

<lilypond version="2.24.0">
%Transpose x steps (-12 <= x <= 12) chords written as lyrics in a string.
%To be used with AccordiMio.ly

\language "italiano"

#(begin
;variabili globali
(define semitoni-global 0)
)

TrasportaMio =
#(define-music-function (semitoni stringa-in) (number? ly:music?)
(define stringa-out "")

;controlla che semitoni stia fra -12 e 12
(cond
((and (<= semitoni 12) (>= semitoni -12))
(begin
(set! semitoni-global semitoni)
(set! stringa-out (music-map elabora-trasposizione stringa-in))
stringa-out
)
)
(else
(begin
(ly:parser-error "I semitoni devono essere compresi fra -12 e 12.")
stringa-in
)
)
)
)

#(define (elabora-trasposizione stringa-in)
(define stringa-out "")
(define elemento "")
(define p-nota 0)
(define p-alterazione 0)
(define nome-nota #("do" "re" "mi" "fa" "sol" "la" "si"))
(define num-nota #( 0 2 4 5 7 9 11 ))
(define nome-alterazione #("bb" "dd" "b" "d" "")) ;ordino dalle stringhe più lunghe alle più corte
(define num-alterazione #( -2 2 -1 1 0))
(define nome-nota-sostituita #("do" "reb" "re" "mib" "mi" "fa" "fad" "sol" "lab" "la" "sib" "si")) ;sostituisco con l'omologo che ha meno alterazioni in chiave

;imposto l'uscita uguale all'ingresso (nel caso non debba modificare nulla)
(set! stringa-out stringa-in)

;quando la stringa-in è al livello di LyricEvent...
(when (eq? (ly:music-property stringa-in 'name) 'LyricEvent)

;ricavo la stringa con tutti gli accordi
(set! elemento (ly:music-property stringa-in 'text))

;sostituisco dalle parole più lunghe a quelle più brevi
;sostituisco le stringhe semidim e dim con un segnaposto (semidim contiene all'interno MI che potrebbe essere interpretato come una nota, dim comincia per D che potrebbe essere interpretato come diesis)
(set! elemento (ly:string-substitute "semidim" "<100>" elemento))
(set! elemento (ly:string-substitute "dim" "<200>" elemento))

;sostituisco alla nota il suo valore numerico trasportato
(do ((p-nota 0 (+ p-nota 1))) ((>= p-nota 7))
(do ((p-alterazione 0 (+ p-alterazione 1))) ((>= p-alterazione 5))
(set! elemento (ly:string-substitute (string-append (vector-ref nome-nota p-nota) (vector-ref nome-alterazione p-alterazione)) (string-append "<" (number->string (modulo (+ (vector-ref num-nota p-nota) (vector-ref num-alterazione p-alterazione) semitoni-global) 12)) ">") elemento))
)
)

;sostituisco al valore numerico trasportato la nota con l'alterazione più utilizzata
(do ((p-nota 0 (+ p-nota 1))) ((>= p-nota 12))
(set! elemento (ly:string-substitute (string-append "<" (number->string p-nota) ">") (vector-ref nome-nota-sostituita p-nota) elemento))
)

;sostituisco i segnaposto con le stringhe semidim e dim
(set! elemento (ly:string-substitute "<100>" "semidim" elemento))
(set! elemento (ly:string-substitute "<200>" "dim" elemento))

;sostituisco 'elements con la stringa trasposta
(ly:music-set-property! stringa-out 'text elemento)
)
stringa-out
)

musica = \new Staff { \new Voice \relative do' { do4 re mi fa sol la si do } }
accordi = \new Lyrics \lyricmode { "dobb.4 redim mi fasemidim" }

<<
\musica
\TrasportaMio 1 \accordi
>>
</lilypond>