scaleObjNumeric

$dot scaleObjNumeric cx cy fx fy: produces scaling transformation

obj method dot scaleObjNumeric {cx cy fx fy} {
  $self transform scaleHorizontal "$cx $fx" scaleVertical "$cy $fy"
}