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