;+
; Compute a transformation representing a scaling.
;
; @returns fltarr(4, 4)
; @param sx {in}{required}{type=float} amount to scale target in x-direction
; @param sy {in}{required}{type=float} amount to scale target in y-direction
; @param sz {in}{required}{type=float} amount to scale target in z-direction
;-
function mg_scale, sx, sy, sz
compile_opt strictarr
omodel = obj_new('IDLgrModel')
omodel->scale, sx, sy, sz
omodel->getProperty, transform=t
obj_destroy, omodel
return, t
end