!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! J.Pety 2004-2008
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
if .not.file("'name'.lmv-clean") then
   message e clean-res "Inexistent file "'name'".lmv-clean"
   return base
endif
if .not.file("'name'.lmv-res") then
   message e clean-res "Inexistent file "'name'".lmv-res"
   return base
endif
define image clean 'name'".lmv-clean" read
define image res   'name'".lmv-res"   read
define image diff  'name'".lmv-diff"  real /like clean
let diff% clean%
let diff clean-res
delete /var clean res diff
header 'name'".lmv-diff" /extrema
!
! Set type to cleaned image
let type lmv-diff
message i clean-res "Set type variable to "'type'
! Plot
@ p_plot.map diff
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
