2009/11/5 Michael Käppler <xmichae...@web.de>:
> Hmm... I did not test this.
> Try this:
>
> (define annotate? layout . dir)
> (case (and (pair? dir) (car dir))
> (('X) (ly:output-def-lookup layout 'annotate-x-spacing))
> (('Y) (ly:output-def-lookup layout 'annotate-y-spacing))
> ((#f) (or (annotate? layout X) (annotate? layout Y))
> (else #f)))
You haven't tested this either, have you. :P
I've uploaded a revised version based on your suggestion. :)
Regards,
Neil
_______________________________________________
lilypond-devel mailing list
lilypond-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/lilypond-devel
