Changeset 188 in Sophya for trunk/SophyaPI

Timestamp:

Jan 18, 1999, 1:11:40 PM (27 years ago)

Author:

ercodmgr

Message:

bug pitgr, clean ds makefile (rz+cmv 18/1/99)

Location:

trunk/SophyaPI/PI/Tests

Files:

• Makefile (modified) (1 diff)
• pitgr.cc (modified) (1 diff)

trunk/SophyaPI/PI/Tests/Makefile

@@ -46 +46 @@
 
 
+clean:
+        rm -f $(OBJ)pit0.o $(OBJ)pit1.o $(OBJ)pitcons.o $(OBJ)pitgr.o $(OBJ)pitst.o
+        rm -f $(EXE)pit0 $(EXE)pit1 $(EXE)pitcons $(EXE)pitgr $(EXE)pitst

trunk/SophyaPI/PI/Tests/pitgr.cc

@@ -264 +264 @@
         amp = pow(10., lamp);
 //        if (k%5 == 0)  printf(" DBG %d %d - %g \n", i0, j0, flux);
-        for(i=i0-15; i<i0+15; i++)
+        for(i=i0-15; i<i0+15; i++) {
+          if(i<0 || i>=sx) continue;
           for(j=j0-15; j<j0+15; j++) {
+            if(j<0 || j>=sy) continue;
             x = i-i0;  y = j-j0;
             kk = j*sx+i;
             img[kk] += amp*exp(-(x*x)/7.-(y*y)/8.);
             }
+        }
       }
       printf("  >> OK \n");