pannerproc _mapc {view which} {
set viewpos [lindex [$d(canvas) $view] $which]
set r [expr {$viewpos * $d(mul_$view) + $d(add_$view)}]
pannerproc _mapc {view which} {
set viewpos [lindex [$d(canvas) $view] $which]
set r [expr {$viewpos * $d(mul_$view) + $d(add_$view)}]