;+ ; Contains the spdynx procedure ; ; :Author: ; Philippe Zarka ; ; :History: ; 2003/12/08: Created ; ; 2003/12/08: Last Edit ;- ; ;+ ; spdynx is a procedure that <behavior desc here> ; ; :Params: ; image: in, required, type=sometype ; A parameter named image ; xmin: in, required, type=sometype ; A parameter named xmin ; xmax: in, required, type=sometype ; A parameter named xmax ; ymin: in, required, type=sometype ; A parameter named ymin ; ymax: in, required, type=sometype ; A parameter named ymax ; grid: in, required, type=sometype ; A parameter named grid ;- pro SPDYNX, image, xmin,xmax,ymin,ymax,grid tl=-0.04 if grid eq 1 then tl=1.0 !p.font=0 plot, [xmin,xmax], [ymin,ymax], /nodata, xrange=[xmin,xmax], xstyle=13, $ yra=[ymin,ymax], ystyle=13, ticklen=tl, $ /device, position=[80,40,80+n_elements(image(*,0)),40+n_elements(image(0,*))] tvscl, image, !x.window(0), !y.window(0), xsize=!x.window(1)-!x.window(0), $ ysize=!y.window(1)-!y.window(0),/normal axis, xaxis=0, xra=[xmin,xmax], xstyle=1, xticklen=tl axis, xaxis=1, xra=[xmin,xmax], xstyle=1, xticklen=tl, $ xtickname=replicate(' ',9) axis, yaxis=0, yra=[ymin,ymax], ystyle=1, yticklen=tl axis, yaxis=1, yra=[ymin,ymax], ystyle=1, yticklen=tl, $ ytickname=replicate(' ',9) return end