scaleVertical

scaleVertical x y LeftX RightX dy: scales coordinates x, y vertically

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