rotateObj

$fill rotateObj x y xC yC dist dPhi scale: rotates object interactively

obj method fill rotateObj {x y xC yC dist {dPhi 0} {scale no}} {
  if {[$self constraint orient]} then {
    set centerDot [my centerDot]
    lassign [$centerDot storeXY info] centerX centerY
    $centerDot rotateObj $x $y $xC $yC $dist $dPhi $scale
    set dx [- [$centerDot cget -x] $centerX]
    set dy [- [$centerDot cget -y] $centerY]
    lappend transformL moveHorizontal $dx moveVertical $dy
    $self dots transform {*}$transformL
  } else {
    $self lines rotateObj $x $y $xC $yC $dist $dPhi $scale no
  }
  $self draw
}