calcAxis

$canvaseditor calcAxis: finds axis for interactively shearing at arbitary axis

obj method canvaseditor calcAxis {} {
  set objects {}
  set nDot [$self nearestDot]
  foreach item [$self canvas find withtag line] {
    foreach tag [$self canvas gettags $item] {
      if {[regexp {line(::.+)} $tag - obj]} then {
        if {[$obj topgroup] in [my selection]} then {
          if {$nDot ni [$obj dots]} then {
            lappend objects $obj
          }
        }
      }
    }
  }
  lindex $objects end
}