Looks stunning! But why can't I get it to work?
Thanks,
Edward
~/test11.ly:16:12: error: syntax error, unexpected EVENT_IDENTIFIER
#f)
)))
~/test11.ly:21:48: error: GUILE signaled an error for the expression
beginning here
\once \override Slur.before-line-breaking = #
(set-arpeggio-position val)
~/test11.ly:76:5: error: error in #{ ... #}
\arpeggioAcciaccatura 2 bes'8
~/test11.ly:76:5: error: error in #{ ... #}
\arpeggioAcciaccatura 2 bes'8
~/test11.ly:21:48: error: GUILE signaled an error for the expression
beginning here
\once \override Slur.before-line-breaking = #
(set-arpeggio-position val)
~/test11.ly:85:5: error: error in #{ ... #}
\arpeggioAcciaccatura 2 g'8
~/test11.ly:85:5: error: error in #{ ... #}
\arpeggioAcciaccatura 2 g'8
Interpreting music...
warning: type check for `before-line-breaking' failed; value
`#<unspecified>' must be of type `boolean'
warning: type check for `before-line-breaking' failed; value
`#<unspecified>' must be of type `boolean'
Preprocessing graphical objects...
~/test11.ly:26:20: warning: no heads for arpeggio found?
<>\startGraceSlur
\arpeggio
~/test11.ly:26:20: warning: no heads for arpeggio found?
<>\startGraceSlur
\arpeggio
--------------
Dr. Edward Neeman
Adjunct Instructor, South Georgia State College
Collaborative Pianist, Valdosta State University, Georgia
Artist Faculty, ELMS Conservatory, Jakarta
edward.nee...@gmail.com
www.neemanpianoduo.com
On Tue, Nov 14, 2017 at 12:57 PM, Thomas Morley
<thomasmorle...@gmail.com> wrote:
> 2017-11-14 17:39 GMT+01:00 Thomas Morley <thomasmorle...@gmail.com>:
>> 2017-11-14 13:23 GMT+01:00 Robert Blackstone <blackstone.rob...@gmail.com>:
>>> Hello,
>>>
>>> Snippet http://lsr.di.unimi.it/LSR/Item?id=410 shows an excellent way to
>>> insert a grace note between an arpeggio and the arpeggiated chord
>>
>> Looking at the snippet, I thought what a mess. All those added Voices,
>> hide and unhide Notes, ignore-collision ...
>>
>> Thus I come up with below.
>> Single draw-back so far: you'll need to use \grace and add the Slur manually.
>
> To circumvent it I topped my chutzpah with below.
> With \arpeggioAcciaccatura there's no need anymore to type \arpeggio
> or start/end Slurs expecitely.
> \arpeggioAcciaccatura takes an optional argument which specifies the
> note-event from the target-chord which should be the right-bound of
> the chord.
> This happens in typed order, defaulting to the first typed note-event.
>
> \version "2.19.65"
>
> #(define (set-arpeggio-position idx)
> ;; Sets Arpeggio.positions taken from the chord's note-heads ending the Slur
> (lambda (grob)
> (if (grob::has-interface grob 'slur-interface)
> (let* ((right-bound (ly:spanner-bound grob RIGHT))
> (right-note-column
> (if (grob::has-interface right-bound 'note-column-interface)
> right-bound
> (ly:grob-parent right-bound X)))
> (left-bound (ly:spanner-bound grob LEFT))
> (left-note-column (ly:grob-parent left-bound X))
> (staff-space
> (ly:output-def-lookup (ly:grob-layout grob) 'staff-space))
> (note-heads (ly:grob-object right-note-column 'note-heads))
> (staff-pos-ls
> (if (ly:grob-array? note-heads)
> (sort
> (map
> (lambda (nh)
> (ly:grob-property nh 'staff-position))
> (ly:grob-array->list note-heads))
> <)
> #f))
> (cond-elts (ly:grob-object left-bound 'conditional-elements))
> (arp-ls
> (if (ly:grob-array? cond-elts)
> (filter
> (lambda (arp)
> (grob::has-interface arp 'arpeggio-interface))
> (ly:grob-array->list cond-elts))
> '()))
> (arp (if (pair? arp-ls) (car arp-ls) #f))
> (arp-pos
> (if staff-pos-ls
> (interval-widen
> (cons
> (/ (car staff-pos-ls) 2)
> (/ (last staff-pos-ls) 2))
> (/ staff-space 2))
> #f)))
> (if (and (ly:grob-array? note-heads)
> (> (ly:grob-array-length note-heads) idx))
> (ly:spanner-set-bound!
> grob RIGHT (list-ref (ly:grob-array->list note-heads) idx))
> (ly:warning
> "Referenced note-head does not exist in ~a, idx ~a too high?
> Ignoring."
> note-heads
> idx)
> )
> (if (and arp arp-pos)
> (ly:grob-set-property! arp 'positions arp-pos))
> #f))))
>
> setArpeggioPosition =
> #(define-music-function (val)(index?)
> #{
> \once \override Slur.before-line-breaking = #(set-arpeggio-position val)
> #})
>
>
> startArpeggioAcciaccaturaMusic = {
> <>\startGraceSlur\arpeggio
> \temporary \override Flag.stroke-style = #"grace"
> }
>
> stopArpeggioAcciaccaturaMusic = {
> \revert Flag.stroke-style
> <>\stopGraceSlur
> }
>
> #(defmacro-public def-my-grace-function (start stop . docstring)
> "Helper macro for defining grace music"
> `(define-music-function (idx music) ((index? 0) ly:music?)
> ,@docstring
> (make-music
> 'GraceMusic
> 'element
> (make-music
> 'SequentialMusic
> 'elements
> (list
> #{
> \setArpeggioPosition $idx
> $(ly:music-deep-copy ,start)
> #}
> music
> (ly:music-deep-copy ,stop))))))
>
> arpeggioAcciaccatura =
> #(def-my-grace-function
> startArpeggioAcciaccaturaMusic
> stopArpeggioAcciaccaturaMusic
> (_i "Create an acciaccatura from the following music expression.
> The Slur-end is bound to the note-head specified by an optional argument,
> which
> should be an index. If not present the Slur is bound to the first typed
> note-event of the chord
> "))
>
> <<
> \new Staff {
> \key ees \major
>
> \override PhrasingSlur.positions = #'(2.5 . 2.2)
> \phrasingSlurUp
>
> <bes d' f'>4\(
> <bes des' ees' g'>
> %\setArpeggioPosition 2
> %% probably adjust the Slur a little:
> \once \override Slur.minimum-length = 2
> \shape #'((0 . 0) (-0.2 . -0.2) (-0.2 . -0.3) (-0.2 . -0.4)) Slur
> \arpeggioAcciaccatura 2 bes'8
> <c' es' aes'>4
> <bes e' g'>\fermata\)
> <aes c' f'>\(
> <g c' ees'>
>
> %% probably adjust the Slur a little:
> \once \override Slur.minimum-length = 2
> \shape #'((0 . 0) (-0.2 . -0.2) (-0.2 . -0.3) (-0.2 . -0.4)) Slur
> \arpeggioAcciaccatura 2 g'8
> <aes c' f'>4
> <g c' ees'>\fermata\)
> }
>
> \new Staff {
> \clef bass
> \key es \major
> bes,4 es as, c,\fermata |
> <f, c>
> <c, c>
> <f, c>
> <c, c>\fermata
> }
>>>
>
> Needs testing, ofcourse...
>
>
> Cheers,
> Harm
>
> _______________________________________________
> lilypond-user mailing list
> lilypond-user@gnu.org
> https://lists.gnu.org/mailman/listinfo/lilypond-user
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
