Fwd: Fwd: Help

[Leonid Hrabovsky]

Sorry for not including CC in my letter to Jean Abou Samra !..

Леонід - Leonid

---------- Forwarded message ---------
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 ?

Леонід - Leonid

Virus-free. www.avast.com

On Sun, Nov 21, 2021 at 9:36 AM Leonid Hrabovsky <lhrabovsky@gmail.com> wrote:

Thanks! Mille merci, Jean, I will try it after implementing the corrections from Thomas Morley letter.

Will keep in touch with you.

Best,

Леонід - Leonid

On Sun, Nov 21, 2021 at 5:59 AM Jean Abou Samra <jean@abou-samra.fr> wrote:

Hi Leonid,

Regarding your last request:

Le 20/11/2021 à 03:17, Leonid Hrabovsky a écrit :
>
> 3) I see (=guess) that tweaking with numerical data of the
> /squiggleLine/ (in order to enlarge it strictly proportionally when
> preserving its angles and/or curvatures) will create the two types of
> horizontal lines I need. But I also need the third line that shall
> look like a tight chain of repeated organ pedal symbols (the arches).
> So is there a way of building such a line? Maybe by building a small
> semicircle and then multiplying it as a variable?

Do you mean something like this?

\version "2.22.1"

#(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)
                      (arch-length . 10)
                      (arch-height . 3)
                      (angularity . 0.8))
\draw-horizontal-arches #20

Best regards,
Jean