function sxt_comp_sharp,image,scatt=scatt,level=level,uncomp=uncomp
;+
; NAME
;  sxt_comp_sharp.pro  
; PURPOSE
;  An alternative routine to emphasise faint features in sxt images  
;
; CALLING SEQUENCE
;  sh_image=sxt_comp_sharp(image)
;
; INPUT
;  Image :  SXT desaturated uncompressed full frame image.
;
; OPTIONAL INPUT
; level : increase or decrease the scattered light normalisation. 
;
; OUTPUT
;  sfd compressed image, to display with tvscl
;  Image normalised to the background scatter field. 
;  
; OPTIONAL OUTPUT
;  scatt  : Default scatter halo as calculated using SXT_SCATTER
;
; OPTIONAL KEYWORD INPUT
;  uncomp : To return uncompressed version of array.
;
; RESTRICTION
;  Currently only > 15s exposures
;  Works well with images recorded prior to filter hit.
;
; HISTORY
;  Written CAF  2 MAY 96 : caf@mssl.ucl.ac.uk
;          CAF  8-Oct-96 : added call to Spikes_off and uncomp keywords, 
;                          and general cleaned up.
;          CAF 25-Feb-97 : Replaced call to Spikes_off with de_spiker (LWA)
;-
if n_elements(level) eq 0 then level=1.
imag=float(dustoff(image))
ima =de_spiker(imag,10,/pos,/neg)
sxt_scatter,ima>0.,scatt
im=bytscl(sfd_comp((ima>0.)/(scatt*level)))
if keyword_set(uncomp) then im=(ima/(scatt*level))
return,im
end