;+
; NAME: asinhscl_color 
; PURPOSE:
;	RGB asinh scaling, in the manner of Lupton et al.
;	
; INPUTS:
; 	image	data cube, in RGB order.
; KEYWORDS:
; OUTPUTS:
;
; HISTORY:
; 	Began 2006-07-11 19:57:05 by Marshall Perrin 
;-

function asinhscl_color,image,_extra=_extra

	radius = (total(image,3))>0   
	r = 0>(image[*,*,0]/radius)<1
	g = 0>(image[*,*,1]/radius)<1
	b = 0>(image[*,*,2]/radius)<1
	val = asinhscl(radius,_extra=_extra)
	colors = byte([[[r*val]],[[g*val]],[[b*val]]])
return,colors


end