On 20 Oct 2008, at 15:00, Graham Percival wrote:
I am pleased to re-announce that I am an idiot.
Ahem...
Please ignore the
previous message about "elegant" compound time signatures; the
attached file is *much* better.
- arbitrary time signatures, with arbitrary compound-ness.
- more aesthetically pleasing graphical display, including less
wasted score-space
- nicer .ly files (although still not ideal, this is as good as it
can get without messing with the parser)
...I got a lot of errors :-); and the time signatures do not show.
Hans
----
$ lilypond compound-test.ly && open compound-test.pdf
GNU LilyPond 2.11.62
Processing `compound-test.ly'
Parsing...
<string>:5:57: error: GUILE signaled an error for the expression
beginning here
\once \override Staff.TimeSignature #(quote text) = #
(markup %%
parenthetical display of compound-ness #:column (#:small #:line
(#:concat ("(" %% list the additive portions of the time signature, %%
adding "+" between items. (make-line-markup (list-insert-separator (map
(lambda (n) (markup (number->string n))) lilyvartmpb) (markup "+")))
")")) #:override (quote (baseline-skip . 0)) %% main time signature
display (#:number #:line (#:column ((number->string (car lilyvartmpc))
(number->string (cadr lilyvartmpd)))))))
Unbound variable: %%
<string>:5:57: error: GUILE signaled an error for the expression
beginning here
\once \override Staff.TimeSignature #(quote text) = #
(markup %%
parenthetical display of compound-ness #:column (#:small #:line
(#:concat ("(" %% list the additive portions of the time signature, %%
adding "+" between items. (make-line-markup (list-insert-separator (map
(lambda (n) (markup (number->string n))) lilyvartmpb) (markup "+")))
")")) #:override (quote (baseline-skip . 0)) %% main time signature
display (#:number #:line (#:column ((number->string (car lilyvartmpc))
(number->string (cadr lilyvartmpd)))))))
Unbound variable: %%
<string>:5:57: error: GUILE signaled an error for the expression
beginning here
\once \override Staff.TimeSignature #(quote text) = #
(markup %%
parenthetical display of compound-ness #:column (#:small #:line
(#:concat ("(" %% list the additive portions of the time signature, %%
adding "+" between items. (make-line-markup (list-insert-separator (map
(lambda (n) (markup (number->string n))) lilyvartmpb) (markup "+")))
")")) #:override (quote (baseline-skip . 0)) %% main time signature
display (#:number #:line (#:column ((number->string (car lilyvartmpc))
(number->string (cadr lilyvartmpd)))))))
Unbound variable: %%
<string>:5:57: error: GUILE signaled an error for the expression
beginning here
\once \override Staff.TimeSignature #(quote text) = #
(markup %%
parenthetical display of compound-ness #:column (#:small #:line
(#:concat ("(" %% list the additive portions of the time signature, %%
adding "+" between items. (make-line-markup (list-insert-separator (map
(lambda (n) (markup (number->string n))) lilyvartmpb) (markup "+")))
")")) #:override (quote (baseline-skip . 0)) %% main time signature
display (#:number #:line (#:column ((number->string (car lilyvartmpc))
(number->string (cadr lilyvartmpd)))))))
Unbound variable: %%
<string>:5:57: error: GUILE signaled an error for the expression
beginning here
\once \override Staff.TimeSignature #(quote text) = #
(markup %%
parenthetical display of compound-ness #:column (#:small #:line
(#:concat ("(" %% list the additive portions of the time signature, %%
adding "+" between items. (make-line-markup (list-insert-separator (map
(lambda (n) (markup (number->string n))) lilyvartmpb) (markup "+")))
")")) #:override (quote (baseline-skip . 0)) %% main time signature
display (#:number #:line (#:column ((number->string (car lilyvartmpc))
(number->string (cadr lilyvartmpd)))))))
Unbound variable: %%
<string>:5:57: error: GUILE signaled an error for the expression
beginning here
\once \override Staff.TimeSignature #(quote text) = #
(markup %%
parenthetical display of compound-ness #:column (#:small #:line
(#:concat ("(" %% list the additive portions of the time signature, %%
adding "+" between items. (make-line-markup (list-insert-separator (map
(lambda (n) (markup (number->string n))) lilyvartmpb) (markup "+")))
")")) #:override (quote (baseline-skip . 0)) %% main time signature
display (#:number #:line (#:column ((number->string (car lilyvartmpc))
(number->string (cadr lilyvartmpd)))))))
Unbound variable: %%
Interpreting music...
warning: type check for `text' failed; value `#<unspecified>' must be of
type `markup'
warning: type check for `text' failed; value `#<unspecified>' must be of
type `markup'
warning: type check for `text' failed; value `#<unspecified>' must be of
type `markup'
warning: type check for `text' failed; value `#<unspecified>' must be of
type `markup'
warning: type check for `text' failed; value `#<unspecified>' must be of
type `markup'
warning: type check for `text' failed; value `#<unspecified>' must be of
type `markup'
[8][8]
Preprocessing graphical objects...
programming error: Object is not a markup.
continuing, cross fingers
This object should be a markup: ()
programming error: Object is not a markup.
continuing, cross fingers
This object should be a markup: ()
programming error: Object is not a markup.
continuing, cross fingers
This object should be a markup: ()
programming error: Object is not a markup.
continuing, cross fingers
This object should be a markup: ()
programming error: Object is not a markup.
continuing, cross fingers
This object should be a markup: ()
programming error: Object is not a markup.
continuing, cross fingers
This object should be a markup: ()
programming error: Object is not a markup.
continuing, cross fingers
This object should be a markup: ()
programming error: Object is not a markup.
continuing, cross fingers
This object should be a markup: ()
programming error: Object is not a markup.
continuing, cross fingers
This object should be a markup: ()
programming error: Object is not a markup.
continuing, cross fingers
This object should be a markup: ()
programming error: Object is not a markup.
continuing, cross fingers
This object should be a markup: ()
programming error: Object is not a markup.
continuing, cross fingers
This object should be a markup: ()
programming error: Object is not a markup.
continuing, cross fingers
This object should be a markup: ()
programming error: Object is not a markup.
continuing, cross fingers
This object should be a markup: ()
programming error: Object is not a markup.
continuing, cross fingers
This object should be a markup: ()
programming error: Object is not a markup.
continuing, cross fingers
This object should be a markup: ()
programming error: Object is not a markup.
continuing, cross fingers
This object should be a markup: ()
Finding the ideal number of pages...
Fitting music on 1 page...
Drawing systems...
Layout output to `compound-test.ps'...
Converting to `./compound-test.pdf'...
----
_______________________________________________
lilypond-user mailing list
address@hidden
http://lists.gnu.org/mailman/listinfo/lilypond-user