Thank you! Sorry for omitting the option of answer to Mailing List - bit I
was sure that it is going by default... will look at it.


*Леонід - Leonid*


On Sun, Nov 21, 2021 at 10:52 AM Jean Abou Samra <j...@abou-samra.fr> wrote:

> Le 21/11/2021 à 15:50, Leonid Hrabovsky a écrit :
> > Jean, there is the log of my attempt to do your code -
> > # -*-compilation-*-
> > Processing `C:/Users/LH/Documents/Scores/LilyPond Scores/Hrabovsky
> > Lines Test-1.ly'
> > Parsing...
> > error: program too old: 2.20.0 (file requires: 2.22.1)
> > Finding the ideal number of pages...
> > Fitting music on 1 page...
> > Drawing systems...
> > Layout output to `./tmp-lilypond-Sr3odJ'...
> > Converting to `/Users/LH/Documents/Scores/LilyPond Scores/Hrabovsky
> > Lines Test-1.pdf'...
> > Deleting `./tmp-lilypond-Sr3odJ'...
> > fatal error: failed files: "C:\\Users\\LH\\Documents\\Scores\\LilyPond
> > Scores\\Hrabovsky Lines Test-1.ly"
> >
> > Do I have to upgrade the version to 2.22.1 only - or there are
> > necessary additional corrections for success?
>
>
> Hello Leonid,
>
> As requested by Harm, please keep the address of the
> mailing list in copy. This is so that other people can
> see the replies, add their own comments, and benefit
> from already proposed solutions in the future. So,
> in your mail client, click "Reply to all", not "Reply".
>
> If you can upgrade to version 2.22, that would be best.
> In version 2.20, you would have to use a different
> syntax for \override in markups, like this:
>
> \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 regards,
> Jean
>

Reply via email to