{ RCSid $Id: clamp.cal,v 1.2 2018/11/21 18:10:45 greg Exp $ }
{
	Map values from 0 to inf softly from 0 to 1
}
clamp(x) = x/2 * (sqrt(x*x+4) - x);