scaleHorizontal

scaleHorizontal x y c f: scales coordinates x, y horizontally

obj inscope dot proc scaleHorizontal {x y c f} {
  list [expr {$c + ($x - $c) * $f}] $y
}