\version "2.19.5"
\language "english"

\paper {
  indent = 0
  line-width =  110
}

magnifyMusic =
#(define-scheme-function
     (parser location mag)
     (number?)
     (let ((omit-if-larger-accidental-exists
             (if (= mag 1) ; stop processing when mag is back to 1
               #f
               (lambda (acc)
                 (let* ((get-acc-pitch (lambda (x)
                                         (ly:event-property
                                           (ly:grob-property
                                             (ly:grob-property x 'cause)
                                             'cause)
                                           'pitch)))
                        (pitch (get-acc-pitch acc))
                        (notename (ly:pitch-notename pitch))
                        (acc-placement (ly:grob-parent acc X))
                        (acc-grobs (ly:grob-object acc-placement 'accidental-grobs))
                        (matching-notename-accidentals
                          (cdar (filter (lambda (x) (eq? notename (caar x)))
                                        acc-grobs)))
                        (unisons (filter (lambda (x) (equal? (get-acc-pitch x) pitch))
                                         matching-notename-accidentals)))
                   (if (< 1 (length unisons))
                     (let ((sorted-unisons
                             (sort unisons (lambda (a b) (> (ly:grob-property a 'font-size 0)
                                                            (ly:grob-property b 'font-size 0))))))
                       (for-each (lambda (x) (ly:grob-set-property! x 'stencil #f))
                                 (cdr sorted-unisons)))))))))
   #{
      \set fontSize = #(magnification->font-size mag)
      \override Stem.length-fraction = #mag
      \override Beam.length-fraction = #mag

      % gives beam-thickness=0.48 when mag=1 (like default),
      % gives beam-thickness=0.35 when mag=0.63 (like CueVoice)
      \override Beam.beam-thickness = #(+ 119/925 (* mag 13/37))

      \override Accidental.before-line-breaking = #omit-if-larger-accidental-exists
      \override AccidentalCautionary.before-line-breaking = #omit-if-larger-accidental-exists
   #}))

shift =
#(define-scheme-function (parser location) ()
   #{
      \once \override NoteHead.font-size =
      #(- (magnification->font-size 0.63))
   #})

<<
  \new Staff <<
    \key fs \minor
    \mergeDifferentlyDottedOn
    \mergeDifferentlyHeadedOn
    \override Staff.TimeSignature.break-visibility = ##(#f #f #t)
    \omit Score.BarNumber
    \new Voice \relative {
      \voiceOne
      \magnifyMusic 0.63
      \mark "desired:"
      \shift cs'32( cs' gs b a fs \shift d d'
      \shift cs, cs' gs b a gs \shift fs fs'
      \shift fs, fs' as, cs b gs \shift es es'
      \shift a, a' bs, d cs b \shift gs gs')
      \mark "without tweaks:"
      \time 4/4
      cs,,32( cs' gs b a fs d d'
      cs, cs' gs b a gs fs fs'
      fs, fs' as, cs b gs es es'
      a, a' bs, d cs b gs gs')
    }
    \new Voice \relative {
      \voiceTwo
      cs'8.  d16 cs8. fs16 fs8. es16 a8. gs16
      cs,8.  d16 cs8. fs16 fs8. es16 a8. gs16
    }
  >>
>>