lilypond-user
[Top][All Lists]
Advanced
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Define markup with iteration

From: Gilles THIBAULT
Subject: Re: Define markup with iteration
Date: Tue, 14 Apr 2015 15:09:30 +0200
User-agent: KMail/4.12.5 (Linux/3.14.32-desktop-1.mga4; KDE/4.12.5; x86_64; ; ) 
> ;;untested
> 
> (#:path 0.15
>    (map
>       (lambda(i)
>          (moveto  0  (* pad i))(lineto  long  (* pad i))
>       (iota n)
> 
> Perhaps (iota (1+ n))
Ok sorry,  (moveto  0  (* pad i))(lineto  long  (* pad i)) was not one 
instruction but two :

(#:path 0.15
    (fold
      (lambda(i,prev)
         (cons
            (moveto  0  (* pad i))
            (cons 
              (lineto  long  (* pad i))
              prev)))
        '()
        (reverse (iota (1+ n))))


-- 
Gilles
reply via email to
[Prev in Thread] Current Thread [Next in Thread]