Issue 3560: Completion_heads_engraver with \scaleDurations

ly/engraver-init.ly

 %%%% This file is part of LilyPond, the GNU music typesetter.
 %%%%
 %%%% Copyright (C) 1996--2012 Han-Wen Nienhuys <hanwen@xs4all.nl>
 %%%%                          Jan Nieuwenhuizen <janneke@gnu.org>
 %%%%
 %%%% LilyPond is free software: you can redistribute it and/or modify
 %%%% it under the terms of the GNU General Public License as published by
 %%%% the Free Software Foundation, either version 3 of the License, or
 %%%% (at your option) any later version.
 %%%%
@@ skipping 615 matching lines @@
 %% at initialization time by calling the functions in
 %% scm/time-signature-settings.scm
 
   timeSignatureSettings = #default-time-signature-settings
   timeSignatureFraction = 4/4
 
   beamHalfMeasure = ##t
 
   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." "*")
   pedalSustainStyle = #'text
   pedalUnaCordaStrings = #'("una corda" "" "tre corde")
   pedalUnaCordaStyle = #'text
 
 %% These are in ordinary italic font, including the *,
 %% but they are unlikely to be used,
@@ skipping 602 matching lines @@
 
 RemoveEmptyRhythmicStaffContext = \context {
   \RhythmicStaff
   \RemoveEmptyStaves
 }
 
 RemoveEmptyTabStaffContext = \context {
   \TabStaff
   \RemoveEmptyStaves
 }