Re: Scheme function problems

[Nicolas Sceaux]

Kieren Richard MacMillan <address@hidden> writes:

> Hi, Jan:
>
> Thanks! Your code works great...
>
> One more question -- I want to compensate, but neither
>
>      \once \override Score.BarLine #'space-alist =
>      #`((first-note extra-space . ,$padding) (right-edge extra- 
> space . -,$padding))

this is internally changed to:

#`((first-note extra-space . ,lilyvartmpa) 
   (right-edge extra-space . -,$padding))

-,$padding is just a strange symbol name.

> nor
>
>      \once \override Score.BarLine #'space-alist =
>      #`((first-note extra-space . ,$padding) (right-edge extra- 
> space . (* -1 ,$padding ) ))

This is changed to:

#`((first-note extra-space . ,lilyvartmpa) 
   (right-edge extra-space . (* -1 ,lilyvartmpa)))

which value would be (with 3.0 padding):

((first-note extra-space . 3.0) 
 (right-edge extra-space . (* -1 3.0)))

That is, the right edge extra space value is not a number, but a list,
containing the procedure * and the numbers -1 and 3.0.

Use:

#`((first-note extra-space . ,$padding) 
   (right-edge extra-space . ,(* -1 $padding)))

or

#`((first-note extra-space . ,$padding) 
   (right-edge extra-space . ,(- $padding)))