ThierryGoubier

"Morphic Performance Testing v2"
| rand creating deleting hiding showing ellipses |
rand := Random new.
creating :=
[ | m |   m := EllipseMorph  new.
  ellipses add: m.
     m color: Color random.
     m position: ActiveWorld extent * ((rand next)@(rand next))
].
deleting := [ World removeAllMorphsIn: ellipses].