;+
; NAME:
;     Z2GIF
; PURPOSE:
;     dumps an image to a .gif file in the current directory
; CATEGORY:
; CALLING SEQUENCE:
;     z2gif, data
; INPUTS:
; OPTIONAL (KEYWORD) INPUT PARAMETERS:
;     color table by IDL number (reversed if negative), default 15
; OUTPUTS:
; COMMON BLOCKS:
; SIDE EFFECTS:
; RESTRICTIONS:
; MODIFICATION HISTORY:
;     30-dec-99, hsh
;-

pro z2gif, data, ct=ct, outfil = outfil
if n_elements(outfil) eq 0 then outfil = 'z2gif.gif'
plotdev = !D.NAME
set_plot,'z
if n_elements(ct) eq 0 then ct = 15
if ct lt 0 then begin
  ct = -ct
  over = 1
endif
loadct,ct
if n_elements(over) then over
wdef,0,image=data
tvscl,data
out= tvrd()
tvlct,r,g,b,/get
write_gif,outfil,out,r,g,b
set_plot, plotdev
print,'
print,'Have created a file z2gif.gif on the current directory'
end