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
(* angularityarch-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*


<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 7:38 AM Leonid Hrabovsky <lhrabov...@gmail.com>
wrote:

> 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>
> <#m_9207054232206799854_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
>>
>>

Attachment: Building HrabovskyLine No.1-Arch Up Correction-C.pdf
Description: Adobe PDF document

Reply via email to