2018-06-12 8:35 GMT+02:00 Helge Kruse <helge.kr...@gmx.net>:
> I have struggling for a while with few measures and I am currently a bit
> frustrated. I use the great fancy glissando from LSR 1066
> (http://lsr.di.unimi.it/LSR/Item?id=1066) to write some chaotic
> glissandi. The players should start one after the other. For that
> purpose the composer used a triplet as then notation.
>
> I think I got a acceptable result in the score. The starting points of
> the glissando lines are a bit too far from the note heads though.
You use hidden notes as glissandi-start, but they don't match
rhythmically with the chords from which the glissando should start, so
the glissando starts later, thus the gap(s)
>
> But it's hard to generate the parts. I tried \keepWithTag for the first
> time to get just one item of the triplet. But now I get even more
> unexpected results. The first part has a double glissando surprisingly.
Not really.
Glissando between chords prints per default multiple lines. Each of
those glissandi is affected by \fancy-gliss.
Though, you can customize behaviour using the
glissandoMap-context-property, see NR.
> The line ends not before but inside the terminating chord. The second
> part has an additional gap between the starting chord and the begin of
> the glissando line.
>
> How can this be fixed (double line terminating x position in 1st part)
> and improved (distance in 2nd and 3rd part)?
While on it, I simplified fancy-gliss, renaming it fancy-gliss-II.
Be aware I deleted the \once. You now need to revert it explicitely,
if you can't use \once \fancy-gliss-II
Overrides for bound-details.left/right.padding are possible.
\version "2.19.81"
%% disregard the 2.18.2-warnings
#(if (string=? (lilypond-version) "2.18.2")
(for-each
(lambda (i)
(ly:expect-warning "ignoring too many clashing note columns"))
(iota 2)))
lengthen-gliss =
#(define-music-function (parser loation nmbr)(number?)
#{
\once \override Glissando.springs-and-rods = #ly:spanner::set-spacing-rods
\once \override Glissando.minimum-length = #nmbr
#})
fancy-gliss-II =
#(define-music-function (parser location pts-list)(list?)
#{
\override Glissando.after-line-breaking =
#(lambda (grob)
(let ((stil (ly:line-spanner::print grob)))
(if (ly:stencil? stil)
(let*
((left-bound-info (ly:grob-property grob 'left-bound-info))
(left-Y (assoc-get 'Y left-bound-info))
(stil-x-ext (ly:stencil-extent stil X))
(factor
(/ (interval-length (ly:stencil-extent stil X))
(car (take-right (last pts-list) 2))))
(new-stil
(make-connected-path-stencil
(map
(lambda (e)
(cond ((= (length e) 2)
(cons (* (car e) factor) (cdr e)))
((= (length e) 6)
(list
(* (car e) factor)
(cadr e)
(* (third e) factor)
(fourth e)
(* (fifth e) factor)
(sixth e)))
(else
(ly:error
"Some element(s) of the given list do not fit"))))
pts-list)
(layout-line-thickness grob) ;line-width
1 ;scaling
1 ;scaling
#f
#f)))
(ly:grob-set-property! grob 'stencil
(ly:stencil-translate
new-stil
(cons (car stil-x-ext) left-Y))))
(begin
(ly:warning
"Cannot find stencil. Please set 'minimum-length accordingly")
#f))))
#})
%% comment me
%#(display "\n\tLimitations:
%\t-Does not work with line-break
%\t-dotted notes with glissando may return a warning for unknown reasons,
%\t strange things may happen, if contexts die prematurely")
\version "2.19.81"
\language "deutsch"
%\include "FancyGliss.ily"
scoreDUpperHarpI = \relative c'' {
\override Glissando.cross-staff = ##t
\set glissandoMap = #'((3 . 0))
\once \fancy-gliss-II
#'(
(.5 -2)
(1 -0.5)
(1.5 -3)
(2 0)
(2.5 -14)
(3 0)
)
\tag #'partiture
{ <cis d a' es'>4*1/2\glissando s8 }
\tag #'partI {
\tuplet 3/2 {
<cis d a' es'>8\glissando
\temporary \override NoteColumn.glissando-skip = ##t
r r
}
}
s8*14
\revert NoteColumn.glissando-skip
< h' h'>4 r
\unset glissandoMap
}
scoreDLowerHarpI = \relative c' {
\time 2/4
s2 s s s
r4 r
}
scoreDUpperHarpII = \relative c'' {
\override Glissando.cross-staff = ##t
\set glissandoMap = #'((3 . 0))
\fancy-gliss-II
#'(
(0.8 -14)
(2.4 2)
)
\tag #'partiture {
s8*2/3
<cis d a' es'>4*2/3\glissando
}
\tag #'partII {
\tuplet 3/2 {
r8
<cis d a' es'>8\glissando
\temporary \override NoteColumn.glissando-skip = ##t
r
}
}
s8*14
\revert NoteColumn.glissando-skip
< h' h'>4 r
\revert Glissando.after-line-breaking
\unset glissandoMap
}
scoreDLowerHarpII = \relative c' {
\time 2/4
s2 s s s
r4 r
}
scoreDUpperHarpIII = \relative c'' {
\override Glissando.cross-staff = ##t
\set glissandoMap = #'((3 . 0))
\temporary \fancy-gliss-II
#'(
(.1 -4)
(.6 -2.5)
(1.4 -5)
(1.6 -2.5)
(2.1 -14)
(2.6 0)
)
\tuplet 3/2 {
\tag #'partiture {
\voiceTwo
\change Staff=upperI <cis d a' es'>8
\change Staff=upperII <cis d a' es'>
\change Staff=upperIII <cis d a' es'>8\glissando
}
\tag #'partIII {
r8 r <cis d a' es'>\glissando
}
}
s8*14
< h' h'>4 r
}
scoreDLowerHarpIII = \relative c' {
\time 2/4
s2 s s s
r4 r
}
%% =========================================================
scoreDHarpIPart = \new PianoStaff <<
\new Staff = "upperI" << \scoreDUpperHarpI >>
\new Staff = "lowerI" { \clef bass \scoreDLowerHarpI }
>>
scoreDHarpIIPart = \new PianoStaff <<
\new Staff = "upperII" << \scoreDUpperHarpII >>
\new Staff = "lowerII" { \clef bass \scoreDLowerHarpII }
>>
scoreDHarpIIIPart = \new PianoStaff <<
\new Staff = "upperIII" << \scoreDUpperHarpIII >>
\new Staff = "lowerIII" { \clef bass \scoreDLowerHarpIII }
>>
\book {
\bookpart {
\score {
\keepWithTag #'partiture
<<
\scoreDHarpIPart
\scoreDHarpIIPart
\scoreDHarpIIIPart
>>
}
\score { \keepWithTag #'partI \scoreDHarpIPart }
\score { \keepWithTag #'partII \scoreDHarpIIPart }
\score { \keepWithTag #'partIII \scoreDHarpIIIPart }
}
}
Please test, if it works reliably, I'll update the LSR-snippet.
Cheers,
Harm
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
