wrong rhythmic dots

[Werner LEMBERG]

%
% This file shows problems with staves having different sizes in lilypond
% CVS 2004-03-12 07:17 MET.
%
% . The algorithm for computing position of rhythmic dots sometimes
%   produces wrong results.
%
%   This is a severe bug.
%
% . There should be a mechanism to give the staff size in a \with {...}
%   block with a single command, covering all parameters.  Perhaps a
%   new `set-staff-size' scheme function?

\version "2.1.30"

\score {
  <<
    \new Staff \with {
%     #(set-staff-size 5)
      fontSize = #-4
      \override StaffSymbol #'staff-space = #(magstep -4)
    }
    \notes \relative c' {
\override DynamicText #'extra-offset = #'(0 . 3)
\override DynamicLineSpanner #'staff-padding = #1
      s1-\f |
      c''8[(\< r a g]) e[ r d( <f a>])\! |
      \times 2/3 { d4 d d } c8[ b a g] |
      <d f>4. <d f> <e g>4 |
    }
    \new Staff
    \notes \relative c' {
\override DynamicText #'extra-offset = #'(0 . 3)
\override DynamicLineSpanner #'staff-padding = #1
      s1-\f |
      c''8[(\< r a g]) e[ r d( <f a>])\! |
      \times 2/3 { d4 d d } c8[ b a g]
      <d f>4. <d f> <e g>4 |
    }
  >>

  \paper {
    #(paper-set-staff-size 6)
    raggedright = ##t
  }
}

% EOF