pro mgdgvars::save
compile_opt strictarr
self.p = !p
self.x = !x
self.y = !y
self.z = !z
self.map = !map
end
pro mgdgvars::restore
compile_opt strictarr
!p = self.p
!x = self.x
!y = self.y
!z = self.z
!map = self.map
end
pro mgdgvars::cleanup
compile_opt strictarr
end
function mgdgvars::init
compile_opt strictarr
return, 1B
end
pro mgdgvars__define
compile_opt strictarr
define = { MGdgVars, $
p: !p, $
x: !x, $
y: !y, $
z: !z, $
map: !map $
}
end
window, 0
plot, findgen(10)
window, 1
plot, 2 * findgen(10)
wset, 0
coords = convert_coord([5], [5], /data, /to_normal)
plots, coords[0], coords[1], /normal, psym=7
vars = obj_new('MGdgVars')
window, 2
plot, findgen(10)
vars->save
window, 3
plot, 2 * findgen(10)
wset, 2
vars->restore
coords = convert_coord([5], [5], /data, /to_normal)
plots, coords[0], coords[1], /normal, psym=7
obj_destroy, vars
end