#  Plate 4.2: Random Paint Splatters

$define Width 600
$define Height 400
$define Spots 500
$define MaxRadius 40

link graphics

procedure main()
   local r

   WOpen("width=" || Width, "height=" || Height) | stop("*** cannot open window")
   every 1 to Spots do {
      Fg(RandomColor())
      r := ?0 * ?0 * ?0 * MaxRadius
      FillCircle(r + ?(Width - 2 * r), r + ?(Height - 2 * r), r)
      }
   WDone()

end