1 % #(define pieceTagLine "Copyright 2002 (C) Mutopia")
3 #(define (my-ly-version)
4 (let ((version (ly:version)))
5 (list (car version) (cadr version) (caddr version))))
7 #(if (not (defined? 'pieceTagLine))
8 (define pieceTagLine (string-append "Jeremie " (numbers->string (my-ly-version)) " was here")))
10 pieceTagLine = #pieceTagLine
12 tagline = \pieceTagLine
13 texidoc = "High level functionality can be accomplished with GUILE. Semantics aren't nice though."
16 \score{ \notes{ c4 } }