#include	"focas1.h"

/* RESOLUTION -- Resolution classifier */

resolution (catalog, type, center, v0, v1) 
char	*catalog;
int	*type, *center;
float	*v0, *v1;
{
    long    szrec, szobjrec();
    struct objrec   ob;
    static struct areas    area;
    int     tmpflag;

    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);
	    fit (&ob, &area, *type, *center, *v0, *v1, &tmpflag);
	    classes (&ob);
	}
	fseek (cfd, -szrec, 1);
	wtcat (&ob, cfd);
    }

    fclose (afd);
    fclose (cfd);
}