as so often,
the solution came when I hit the enter button 
r = self.Size[0] / 2
I don't know why,
but if I subtract half the penwidth, like this:
r = ( r - w / 2 )
everything works as expected,
although I don't understand why.
cheers,
Stef Mientki