-\version "2.14.0"
+\version "2.16.0"
\header {
texidoc = "Incipits can be printed using an @code{InstrumentName}
}
%% to prevent warnings/programming errors:
-#(set-object-property! 'music 'backend-type? ly:music?)
-#(set-object-property! 'music 'backend-doc "Incipit music")
-#(ly:add-interface 'incipit-interface "An incipit." '(music))
-#(let* ((instrument-def (assoc 'InstrumentName all-grob-descriptions))
- (meta-def (assoc 'meta (cdr instrument-def)))
- (interfaces-def (assoc 'interfaces (cdr meta-def)))
- (interfaces (cdr interfaces-def)))
- (set-cdr! interfaces-def (cons 'incipit-interface interfaces)))
+#(begin
+ (set-object-property! 'music 'backend-type? ly:music?)
+ (set-object-property! 'music 'backend-doc "Incipit music")
+ (ly:add-interface 'incipit-interface "An incipit." '(music))
+ (let* ((instrument-def (assoc 'InstrumentName all-grob-descriptions))
+ (meta-def (assoc 'meta (cdr instrument-def)))
+ (interfaces-def (assoc 'interfaces (cdr meta-def)))
+ (interfaces (cdr interfaces-def)))
+ (set-cdr! interfaces-def (cons 'incipit-interface interfaces))))
\score {
\new Staff {
indent = 5\cm
incipit-width = 3\cm
}
-}
\ No newline at end of file
+}