Index: trunk/stac/scripts/fakeimage.c
===================================================================
--- trunk/stac/scripts/fakeimage.c	(revision 743)
+++ trunk/stac/scripts/fakeimage.c	(revision 843)
@@ -1,4 +1,4 @@
 /*
-** $Id: fakeimage.c,v 1.3 2004-05-20 00:17:00 price Exp $
+** $Id: fakeimage.c,v 1.4 2004-06-03 20:03:58 price Exp $
 ** Program to make some fake images.
 **
@@ -563,5 +563,5 @@
     for (j=minj;j<=maxj;j++)
 	for (k=mink;k<=maxk;k++)
-	    data[(nx+nxos)*k+j] += flux*exp(-1.0 * ((x-j)*(x-j) + (y-k)*(y-k))/2.0/(seeing/SIGMAtoFWHM)/(seeing/SIGMAtoFWHM));
+	    data[(nx+nxos)*k+j] += flux/sqrt(2.0*M_PI)/(seeing/SIGMAtoFWHM)*exp(-1.0 * ((x-j)*(x-j) + (y-k)*(y-k))/2.0/(seeing/SIGMAtoFWHM)/(seeing/SIGMAtoFWHM));
     
 }