Re: Problems setting circle-padding

[Reinhold Kainhofer]

Am Dienstag, 10. Juni 2008 schrieb Steven Weber:
> #(define-markup-command (myCircle layout props name) (string?)
>   "Print the name inside a circle.  Syntax:  \\myCircle #\"note\""
>       (interpret-markup layout props
>                 (markup #:line (#:override (circle-padding . 0.5) (#:circle
> "Hi")))))
>
> When I try to call it { c'1 ^\markup { \myCircle #"Hi" } }, I get the
> following error:

Try adding a ' in front of (circle-padding . 0.5). This tells scheme that it 
is a pair rather than a call of a function called circle-padding. 

#(define-markup-command (myCircle layout props name) (string?)
  "Print the name inside a circle.  Syntax:  \\myCircle #\"note\""
      (interpret-markup layout props
                (markup #:line (#:override '(circle-padding . 0.5) (#:circle
"Hi")))))
{ c'1 ^\markup { \myCircle #"Hi" } }

Alternatively, you can use (cons circle-padding 0.05), which also constructs a 
pair.

> Any clue what's going on here, or why the exact string Lilypond claims to
> be using internally doesn't work?

Actually, this is a scheme/guile issue: when you display a scheme expression 
in guile (e.g. in the command line command guile), it omits the apostrophes 
for all quoted objects:
guile> (define a 'something)
guile> (display a)
something


Cheers,
Reinhold

-- 
------------------------------------------------------------------
Reinhold Kainhofer, Vienna University of Technology, Austria
email: address@hidden, http://reinhold.kainhofer.com/
 * Financial and Actuarial Mathematics, TU Wien, http://www.fam.tuwien.ac.at/
 * K Desktop Environment, http://www.kde.org, KOrganizer maintainer
 * Chorvereinigung "Jung-Wien", http://www.jung-wien.at/