;+
; NAME:  asinh_demo
; PURPOSE:
; 	demonstrate use of asinh scaling routines
;
; INPUTS:
; KEYWORDS:
; OUTPUTS:
;
; HISTORY:
; 	Began 2006-12-18 14:52:01 by Marshall Perrin 
;-

 psf = airy(8.0, 1.6e-6, 0.005,256)
 !p.multi = [0,3,2]

	 imdisp, alogscale(psf),/axis
	 xyouts, 50,30,"Logarithmic",chars=1


 for i=2L,6 do begin
	 imdisp, asinhscl(psf,nonlin= 10.^i),/axis
	 xyouts, 50,30,"Asinh, nonlinearity = 1e"+strc(i),chars=1

endfor 
	 

end