Re: Roman numerals in my number sequence

[Adam Good]

Completely awesome. Thank you guys so much for your help. Long live
Lilyponders!!

On Thu, Mar 17, 2011 at 9:48 AM, Dmytro O. Redchuk
<address@hidden> wrote:
> 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
>