pro scale, datain, imin, imax, dataout
;
tmpmin=float(min(datain))
tmpmax=float(max(datain))
dataout=byte( (imax-imin)*(datain-tmpmin)/(tmpmax-tmpmin) + imin )
;
return
end