/*
 * dcprint.c		Jim Piper	09-09-86
 *
 * Dicentric finding system - print out details of candidates
 *
 * The input parameters are the "chromcands" structure for the current object,
 * and the stream to which printing is sent.
 *
 * MODIFICATIONS
 * -------------
 * 07-04-88	jimp	Print out btype and Cbtype
 */
#include <stdio.h>
#include <wstruct.h>
#include <dicen.h>

dcprint(chc,pf)
struct chromcands *chc;
FILE *pf;
{
	int i,j;
	struct cand *cnd = chc->cands;

	fprintf(pf,"object %2d : %d candidates, ",chc->number,chc->ncands);
	fprintf(pf,"area %d, porigin %d\n",chc->area,chc->porigin);
	fprintf(pf,"profile length %d, ",chc->axislen);
	fprintf(pf,"peak %d, quantum used %d\n",chc->profmax,chc->quantum);
	fprintf(pf,"otype %d (Cotype %d)  ", chc->otype,chc->Cotype);
	fprintf(pf,"btype %04o (Cbtype %04o)\n",chc->btype,chc->Cbtype);
	for (i=0; i<chc->ncands; i++,cnd++) {
		fprintf(pf,"candidate %d:",cnd->candnum);
		fprintf(pf,"type %d, profpos %2d, bound %2d %2d (%2d)",cnd->candtype,cnd->profpos,cnd->lboundpos,cnd->rboundpos,cnd->boundmaxcurv);
		fprintf(pf," near %d (d=%2d) ",cnd->nearest,cnd->neardist);
		if (cnd->ctype)
			fprintf(pf," ***SELECTED***");
		fprintf(pf,"\n");
		for (j=1; j<=MAXFEATURES; j++) {
			fprintf(pf,"%5d ",cnd->u.af[j-1]);
			if (j%10 == 0)
				fprintf(pf,"\n");
		}
		if ((j-1)%10 != 0)
			fprintf(pf,"\n");
	}
}