/*
 * dcclean.c		Jim Piper		02-02-88
 *
 * Clean up early dicentric data files by
 *[	(1) erosion, dilation				]
 *	(2) castellation correction
 *[	(3) convert bype==UNSHURE to DICENTRIC|UNSHURE	]
 */
#include <stdio.h>
#include <wstruct.h>
#include <chromanal.h>
#include <otypes.h>

main()
{
	struct chromosome *obj, *objlist[200], *readobj();
	struct chromosome *dilation(), *erosion(), *dobj;
	struct object *uobj, *unionn(), *t0, *t1;
	struct chromplist *plist;
	int i,numobj;
	
	numobj = 0;
	while ((obj=readobj(stdin)) != NULL) {
/*
		if (area(obj) > 100) {
			dobj = dilation(erosion(obj));
			dobj->vdom = obj->vdom;
			dobj->plist = obj->plist;
			objlist[numobj++] = dobj;
		}
		else
*/
			objlist[numobj++] = obj;
	}
	uobj = unionn(objlist,numobj,1);
	compute_decastel_tables(uobj,&t0,&t1,0,255,0.01);
	for (i=0; i<numobj; i++) {
		obj = objlist[i];
		apply_decastel_table(obj,t0,t1);
/*
		plist = obj->plist;
		if (plist->Cbtype == UNSHURE) {
			fprintf(stderr,"unsure dicentric obj %d\n",i+1);
			plist->Cbtype = UNSHURE|DICENTRIC;
		}
*/
		writeobj(stdout,obj);
	}
}