#include	"focas1.h"

int	tmpflag;

/* NEWRES -- New resolution classifier */

newres (catalog, type, center, clsf, minr, maxr, rn, sky) 
char	*catalog;
int	*type, *center, *clsf;
float	*minr, *maxr, *rn, *sky;
{
    long    szrec, szobjrec();
    struct objrec   ob;
    static struct areas    area;

    setr();
    cfd = catopen (catalog, 2);
    cmmnt ("resolution");
    wtcathdr (cfd, 0);
    afd = fndar (sp.arfl, 0);
    pfd = fndfld (sp.ptfl, 0);
    szrec = szobjrec ();

    tmpflag = 0;
    for (;;) {
	if (rdcatob (cfd, 0L, &ob))
	    break;
	if (ffilter (&ob)) {
	    rdarea (afd, ob.entnum, ob.subent, ob.arpos, &area);
	    newfit (&ob, &area, *type, *center, *clsf, *minr, *maxr, *rn, *sky);
	    classes (&ob);
	}
	fseek (cfd, -szrec, 1);
	wtcat (&ob, cfd);
    }

    fclose (afd);
    fclose (cfd);
}