Re: Define markup with iteration

[Pierre Perol-Schneider]

Hi Abraham,

Thanks for pointing this out!
Actually, i've already seen that but it does not mater much for the code's aim. It'll be deeply adapted as soon as I'll digest all that I've learned here.

Cheers,

Pierre

2015-04-14 19:03 GMT+02:00 tisimst <address@hidden>:

PIerre,

Your original post said that "\markup \staff-lines-it #5 ..." should create 5 staff lines? If so, there's no need for the 1+ in (iota (1+ n)), just (iota n), no? Otherwise #5 will give you 6 staff lines.

Regards,

Abraham

On Tue, Apr 14, 2015 at 10:53 AM, Schneidy [via Lilypond] <[hidden email]> wrote:

Works perfectly.
Thank you very much Paul, et encore merci à toi Gilles!

Cheers,

Pierre

2015-04-14 17:52 GMT+02:00 Paul Morris <[hidden email]>:

Schneidy wrote

> Unfortunately I still cannot get anything.
> So, if I follow your instructions here's what I get:
>
> #(define-markup-command (staff-lines-it layout props n pad long) (number?
> number? number?)
>      (interpret-markup layout props
>          (if (= n 0)
>              (markup (#:path 0.15 `((moveto  0  ,(* pad 0))(lineto  ,long
> ,(* pad 0)))))
>              (markup
>                  (#:combine
>                     (#:path 0.15
>                       (fold
>                         (lambda(i,prev)
>                            (cons
>                               (moveto  0  (* pad i))
>                               (cons
>                                 (lineto  long  (* pad i))
>                                 prev)))
>                           '()
>                           (reverse (iota (1+ n))))
>                     )))
>              )))
>
> \markup\staff-lines-it #5 #1 #10
>
> And does not compile.
> What am I missing?

I made some changes and the version below appears to work.
- (i,prev) --> (i prev)
- no need for (#:combine
- quasi-quoting and unquoting in the lambda in the fold
- move path construction so you can display the path for debugging

Cheers,
-Paul

%%%%%%%%%%%%%%%%%%%%%

\version "2.18.2"

#(define-markup-command (staff-lines-it layout props n pad long)
   (number? number? number?)
   (define the-path
     (fold
      (lambda (i prev)
        (cons
         `(moveto  0  ,(* pad i))
         (cons
          `(lineto  ,long  ,(* pad i))
          prev)))
      '()
      (reverse (iota (1+ n)))))

   ;; (display the-path)

   (interpret-markup layout props
     (if (= n 0)
         (markup (#:path 0.15 `((moveto  0  ,(* pad 0))(lineto  ,long  ,(*
pad 0)))))
         (markup
          (#:path 0.15 the-path )))))

\markup\staff-lines-it #5 #1 #100

--
View this message in context: http://lilypond.1069038.n5.nabble.com/Define-markup-with-iteration-tp174500p174511.html
Sent from the User mailing list archive at Nabble.com.

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

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

~Pierre

---

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

http://lilypond.1069038.n5.nabble.com/Define-markup-with-iteration-tp174500p174513.html

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

---

View this message in context: Re: Define markup with iteration

Sent from the User mailing list archive at Nabble.com.

_______________________________________________
lilypond-user mailing list
address@hidden
https://lists.gnu.org/mailman/listinfo/lilypond-user