Re: Fwd: Fwd: Help

[Jean Abou Samra]

> From: Leonid Hrabovsky <lhrabovsky@gmail.com>
> Date: Wed, Nov 24, 2021 at 11:50 PM
> Subject: Re: Fwd: Help
> To: Jean Abou Samra <jean@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