Hi Jean! Awesome, thanks!

*Леонід - Leonid*


<https://www.avast.com/sig-email?utm_medium=email&utm_source=link&utm_campaign=sig-email&utm_content=webmail&utm_term=icon>
Virus-free.
www.avast.com
<https://www.avast.com/sig-email?utm_medium=email&utm_source=link&utm_campaign=sig-email&utm_content=webmail&utm_term=link>
<#DAB4FAD8-2DD7-40BB-A1B8-4E2AA1F9FDF2>

On Thu, Nov 25, 2021 at 5:17 AM Jean Abou Samra <j...@abou-samra.fr> wrote:

>
> > From: Leonid Hrabovsky <lhrabov...@gmail.com>
> > Date: Wed, Nov 24, 2021 at 11:50 PM
> > Subject: Re: Fwd: Help
> > To: Jean Abou Samra <j...@abou-samra.fr>
> >
> >
> > Jean, thank you for this code producing line for me - only a change -
> > the arches up, not down - may you send me adjusted code please ?
>
>
> Here you go:
>
> \version "2.20.0"
>
> #(define-markup-command (draw-horizontal-arches layout props len) (number?)
>      #:properties ((thickness 0.1)
>                    (arch-length 5)
>                    (arch-height 1.5)
>                    (angularity 0.2)
>                    path-markup)
>      (interpret-markup
>       layout
>       props
>       (make-path-markup
>        thickness
>        (let loop ((x-pos 0.0)
>                   (path-acc '()))
>          (if (> x-pos len)
>              (reverse! path-acc)
>              (loop (+ x-pos arch-length)
>                    (cons
>                      `(rcurveto ,(* 1/2 angularity arch-length)
>                                 ,arch-height
>                                 ,(- arch-length (* 1/2 angularity
> arch-length))
>                                 ,arch-height
>                                 ,arch-length
>                                 0)
>                      path-acc)))))))
>
> \markup \draw-horizontal-arches #20
>
> \markup
>    \override #'(thickness . 0.2)
>    \override #'(arch-length . 10)
>    \override #'(arch-height . 3)
>    \override #'(angularity . 0.8)
> \draw-horizontal-arches #20
>
>
> Best,
> Jean
>
>

Reply via email to