RTRandomLayout

RTRandomLayout>#doExecute:

doExecute: elements
    |  seed  |
    elements isEmpty ifTrue: [ ^ self ].
    seed := elements size * 5.
    elements
        do: [ :each | 
            | point center|
            center := Point x: seed asInteger atRandom 
                    y: seed asInteger atRandom.
            point := center + 
                (Point r: seed asInteger atRandom theta: 10).
            translator translateTopLeftOf: each to: point.
            self step ]