bbox

$line bbox: returns coords of bounding box

obj method line bbox {{raw no}} {
  set coords [$self xy $raw]
  if {[$self cget -smooth]} then {
    bezier bbox $coords
  } else {
    lassign $coords x0 y0 x1 y1
    list [min $x0 $x1] [min $y0 $y1] [max $x0 $x1] [max $y0 $y1]
  }
}