Re: Fwd: Fwd: Help

Hello Jean,

after receiving your code, I started tweaking its numbers with the aim to obtain the lines of the proper size - and now I have approximately two of three I need - one built out of arches and one angulary. I am going to try to maybe tweak the height a bit more in order to make the arch similar to a semicircle (arch-length 4, arch-height 2?) as an extra variant. This is the final code of these:

\version “2.22.1”
\language “english”
#(define-markup-command (draw-horizontal-arches layout props len) (number?)
#:properties ((thickness 0.15)
(arch-length 4)
(arch-height 3)
(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 ,(* angularity arch-length)
,arch-height
,(- arch-length (* angularity
arch-length))
,arch-height
,arch-length
0)
path-acc)))))))

\markup \draw-horizontal-arches #100

\markup
\override #'(thickness . 0.15)
\override #'(arch-length . 4)
\override #'(arch-height . 3)
\override #'(angularity . 0.8)
\draw-horizontal-arches #100

- and also I attach to this letter the PDF with these two lines.

Now may I ask you to help me build my third line - the waving one - of the same size and proportions?

My best regards and gratitude -

Леонід - Leonid

On Thu, Nov 25, 2021 at 7:38 AM Leonid Hrabovsky <lhrabovsky@gmail.com> wrote:

Hi Jean! Awesome, thanks!
Леонід - Leonid

Virus-free. www.avast.com

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

> 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

From:	Leonid Hrabovsky
Subject:	Re: Fwd: Fwd: Help
Date:	Thu, 25 Nov 2021 09:22:37 -0500