Hi Gilberto,
Am 18.12.2020 um 20:00 schrieb lilypond-user-requ...@gnu.org:
I am notating a score which uses a lot of clustered chords, to be
notated in the style of Henry Cowell.
just today I saw a similar question on the German list:
https://lilypondforum.de/index.php/topic,820.0.html
Here is what I have so far:
%
--------------------------------------------------------------------------------------------
|\version "2.20.0" toneClusterDown = #(define-music-function
(note1 note2) (ly:music? ly:music?) (let*
( (p1 (ly:music-property
note1 'pitch)) (p2 (ly:music-property note2
'pitch)) (y1 (+ (* 7 (ly:pitch-octave p2))
(ly:pitch-notename p2))) (y2 (+ (* 7
(ly:pitch-octave p1)) (ly:pitch-notename p1)))
(steps (if (> y1 y2)
(- y1 y2) (- y2 y1)
) ) (note-a (if (>
y1 y2) note1 note2 )) (note-b (if (> y1 y2) note2
note1 )) ) #{
{ \once \voiceTwo
<< #note-a
\new Voice { \voiceTwo
\tweak NoteHead.stem-attachment #'(0 . 0.7)
\tweak Stem.length #(- steps 1.4)
\tweak Stem.thickness #2 \tweak
Flag.stencil ##f #note-b
} >> }
#}) ) toneClusterUp =
#(define-music-function (note1 note2) (ly:music?
ly:music?) (let* (
(p1 (ly:music-property note1 'pitch)) (p2
(ly:music-property note2 'pitch)) (y1 (+ (* 7
(ly:pitch-octave p2)) (ly:pitch-notename p2))) (y2
(+ (* 7 (ly:pitch-octave p1)) (ly:pitch-notename p1)))
(steps (if (> y1 y2)
(- y1 y2) (- y2 y1)
) ) (note-a (if (> y1 y2)
note1 note2 )) (note-b (if (> y1 y2) note2 note1 ))
) #{ {
\once \voiceOne <<
#note-b \new Voice {
\voiceOne \tweak
NoteHead.stem-attachment #'(0 . 0.7) \tweak
Stem.length #(- steps 1.4) \tweak
Stem.thickness #2 \tweak Flag.stencil ##f
#note-a }
>> } #})
) %% Test: { \toneClusterDown f'1 f'' \toneClusterDown f'2 f''
\toneClusterDown g'' g' \toneClusterDown a' a'' \toneClusterDown
b'' b' \toneClusterDown c''4. a'' \toneClusterDown d''8 g''
\toneClusterDown g'8 c'' \toneClusterDown g'8 c'' \toneClusterDown a
cis''' \toneClusterDown a cis''' \bar "||" \toneClusterUp f'1 f''
\toneClusterUp f'2 f'' \toneClusterUp g'' g' \toneClusterUp a'
a'' \toneClusterUp b'' b' \toneClusterUp c''4. a'' \toneClusterUp
d''8 g'' \toneClusterUp g'8 c'' \toneClusterUp g'8 c''
\toneClusterUp a cis''' \toneClusterUp a cis''' } |
|%
--------------------------------------------------------------------------------------------
Cheers, Klaus |