Re: Fwd: Help

[Leonid Hrabovsky]

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 <jean@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