lines

$group lines: returns contained lines
$group dots draw: applys method draw to its lines

obj method group lines args {
  lappend result
  foreach obj [my elements] {
    lappend result {*}[$obj lines]
  }
  lmap obj [lunique $result] {$obj {*}$args}
}