bbox

$fill bbox: returns coords of bounding box

obj method fill bbox {{raw no}} {
  if {[llength [my lines]] > 0} then {
    foreach line [my lines] {
      foreach {x0 y0 x1 y1} [$line bbox $raw] {
        lappend xCoords $x0 $x1
        lappend yCoords $y0 $y1
      }
    }
    list\
      [min {*}$xCoords] [min {*}$yCoords]\
      [max {*}$xCoords] [max {*}$yCoords]
  }
}