{ RCSid $Id: gaussian.cal,v 1.2 2018/11/21 18:10:45 greg Exp $ }
{
	Kernel for Gaussian filter
}
kern(x,y) : exp(-(x*x+y*y)/.25);