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
>>
>>
Building HrabovskyLine No.1-Arch Up Correction-C.pdf
Description: Adobe PDF document
