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