-\version "1.7.18"
+\version "2.2.0"
%
% declare the standard dynamic identifiers.
%
#(define (make-dynamic-script str)
- (let* ((m (make-music-by-name 'AbsoluteDynamicEvent)))
- (ly:set-mus-property! m 'text str)
- m
- ))
+ (make-music 'AbsoluteDynamicEvent
+ 'text str))
ppppp = #(make-dynamic-script "pppp")
pppp = #(make-dynamic-script "pppp")
ppp = #(make-dynamic-script "ppp")