2016-03-08 17:45 GMT+01:00 Gianmaria Lari <gianmarial...@gmail.com>:
> Suppose you have this:
>
> [image: Inline image 2]
>
> This is something like
>
> \fragment d d
> \fragment c e
> \fragment e c
>
>
> So, more precisely I would write:
>
> \version "2.19.35"
>
> pattern =
> {
> c16 d e f g a b c
> }
>
> \relative c'
> {
> \pattern d4 d4
> \pattern c4 e4
> \pattern e4 c4
> }
>
>
> But the previous code generate:
>
> [image: Inline image 1]
>
> So I played a bit with "\absolute" and at the end I have been able to fix
> the issue. Here it is the code:
>
> \version "2.19.35"
>
> pattern = \absolute
> {
> c'16 d' e' f' g' a' b' c''
> }
>
> \relative c''
> {
> \pattern d4 d4
> \pattern c4 e4
> \pattern e4 c4
> }
>
>
> Unfortunately this solution does not work well with "\changePitch" (that I
> need). I also tried setting the pattern in the following way:
>
> pattern = *\relative c'*
> {
> c16 d e f g a b c
> }
>
>
> but it also does not work because the scope of "\relative " ends at the
> end of the expression (if I understood correctly).
>
> Any suggestion?
>
(1)
Please don't use inline-images, I'm not the only one always filtering them,
please attach them.
(2)
I've no idea about changePitch, it's not in the source. Please post (read:
attach) the code or a link to it.
(3)
You may be looking for make-relative, for an example see:
http://lsr.di.unimi.it/LSR/Item?id=465
In your use-case maybe:
\version "2.19.36"
pat = \relative c' {
c16 d e f g a b c
}
pattern =
#(define-music-function (m) (ly:music?)
(make-relative (pat) pat m))
\relative c {
\pattern \pat d'4 d4
\pattern \pat c4 e4
\pattern \pat e4 c4
}
Can't be sure, without clue what you actually want to achieve, though.
> does exist any command to simply set the octave of the next note?
>
Maybe below, setting octave up or down:
\version "2.19.36"
setOtherPitchOctave =
#(define-music-function (oct-change m)(integer? ly:music?)
(if (music-is-of-type? m 'note-event)
(let* ((p (ly:music-property m 'pitch)))
#{
\withMusicProperty #'pitch
#(ly:make-pitch
(+ oct-change (ly:pitch-octave p))
(ly:pitch-notename p)
(ly:pitch-alteration p))
$m
#})
m))
\relative c' {
c'' d e f
\setOtherPitchOctave -1
g a b c
}
Cheers,
Harm
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
