sz = size( images )
imageb = bytarr( sz(1), sz(2), sz(3) )
help, images, imageb

if N_elements( maxs ) ne sz(3) then begin
	if keyword_set( same_max ) then begin
		maxs = replicate( max( images ), sz(3) )
	 endif else begin
		for i=0,2 do maxs(i) = max( images(*,*,i) )
	  endelse
   endif

if N_elements( mins ) ne sz(3) then mins = replicate( 1.0, sz(3) )

print," scaling to bytes..."
print,mins,maxs
help,minLog

for i=0,sz(3)-1 do imageb(*,*,i) = scale_image( images(*,*,i), MIN=mins(i), $
						MAX=maxs(i), LOG=minLog )

print," computing psuedo-true-color image..."

image_ptc = color_quan( imageb(*,*,0), $
			imageb(*,*,1), $
			imageb(*,*,2), ctr,ctg,ctb)

get_window,0, XS=sz(1), YS=sz(2),/SHOW
tv, image_ptc
tvlct, ctr, ctg, ctb

help, image_ptc, ctr, ctg, ctb
tvcrs,0.5,0.5,/NORM
save_window
end