Re: A problem with "placing grace notes between arpeggios and chords"

[Edward Neeman]

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
address@hidden
www.neemanpianoduo.com


On Tue, Nov 14, 2017 at 12:57 PM, Thomas Morley
<address@hidden> wrote:
> 2017-11-14 17:39 GMT+01:00 Thomas Morley <address@hidden>:
>> 2017-11-14 13:23 GMT+01:00 Robert Blackstone <address@hidden>:
>>> 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
> address@hidden
> https://lists.gnu.org/mailman/listinfo/lilypond-user