;;;;
;;;; source file of the GNU LilyPond music typesetter
;;;;
-;;;; (c) 2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+;;;; (c) 2004--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
;; (name . (glyph clef-position octavation))
;;
;; -- the name clefOctavation is misleading. The value 7 is 1 octave,
;; not 7 Octaves.
-(define supported-clefs
+(define-public supported-clefs
'(("treble" . ("clefs.G" -2 0))
("violin" . ("clefs.G" -2 0))
("G" . ("clefs.G" -2 0))
(csp (make-music 'ContextSpeccedMusic)))
(context-spec-music seq 'Staff))
(begin
- (ly:warn (_ "Unknown clef type `~a' clef-name"))
- (ly:warn (_ "See scm/lily.scm for supported clefs"))
+ (ly:warning (_ "unknown clef type `~a'") clef-name)
+ (ly:warning (_ "see scm/clef.scm for supported clefs"))
(make-music 'Music)))))