#include	"focas1.h"

clean (catalog, grow)

char	*catalog;
float	*grow;

{
    int     i;
    struct objrec   ob;
    static struct areas    area;
    static struct image    p;

    cfd = catopen (catalog, 0);
    rdcathdr (cfd, 0);
    afd = fndar (sp.arfl, 0);
    pfd = fndfld (sp.ptfl, 2);

    for (;;) {
	if (rdcatob (cfd, 0L, &ob))
	    break;
	if (ffilter (&ob)) {
	    rdarea (afd, ob.entnum, ob.subent, ob.arpos, &area);
	    if (rdimg (pfd, area.rct, &p) < 0)
		continue;
	    if (imgsub (&area, &p, *grow))
		continue;
	    subimg (pfd, &p);
	}
    }
}