scaleObj

$line scaleObj x y x0 y0 refX refY mode draw
scales line object interactively

obj method line scaleObj {x y x0 y0 refX refY {mode both} {draw yes}} {
  if {[$self constraint size]} then {
    set centerDot [my centerDot]
    lassign [$centerDot storeXY info] centerX centerY
    $centerDot scaleObj $x $y $x0 $y0 $refX $refY $mode
    set dx [- [$centerDot cget -x] $centerX]
    set dy [- [$centerDot cget -y] $centerY]
    lappend transformL moveHorizontal $dx moveVertical $dy
    $self dots transform {*}$transformL
  } else {
    $self dots scaleObj $x $y $x0 $y0 $refX $refY $mode
  }
  if {$draw} then {
    $self dots lines draw coords
  }
}

© Wolf-Dieter Busch | Home | Sitemap | Urheber | A-Z