Simplify tremolo display (issue 3783)

diff --git a/input/regression/display-lily-tests.ly b/input/regression/display-lily-tests.ly
index 10dccdded23fe18fc05ba38c22ff89e8b3d2f09b..3b99a96bc2ad07b8a3a3cb73c1a360afc826fe1f 100644 (file)
--- a/input/regression/display-lily-tests.ly
+++ b/input/regression/display-lily-tests.ly
@@ -107,7 +107,7 @@ stderr of this run."
 \test ##[ c4 ~ #]                                      % TieEvent
 \test ##[ c\noBeam #]                                  % BeamForbidEvent
 \test ##[ c\1 #]                                       % StringNumberEvent
-\test ##[ { c: c:1 } #]                                        % TremoloEvent
+\test ##[ { c:8 c:1 } #]                               % TremoloEvent
 \test ##[ { c-^ c^^ c_^ } #]                           % ArticulationEvent
 \test ##[ { c-+ c^+ c_+ } #]
 \test ##[ { c-- c^- c_- } #]

diff --git a/scm/define-music-display-methods.scm b/scm/define-music-display-methods.scm
index 431f9a6e954d31d22a90f185122539acca30a662..c4ed5344780bea8aedeed5aef4176bdee95e51b2 100644 (file)
--- a/scm/define-music-display-methods.scm
+++ b/scm/define-music-display-methods.scm
@@ -167,10 +167,8 @@ expression."
 
 
 (define-display-method TremoloEvent (event parser)
-  (let ((tremolo-type (ly:music-property event 'tremolo-type)))
-    (format #f ":~a" (if (= 0 tremolo-type)
-                         ""
-                         tremolo-type))))
+  (let ((tremolo-type (ly:music-property event 'tremolo-type 8)))
+    (format #f ":~a" tremolo-type)))
 
 (define-display-method ArticulationEvent (event parser) #t
   (let* ((articulation  (ly:music-property event 'articulation-type))