Re: Roman numerals in my number sequence

[Dmytro O. Redchuk]

On Thu 17 Mar 2011, 09:13 Adam Good wrote:
> Carl thank you for the input! Unfortunately I get an error that I
> don't know how to do anything with. Below is my input and output.
> 
> If you or anyone can help this would be a nice help to me. Thanks!
> Adam
> 
> @@@
> 
> \version "2.12.3"
> 
> #(define sequence-number 0)
> 
> #(define-markup-command (score-sequence layout props sequence-number)
>  (number?)
>  (interpret-markup layout props
>    (markup #:circle (number->string sequence-number))))
> 
> #(set! sequence-number (1+ sequence-number))
> \markup { \score-sequence #(fancy-format #f "address@hidden" sequence-number) 
> }
> 
> (-- output --)
> 
> GNU LilyPond 2.12.3
> Processing `Roman_numeral_count.ly'
> Parsing...Roman_numeral_count.ly:8:21: In procedure number->string in
> expression (number->string sequence-number):
> Roman_numeral_count.ly:8:21: Wrong type argument in position 1: "I"
fancy-format feeds "I" instead of 1 ("II" instead of 2 etc) to
\score-sequence; since it's what you need (i believe) --- just remove
number->string conversion:

%---------------------8<-------------------------------
#(define sequence-number 0)

% I've renamed sequence-number to sequence-string
% inside score-sequence definition,
% since it's not a number so far:
#(define-markup-command (score-sequence layout props sequence-string)
 (string?)
  (interpret-markup layout props
     (markup #:circle sequence-string)))

#(set! sequence-number (1+ sequence-number))
\markup { \score-sequence #(fancy-format #f "address@hidden" sequence-number) }

#(set! sequence-number (1+ sequence-number))
\markup { \score-sequence #(fancy-format #f "address@hidden" sequence-number) }
%---------------------8<-------------------------------

-- 
  Dmytro O. Redchuk
  Bug Squad