dots

$fill dots: returns list of contained dots
$fill dots show: shows dots on canvas

obj method fill dots args {
  lappend result
  lappend options
  while {[string index $args 0] eq "-"} {
    set args [lassign $args option]
    if {$option eq "-gravity"} then {
      if {![$self constraint gravity]} then {
        lappend options $option
      }
    } else {
      lappend options $option
    }
  }
  set result [concat {*}[$self lines dots {*}$options]]
  lmap obj [lunique $result] {$obj {*}$args}
}