shearVertical

shearVertical x y leftX RightX: shears coordinates x, y vertically

obj inscope dot proc shearVertical {x y LeftX RightX dy} {
  list $x [expr {$y + $dy * ($x - $LeftX) / ($RightX - $LeftX)}]
}