Issue 3560: Completion_heads_engraver with \scaleDurations

ly/engraver-init.ly

Index: ly/engraver-init.ly
diff --git a/ly/engraver-init.ly b/ly/engraver-init.ly
index 9c8547dd7d024f8e6b0f6b07d9683e7ede62dd94..c6a76051bb017c81705674a9363b5de68e76e6aa 100644
--- a/ly/engraver-init.ly
+++ b/ly/engraver-init.ly
@@ -634,6 +634,8 @@ automatically when an output definition (a @code{\\score} or
   autoBeaming = ##t
   autoBeamCheck = #default-auto-beam-check
 
+  completionFactor = #ly:duration-scale

[Keith, 2013/10/26 06:37:13]

We do need to keep issue 1532 fixed, since several people depend on and expect
that behavior.

%% Historically, completion_heads_engraver has split integer-scaled
%% notes into notes with no scaling   c1*3  ==>  {c1~ c1~ c1~}
  completionFactor = #
  (lambda (dur)
    (let ((scale (ly:duration-scale dur)))
         (if (integer? scale)
              1
              scale)))

If you can make the test
   (if (> (ly:duration-length dur) measureLength)
then issue 1772 works as several people[*] expected.

[*] people including Neil, who had recently reviewed and pushed Páls patch to
make completion_*_engraver split tuplet-notes into tuplet-notes.

+
   scriptDefinitions = #default-script-alist
 
   pedalSustainStrings = #'("Ped." "*Ped." "*")