Re: Fwd: Help

[Jean Abou Samra]

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