Re: Directional NoteHead Stencil Support

[tisimst]

David,

Yes!!! Yes! Yes! Yes! Yes! Yes!

Seriously, that totally made my day. You are my hero. Scheme is not my native language ;-), but I am learning slowly. I did determine the need for that check, but was unsure how to do it. I think I have everything I need to make this sweet font work beautifully! Can't wait to show everyone!

Best regards,

Abraham

Sent from my iPhone

On Mar 21, 2015, at 9:35 PM, David Nalesnik-2 [via Lilypond] <[hidden email]> wrote:

On Sat, Mar 21, 2015 at 10:06 PM, David Nalesnik <[hidden email]> wrote:

Hi Abraham,

On Sat, Mar 21, 2015 at 9:13 PM, tisimst <[hidden email]> wrote:

David,

[...]

 

This works perfectly when there are NO rests, but I get this error when there is a rest in the NoteColumn:

In procedure ly:grob-array->list in _expression_ (ly:grob-array->list (ly:grob-object grob #)): Wrong type argument in position 1 (expecting Grob_array): ()

Glad I could help!

If there's a rest, then the note-heads array will be empty.  To make this work, just add a check that the note-heads list isn't the empty list '().

 Oh, shoot!  It's past my bedtime...

The error happens because you're applying ly:grob-array->list to that grob-array which is empty when there's a rest.  So the check has to be before the conversion to a list:

#(define (flipnotes grob)

   (let ((notes (ly:grob-object grob 'note-heads)))

     (if (ly:grob-array? notes)

         (for-each

          (lambda (note)

            (let* (;(pitch (ly:event-property (event-cause note) 'pitch)) ;; don't need this

                   (stem (ly:grob-object note 'stem))

                   (dir (ly:grob-property stem 'direction))

                   (offset (ly:grob-relative-coordinate note grob X)))

              (if (eq? dir DOWN)

                  (if (and (< offset 0.1) (> offset -0.1))

                      (ly:grob-set-property! note 'rotation '(180 0 0))

                      (ly:grob-set-property! note 'rotation '(0 0 0)))

                  (if (and (< offset 0.1) (> offset -0.1))

                      (ly:grob-set-property! note 'rotation '(0 0 0))

                      (ly:grob-set-property! note 'rotation '(180 0 0)))

                  )

              ))

          (ly:grob-array->list notes))

         ; alternate return?

         

         )))

--David

_______________________________________________
lilypond-user mailing list
[hidden email]
https://lists.gnu.org/mailman/listinfo/lilypond-user

---

If you reply to this email, your message will be added to the discussion below:

http://lilypond.1069038.n5.nabble.com/Directional-NoteHead-Stencil-Support-tp173361p173461.html

To start a new topic under User, email [hidden email]
To unsubscribe from Lilypond, click here.
NAML

---

View this message in context: Re: Directional NoteHead Stencil Support
Sent from the User mailing list archive at Nabble.com.