shearHorizontal

shearHorizontal x y BotY TopY dx: shears horizontally

obj inscope dot proc shearHorizontal {x y BotY TopY dx} {
  list [expr {$x + $dx * ($y - $BotY) / ($TopY - $BotY)}] $y
}