/*!
* \return Coordinates of center of mass.
* \brief Calculates the centre of mass of a transformed object.
* \param srcObj Given object.
* \param trans Given transform.
* \param binObjFlag Binary object flag.
* \param dstMass Destination pointer for mass,
* may be NULL.
* \param dstErr Destination pointer for error,
* may be NULL.
*/
static WlzDVertex2 WlzCentreOfMassTrans2D(WlzObject *srcObj,
WlzAffineTransform *trans,
int binObjFlag,
double *dstMass,
WlzErrorNum *dstErr)
{
double mass;
WlzDVertex2 cMass;
WlzErrorNum errNum = WLZ_ERR_NONE;
cMass = WlzCentreOfMass2D(srcObj, binObjFlag, &mass, &errNum);
if(errNum == WLZ_ERR_NONE)
{
cMass = WlzAffineTransformVertexD2(trans, cMass, &errNum);
}
if((errNum == WLZ_ERR_NONE) && dstMass)
{
*dstMass = mass;
}
if(dstErr)
{
*dstErr = errNum;
}
return(cMass);
}
int main(
int argc,
char **argv)
{
WlzObject *obj1, *obj2;
int verboseFlg=0;
char *nameStr;
double xsize=1.0, ysize=1.0, zsize=1.0;
int i, j;
double dist, minDist;
double dist1, dist2, dist3, dist4;
int numVtxs1, numVtxs2;
WlzDVertex3 *edgeVtxs1, *edgeVtxs2;
WlzDVertex3 cmVtx1, cmVtx2;
double vol1, vol2;
double mass1, mass2;
WlzErrorNum errNum=WLZ_ERR_NONE;
/* check input arguments */
nameStr = argv[0];
argv++;
argc--;
while( argc > 0 )
{
switch( argv[0][1] )
{
case 'h':
usage(nameStr);
return 0;
case 'v':
verboseFlg = 1;
break;
default:
usage(nameStr);
return 1;
}
argc--;
argv++;
}
/* read the objects */
if((obj1 = WlzReadObj(stdin, NULL)) &&
(obj2 = WlzReadObj(stdin, NULL)) ){
if( obj1->type != obj2->type ){
return 1;
}
if((obj1->type != WLZ_2D_DOMAINOBJ) &&
(obj1->type != WLZ_3D_DOMAINOBJ)){
usage(nameStr);
return 1;
}
/* get edge vertices */
numVtxs1 = WlzEdgeVertices(obj1, &edgeVtxs1, NULL);
numVtxs2 = WlzEdgeVertices(obj2, &edgeVtxs2, NULL);
/* renormalise with pixel sizes */
if( obj1->type == WLZ_3D_DOMAINOBJ ){
xsize = obj1->domain.p->voxel_size[0];
ysize = obj1->domain.p->voxel_size[1];
zsize = obj1->domain.p->voxel_size[2];
for(i=0; i < numVtxs1; i++){
edgeVtxs1[i].vtX *= xsize;
edgeVtxs1[i].vtY *= ysize;
edgeVtxs1[i].vtZ *= zsize;
}
for(i=0; i < numVtxs2; i++){
edgeVtxs2[i].vtX *= xsize;
edgeVtxs2[i].vtY *= ysize;
edgeVtxs2[i].vtZ *= zsize;
}
}
/* get centre of mass vertices */
if( obj1->type == WLZ_2D_DOMAINOBJ ){
WlzDVertex2 vtx2;
vtx2 = WlzCentreOfMass2D(obj1, 0, &mass1, &errNum);
cmVtx1.vtX = vtx2.vtX;
cmVtx1.vtY = vtx2.vtY;
cmVtx1.vtZ = 0.0;
vtx2 = WlzCentreOfMass2D(obj2, 0, &mass2, &errNum);
cmVtx2.vtX = vtx2.vtX;
cmVtx2.vtY = vtx2.vtY;
cmVtx2.vtZ = 0.0;
}
else {
cmVtx1 = WlzCentreOfMass3D(obj1, 0, &mass1, &errNum);
cmVtx2 = WlzCentreOfMass3D(obj2, 0, &mass2, &errNum);
cmVtx1.vtX *= xsize;
cmVtx1.vtY *= ysize;
cmVtx1.vtZ *= zsize;
cmVtx2.vtX *= xsize;
cmVtx2.vtY *= ysize;
cmVtx2.vtZ *= zsize;
}
/* find distance between centres of mass */
dist1 = vtxDist(cmVtx1, cmVtx2);
/* find cm 1 to surface 2 dist */
if( numVtxs2 > 0 ){
minDist = vtxDist(cmVtx1, edgeVtxs2[0]);
for(j=0; j < numVtxs2; j++){
dist = vtxDist(cmVtx1, edgeVtxs2[j]);
if( dist < minDist ){
minDist = dist;
}
}
dist2 = minDist;
if( !WlzInsideDomain(obj2, cmVtx1.vtZ/zsize,
cmVtx1.vtY/ysize, cmVtx1.vtX/xsize,
&errNum) ){
dist2 *= -1.0;
}
}
else {
dist2 = 0.0;
}
/* find surface 1 to cm 2 dist */
if( numVtxs1 > 0 ){
minDist = vtxDist(cmVtx2, edgeVtxs1[0]);
for(j=0; j < numVtxs1; j++){
dist = vtxDist(cmVtx2, edgeVtxs1[j]);
if( dist < minDist ){
minDist = dist;
}
}
dist3 = minDist;
if( !WlzInsideDomain(obj1, cmVtx2.vtZ/zsize,
cmVtx2.vtY/ysize, cmVtx2.vtX/xsize,
&errNum) ){
dist3 *= -1.0;
}
}
else {
dist3 = 0.0;
}
/* find min distance between surfaces */
if( (numVtxs1 > 0) && (numVtxs2 > 0) ){
minDist = vtxDist(edgeVtxs1[0], edgeVtxs2[0]);
for(i=0; i < numVtxs1; i++){
for(j=0; j < numVtxs2; j++){
dist = vtxDist(edgeVtxs1[i], edgeVtxs2[j]);
if( dist < minDist ){
minDist = dist;
}
}
}
dist4 = minDist;
}
else {
dist4 = 0.0;
}
/* get the volumes */
if( obj1->type == WLZ_2D_DOMAINOBJ ){
vol1 = WlzArea(obj1, &errNum);
vol2 = WlzArea(obj2, &errNum);
}
else {
vol1 = WlzVolume(obj1, &errNum);
vol2 = WlzVolume(obj2, &errNum);
vol1 *= xsize*ysize*zsize;
vol2 *= xsize*ysize*zsize;
}
/* print it */
fprintf(stdout, "%.2f, %.2f, %.2f, %.2f, %.2f, %.2f, %.2f, %.2f\n",
vol1, vol2, mass1, mass2, dist1, dist2, dist3, dist4);
}
return 0;
}
/*!
* \return Centrality feature value in range [0.0-1.0].
* \ingroup WlzFeatures
* \brief Computes the centrality of a feature domain with respect
* to a boundary domain, where the domains are 2D. See
* WlzCentrality().
* \param fObj Feature domain object.
* \param bObj Boundary domain object.
* \param nRay Number of equally spaced rays projected
* from the centre of mass.
* \param binFlg Treat as binary object if non-zero.
* \param dstMaxR Destination pointer for maximum
* boundary radius, may be NULL.
* \param dstErr Destination error pointer, may be NULL.
*/
static double WlzCentrality2D(WlzObject *fObj, WlzObject *bObj,
int nRay, int binFlg,
double *dstMaxR, WlzErrorNum *dstErr)
{
int idx;
double cent = 0.0,
fNum = 0.0,
fDnm = 0.0,
maxR = 0.0;
WlzIVertex2 pos;
WlzDVertex2 cmV;
double *pTbl = NULL;
WlzObject *tmpObj,
*bndObj = NULL;
WlzGreyP gPix;
WlzGreyWSpace gWsp;
WlzIntervalWSpace iWsp;
WlzErrorNum errNum = WLZ_ERR_NONE;
/* Get centre of mass of the boundary object. */
cmV = WlzCentreOfMass2D(bObj, 1, NULL, &errNum);
/* Get boundary of the boundary domain. */
if(errNum == WLZ_ERR_NONE)
{
bndObj = WlzObjToBoundary(bObj, 0, &errNum);
}
/* Make sure the boundary is 8-connected. */
if(errNum == WLZ_ERR_NONE)
{
tmpObj = WlzBoundTo8Bound(bndObj, &errNum);
(void )WlzFreeObj(bndObj);
bndObj = tmpObj;
}
/* Compute polar maximum boundary table. */
if(errNum == WLZ_ERR_NONE)
{
if((pTbl = (double *)AlcMalloc(nRay * sizeof(double))) == NULL)
{
errNum = WLZ_ERR_MEM_ALLOC;
}
}
if(errNum == WLZ_ERR_NONE)
{
WlzCentralityCompPolarTbl2D(cmV, nRay, pTbl, bndObj);
if(dstMaxR != NULL)
{
for(idx = 0; idx < nRay; ++idx)
{
if(pTbl[idx] > maxR)
{
maxR = pTbl[idx];
}
}
}
}
(void )WlzFreeObj(bndObj);
/* Scan through feature domain adding to feature values. */
if(errNum == WLZ_ERR_NONE)
{
if(binFlg != 0)
{
errNum = WlzInitRasterScan(fObj, &iWsp, WLZ_RASTERDIR_ILIC);
while((errNum = WlzNextInterval(&iWsp)) == WLZ_ERR_NONE)
{
pos.vtY = iWsp.linpos;
for(pos.vtX = iWsp.lftpos; pos.vtX <= iWsp.rgtpos; ++pos.vtX)
{
WlzCentralityUpdate2D(&fNum, &fDnm, cmV, nRay, pTbl, 1.0, pos);
}
}
}
else
{
errNum = WlzInitGreyScan(fObj, &iWsp, &gWsp);
while((errNum = WlzNextGreyInterval(&iWsp)) == WLZ_ERR_NONE)
{
gPix = gWsp.u_grintptr;
pos.vtY = iWsp.linpos;
for(pos.vtX = iWsp.lftpos; pos.vtX <= iWsp.rgtpos; ++pos.vtX)
{
switch(gWsp.pixeltype)
{
case WLZ_GREY_INT:
WlzCentralityUpdate2D(&fNum, &fDnm, cmV, nRay, pTbl,
*(gPix.inp)++, pos);
break;
case WLZ_GREY_SHORT:
WlzCentralityUpdate2D(&fNum, &fDnm, cmV, nRay, pTbl,
*(gPix.shp)++, pos);
break;
case WLZ_GREY_UBYTE:
WlzCentralityUpdate2D(&fNum, &fDnm, cmV, nRay, pTbl,
*(gPix.ubp)++, pos);
break;
case WLZ_GREY_FLOAT:
WlzCentralityUpdate2D(&fNum, &fDnm, cmV, nRay, pTbl,
*(gPix.flp)++, pos);
break;
case WLZ_GREY_DOUBLE:
WlzCentralityUpdate2D(&fNum, &fDnm, cmV, nRay, pTbl,
*(gPix.dbp)++, pos);
break;
default:
errNum = WLZ_ERR_GREY_TYPE;
break;
}
}
}
}
if(errNum == WLZ_ERR_EOO)
{
errNum = WLZ_ERR_NONE;
}
}
if(errNum == WLZ_ERR_NONE)
{
cent = (fabs(fDnm) > DBL_EPSILON)? fNum / fDnm: DBL_MAX;
if(dstMaxR != NULL)
{
*dstMaxR = maxR;
}
}
AlcFree(pTbl);
if(dstErr)
{
*dstErr = errNum;
}
return(cent);
}
int main(int argc, char **argv)
{
int option,
binObjFlag = 0,
degreesFlag = 0,
ok = 1,
usage = 0;
WlzErrorNum errNum = WLZ_ERR_NONE;
FILE *fP = NULL;
WlzObject *inObj = NULL;
double pAngle,
mass;
WlzDVertex2 cOfMass;
char *outFileStr,
*inObjFileStr;
const char *errMsg;
static char optList[] = "o:bdh",
outFileStrDef[] = "-",
inObjFileStrDef[] = "-";
opterr = 0;
outFileStr = outFileStrDef;
inObjFileStr = inObjFileStrDef;
while(ok && ((option = getopt(argc, argv, optList)) != -1))
{
switch(option)
{
case 'o':
outFileStr = optarg;
break;
case 'b':
binObjFlag = 1;
break;
case 'd':
degreesFlag = 1;
break;
case 'h':
default:
usage = 1;
ok = 0;
break;
}
}
if((inObjFileStr == NULL) || (*inObjFileStr == '\0') ||
(outFileStr == NULL) || (*outFileStr == '\0'))
{
ok = 0;
usage = 1;
}
if(ok && (optind < argc))
{
if((optind + 1) != argc)
{
usage = 1;
ok = 0;
}
else
{
inObjFileStr = *(argv + optind);
}
}
if(ok)
{
errNum = WLZ_ERR_READ_EOF;
if((inObjFileStr == NULL) ||
(*inObjFileStr == '\0') ||
((fP = (strcmp(inObjFileStr, "-")?
fopen(inObjFileStr, "r"): stdin)) == NULL) ||
((inObj= WlzAssignObject(WlzReadObj(fP, &errNum), NULL)) == NULL))
{
ok = 0;
(void )WlzStringFromErrorNum(errNum, &errMsg);
(void )fprintf(stderr,
"%s: failed to read object from file %s (%s).\n",
*argv, inObjFileStr, errMsg);
}
if(fP && strcmp(inObjFileStr, "-"))
{
fclose(fP);
}
}
if(ok)
{
cOfMass = WlzCentreOfMass2D(inObj, binObjFlag, &mass, &errNum);
if(errNum != WLZ_ERR_NONE)
{
ok = 0;
(void )WlzStringFromErrorNum(errNum, &errMsg);
(void )fprintf(stderr,
"%s: failed to compute centre of mass of object (%s).\n",
*argv, errMsg);
}
}
if(ok)
{
pAngle = WlzPrincipalAngle(inObj, cOfMass, binObjFlag, &errNum);
if(errNum != WLZ_ERR_NONE)
{
ok = 0;
(void )fprintf(stderr,
"%s: failed to compute principal angle of object\n",
*argv);
}
}
if(ok)
{
if(((fP = (strcmp(outFileStr, "-")?
fopen(outFileStr, "w"):
stdout)) == NULL))
{
ok = 0;
(void )fprintf(stderr,
"%s: failed to write output object\n",
*argv);
}
else
{
if(degreesFlag)
{
pAngle *= 180 / WLZ_M_PI;
}
(void )fprintf(fP, "%g %g %g %g\n",
mass, cOfMass.vtX, cOfMass.vtY, pAngle);
}
if(fP && strcmp(outFileStr, "-"))
{
fclose(fP);
}
}
if(usage)
{
(void )fprintf(stderr,
"Usage: %s%sExample: %s%s",
*argv,
" [-o<out file>] [-b] [-d] [-h] [<in object>]\n"
"Options:\n"
" -o Output file name.\n"
" -b Always consider object a binary object.\n"
" -d Output angle in degrees instead of radians.\n"
" -h Help, prints this usage message.\n"
"Calculates the mass, centre of mass and principal angle of the input\n"
"Woolz 2D domain object. The principal angle is the angle which the long\n"
"principal axis makes with the x-axis in the given object.\n"
"The mass, centre of mass and principal angle are written to the output\n"
"file in the following order:\n"
" <mass> <x> <y> <angle>\n"
"Where x and y are the column and line coordinates of the centre of\n"
"mass.\n"
"The input object is read from stdin and values are written to stdout\n"
"unless the filenames are given.\n",
*argv,
" -o out.txt myobj.wlz\n"
"The input Woolz object is read from myobj.wlz. It's mass, centre of\n"
"mass and principal angle are written to out.txt.\n");
}
return(!ok);
}
/*!
* \return Coordinates of center of mass.
* \ingroup WlzFeatures
* \brief Calculates the centre of mass of a WLZ_3D_DOMAIN_OBJ.
* If the object has values and the binary object flag is not set
* then the centre of mass is calculated using the grey level
* information.
* \f[
C_x = \frac{\sum_x{\sum_y{\sum_z{x G(x,y,z)}}}}
{\sum_x{\sum_y{\sum_z{G(x,y,z)}}}} ,
C_y = \frac{\sum_x{\sum_y{\sum_z{y G(x,y,z)}}}}
{\sum_x{\sum_y{\sum_z{G(x,y,z)}}}}
C_z = \frac{\sum_x{\sum_y{\sum_z{z G(x,y,z)}}}},
{\sum_x{\sum_y{\sum_z{G(x,y,z)}}}}
\f]
* Where \f$(C_x,C_y,C_z)\f$ are the coordinates of the centre of
* mass.
* If the given object does not have grey values or the
* binary object flag is set (ie non zero) then every
* pixel within the objects domain has the same mass.
* \param srcObj Given object.
* \param binObjFlag Binary object flag.
* \param dstMass Destination pointer for mass, may be
* NULL.
* \param dstErr Destination pointer for error, may be
* NULL.
*/
static WlzDVertex3 WlzCentreOfMassDom3D(WlzObject *srcObj, int binObjFlag,
double *dstMass, WlzErrorNum *dstErr)
{
int planeIdx,
planeCount;
double mass = 0.0,
mass2D;
WlzDVertex2 cMass2D;
WlzDVertex3 cMass,
sum;
WlzDomain srcDom,
dummyDom;
WlzDomain *srcDomains;
WlzValues dummyValues;
WlzValues *srcValues;
WlzObject *srcObj2D;
WlzErrorNum errNum = WLZ_ERR_NONE;
sum.vtX = 0.0;
sum.vtY = 0.0;
sum.vtZ = 0.0;
cMass.vtX = 0.0;
cMass.vtY = 0.0;
cMass.vtZ = 0.0;
dummyDom.core = NULL;
dummyValues.core = NULL;
if((srcDom = srcObj->domain).core == NULL)
{
errNum = WLZ_ERR_DOMAIN_NULL;
}
else if(srcDom.core->type != WLZ_PLANEDOMAIN_DOMAIN)
{
errNum = WLZ_ERR_DOMAIN_TYPE;
}
else if((srcDomains = srcDom.p->domains) == NULL)
{
errNum = WLZ_ERR_DOMAIN_DATA;
}
else if((binObjFlag == 0) && (srcObj->values.core != NULL) &&
WlzGreyTableIsTiled(srcObj->values.core->type))
{
errNum = WLZ_ERR_VOXELVALUES_TYPE;
}
else
{
if((srcObj->values.core == NULL) ||
((srcValues = srcObj->values.vox->values) == NULL))
{
binObjFlag = 1;
}
srcObj2D = WlzMakeMain(WLZ_2D_DOMAINOBJ, dummyDom,
dummyValues, NULL, NULL, &errNum);
}
if(errNum == WLZ_ERR_NONE)
{
planeIdx = 0;
planeCount = srcDom.p->lastpl - srcDom.p->plane1 + 1;
while((errNum == WLZ_ERR_NONE) && (planeCount-- > 0))
{
srcObj2D->domain = *(srcDomains + planeIdx);
if(binObjFlag)
{
srcObj2D->values.core = NULL;
}
else
{
srcObj2D->values = *(srcValues + planeIdx);
}
cMass2D = WlzCentreOfMass2D(srcObj2D, binObjFlag, &mass2D,
&errNum);
sum.vtX += cMass2D.vtX * mass2D;
sum.vtY += cMass2D.vtY * mass2D;
sum.vtZ += (srcDom.p->plane1 + planeIdx) * mass2D;
mass += mass2D;
++planeIdx;
}
srcObj2D->domain.core = NULL;
srcObj2D->values.core = NULL;
(void )WlzFreeObj(srcObj2D);
if(errNum == WLZ_ERR_NONE)
{
if((mass > DBL_EPSILON) || (mass < (-(DBL_EPSILON))))
{
cMass.vtX = sum.vtX / mass;
cMass.vtY = sum.vtY / mass;
cMass.vtZ = sum.vtZ / mass;
}
if(dstMass)
{
*dstMass = mass;
}
}
}
if(dstErr)
{
*dstErr = errNum;
}
return(cMass);
}
int main(int argc, char *argv[])
{
int option,
nReg = 0,
tNReg = 0,
ok = 1,
usage = 0,
verbose = 0,
threshSet = 0,
centreSet = 0;
double minArea = 2;
char *inExt,
*dbgExt,
*inDir,
*dbgDir,
*inFile,
*dbgFile,
*inPath = NULL,
*dbgPath = NULL,
*outFile = NULL;
WlzRadDistVal distSort = WLZ_RADDISTVAL_AREA;
WlzRadDistRec *distData = NULL;
WlzPixelV thrVal;
WlzDVertex2 centre;
WlzCompThreshType thrMtd = WLZ_COMPTHRESH_OTSU;
WlzThresholdType thrMod = WLZ_THRESH_HIGH;
WlzEffFormat inFmt = WLZEFF_FORMAT_NONE,
dbgFmt = WLZEFF_FORMAT_NONE;
WlzObject *inObj = NULL,
*disObj = NULL,
*segObj = NULL;
WlzGreyValueWSpace *disGVWSp = NULL;
WlzObject **regObjs = NULL;
FILE *fP = NULL;
WlzErrorNum errNum = WLZ_ERR_NONE;
const int maxObj = 1000000;
char pathBuf[FILENAME_MAX];
const double eps = 1.0e-06;
const char *errMsg;
static char optList[] = "hvAGDHELR:c:d:n:o:t:",
defFile[] = "-";
thrVal.type = WLZ_GREY_DOUBLE;
thrVal.v.dbv = 0.0;
outFile = defFile;
while((usage == 0) && ok &&
((option = getopt(argc, argv, optList)) != -1))
{
switch(option)
{
case 'A':
distSort = WLZ_RADDISTVAL_AREA;
break;
case 'D':
distSort = WLZ_RADDISTVAL_DIST;
break;
case 'G':
distSort = WLZ_RADDISTVAL_ANGLE;
break;
case 'H':
thrMod = WLZ_THRESH_HIGH;
break;
case 'E':
thrMod = WLZ_THRESH_EQUAL;
break;
case 'L':
thrMod = WLZ_THRESH_LOW;
break;
case 'R':
distSort = WLZ_RADDISTVAL_RADIUS;
break;
case 'h':
usage = 1;
break;
case 'v':
verbose = 1;
break;
case 'c':
centreSet = 1;
if(sscanf(optarg, "%lg,%lg", &(centre.vtX), &(centre.vtY)) != 2)
{
usage = 1;
}
break;
case 'd':
dbgPath = optarg;
break;
case 'o':
outFile = optarg;
break;
case 'n':
if(sscanf(optarg, "%lg", &minArea) != 1)
{
usage = 1;
}
break;
case 't':
threshSet = 1;
if(sscanf(optarg, "%lg", &(thrVal.v.dbv)) != 1)
{
usage = 1;
}
break;
default:
usage = 1;
break;
}
}
ok = !usage;
if(ok)
{
if((optind + 1) != argc)
{
usage = 1;
ok = 0;
}
else
{
inPath = *(argv + optind);
}
}
if(ok && verbose)
{
(void )fprintf(stderr, "inPath = %s\n", inPath);
}
/* Parse input file path into path + name + ext. */
if(ok)
{
ok = (usage = WlzRadDistParsePath(inPath, &inDir, &inFile, &inExt,
&inFmt)) == 0;
}
if(ok && verbose)
{
(void )fprintf(stderr, "inDir = %s\n", inDir);
(void )fprintf(stderr, "inFile = %s\n", inFile);
(void )fprintf(stderr, "inExt = %s\n", (inExt)? inExt: "(null)");
(void )fprintf(stderr, "inFmt = %s\n",
WlzEffStringFromFormat(inFmt, NULL));
}
/* Read image. */
if(ok)
{
errNum = WLZ_ERR_READ_EOF;
if(inExt)
{
(void )sprintf(pathBuf, "%s/%s.%s", inDir, inFile, inExt);
}
else
{
(void )sprintf(pathBuf, "%s/%s", inDir, inFile);
}
if(((inObj = WlzAssignObject(WlzEffReadObj(NULL, pathBuf, inFmt,
0, 0, 0,
&errNum), NULL)) == NULL) ||
(inObj->type != WLZ_2D_DOMAINOBJ))
{
ok = 0;
(void )WlzStringFromErrorNum(errNum, &errMsg);
(void )fprintf(stderr,
"%s: Failed to read 2D image object from file %s (%s)\n",
*argv, pathBuf, errMsg);
}
}
if(ok && verbose)
{
(void )fprintf(stderr, "read input image ok.\n");
}
/* Convert to grey if needed, normalise 0 - 255 if needed and compute
* threshold value unless already known. */
if(ok)
{
if(WlzGreyTypeFromObj(inObj, NULL) == WLZ_GREY_RGBA)
{
WlzObject *ppObj;
ppObj = WlzAssignObject(
WlzRGBAToModulus(inObj, &errNum), NULL);
if(errNum == WLZ_ERR_NONE)
{
(void )WlzFreeObj(inObj);
inObj = ppObj;
}
}
if(threshSet == 0)
{
WlzObject *hObj = NULL;
errNum = WlzGreyNormalise(inObj, 1);
if(errNum == WLZ_ERR_NONE)
{
hObj = WlzHistogramObj(inObj, 256, 0.0, 1.0, &errNum);
}
if(errNum == WLZ_ERR_NONE)
{
threshSet = 1;
errNum = WlzCompThreshold(&thrVal.v.dbv, hObj, thrMtd, 0);
}
(void )WlzFreeObj(hObj);
}
if(errNum != WLZ_ERR_NONE)
{
ok = 0;
(void )WlzStringFromErrorNum(errNum, &errMsg);
(void )fprintf(stderr, "%s: failed to normalise object (%s)\n",
*argv, errMsg);
}
}
/* Segment the object. */
if(ok)
{
if(inObj->values.core == NULL)
{
segObj = WlzAssignObject(inObj, NULL);
}
else
{
segObj = WlzAssignObject(
WlzThreshold(inObj, thrVal, thrMod, &errNum), NULL);
if(errNum != WLZ_ERR_NONE)
{
ok = 0;
(void )WlzStringFromErrorNum(errNum, &errMsg);
(void )fprintf(stderr, "%s: failed to segment image (%s)\n",
*argv, errMsg);
}
}
}
/* Compute object with the same domain as the input object but in which
* the values are the minimum distance from an edge. */
if(ok)
{
WlzObject *bObj = NULL;
bObj = WlzBoundaryDomain(inObj, &errNum);
if(errNum == WLZ_ERR_NONE)
{
disObj = WlzAssignObject(
WlzDistanceTransform(inObj, bObj, WLZ_OCTAGONAL_DISTANCE,
0.0, 0.0, &errNum), NULL);
}
if(errNum == WLZ_ERR_NONE)
{
disGVWSp = WlzGreyValueMakeWSp(disObj, &errNum);
}
if(errNum != WLZ_ERR_NONE)
{
ok = 0;
(void )WlzStringFromErrorNum(errNum, &errMsg);
(void )fprintf(stderr, "%s: failed to compute distance object (%s)\n",
*argv, errMsg);
}
(void )WlzFreeObj(bObj);
}
/* Output the debug image if required. */
if(ok && dbgPath)
{
WlzObject *dbgObj;
dbgObj = WlzAssignObject(WlzCopyObject(inObj, &errNum), NULL);
if(errNum == WLZ_ERR_NONE)
{
WlzPixelV iMin,
iMax,
oMin,
oMax;
if(dbgObj->values.core == NULL)
{
WlzValues tmpVal;
oMax.type = WLZ_GREY_UBYTE;
oMax.v.ubv = 255;
tmpVal.v = WlzNewValueTb(dbgObj,
WlzGreyTableType(WLZ_GREY_TAB_RAGR,
WLZ_GREY_UBYTE, NULL),
oMax, &errNum);
if(errNum == WLZ_ERR_NONE)
{
dbgObj->values = WlzAssignValues(tmpVal, NULL);
}
}
else
{
WlzObject *tmpObj = NULL;
oMin.type = WLZ_GREY_UBYTE;
oMin.v.ubv = 0;
oMax.type = WLZ_GREY_UBYTE;
oMax.v.ubv = 200;
errNum = WlzGreyRange(dbgObj, &iMin, &iMax);
if(errNum == WLZ_ERR_NONE)
{
errNum = WlzGreySetRange(dbgObj, iMin, iMax, oMin, oMax, 0);
}
if(errNum == WLZ_ERR_NONE)
{
tmpObj = WlzMakeMain(inObj->type, segObj->domain, dbgObj->values,
NULL, NULL, &errNum);
}
if(errNum == WLZ_ERR_NONE)
{
oMax.v.ubv = 255;
errNum = WlzGreySetValue(tmpObj, oMax);
}
(void )WlzFreeObj(tmpObj);
if(errNum == WLZ_ERR_NONE)
{
tmpObj = WlzConvertPix(dbgObj, WLZ_GREY_UBYTE, &errNum);
(void )WlzFreeObj(dbgObj);
dbgObj = WlzAssignObject(tmpObj, NULL);
}
}
}
if(errNum == WLZ_ERR_NONE)
{
(void )WlzRadDistParsePath(dbgPath, &dbgDir, &dbgFile, &dbgExt,
&dbgFmt);
if(dbgExt)
{
(void )sprintf(pathBuf, "%s/%s.%s", dbgDir, dbgFile, dbgExt);
}
else
{
(void )sprintf(pathBuf, "%s/%s", dbgDir, dbgFile);
}
errNum = WlzEffWriteObj(NULL, pathBuf, dbgObj, dbgFmt);
}
(void )WlzFreeObj(dbgObj);
if(errNum != WLZ_ERR_NONE)
{
ok = 0;
(void )WlzStringFromErrorNum(errNum, &errMsg);
(void )fprintf(stderr, "%s: failed to output the debug image (%s)\n",
*argv, errMsg);
}
}
/* Label the segmented object. */
if(ok)
{
errNum = WlzLabel(segObj, &nReg, ®Objs, maxObj, 0, WLZ_8_CONNECTED);
if(errNum != WLZ_ERR_NONE)
{
ok = 0;
errNum = WLZ_ERR_MEM_ALLOC;
(void )WlzStringFromErrorNum(errNum, &errMsg);
(void )fprintf(stderr, "%s: failed to split into components (%s)\n",
*argv, errMsg);
}
if(ok && verbose)
{
(void )fprintf(stderr, "nReg = %d\n", nReg);
}
}
/* Compute centre of mass if not known. */
if(ok)
{
if(centreSet == 0)
{
centre = WlzCentreOfMass2D(inObj, 1, NULL, &errNum);
if(errNum != WLZ_ERR_NONE)
{
ok = 0;
(void )WlzStringFromErrorNum(errNum, &errMsg);
(void )fprintf(stderr, "%s: failed to compute centre of mass (%s)\n",
*argv, errMsg);
}
}
if(ok && verbose)
{
(void )fprintf(stderr, "centre = %lg,%lg\n", centre.vtX, centre.vtY);
}
}
/* Allocate a radial distribution table. */
if(ok)
{
if((distData = (WlzRadDistRec *)
AlcCalloc(nReg, sizeof(WlzRadDistRec))) == NULL)
{
ok = 0;
errNum = WLZ_ERR_MEM_ALLOC;
(void )WlzStringFromErrorNum(errNum, &errMsg);
(void )fprintf(stderr, "%s: failed to allocate result lable (%s)\n",
*argv, errMsg);
}
}
/* Compute the redial distribution data. */
if(ok)
{
int idR = 0,
idS = 0;
while((errNum == WLZ_ERR_NONE) && (idR < nReg))
{
double mass;
WlzDVertex2 com;
com = WlzCentreOfMass2D(regObjs[idR], 1, &mass, NULL);
if(mass > minArea - eps)
{
WlzGreyValueGet(disGVWSp, 0.0, com.vtY, com.vtX);
distData[idS].pos = com;
distData[idS].area = mass;
WLZ_VTX_2_SUB(com, centre, com);
distData[idS].radius = WLZ_VTX_2_LENGTH(com);
distData[idS].angle = ALG_M_PI + atan2(com.vtY, com.vtX);
switch(disGVWSp->gType)
{
case WLZ_GREY_LONG:
distData[idS].dist = *(disGVWSp->gPtr[0].lnp);
break;
case WLZ_GREY_INT:
distData[idS].dist = *(disGVWSp->gPtr[0].inp);
break;
case WLZ_GREY_SHORT:
distData[idS].dist = *(disGVWSp->gPtr[0].shp);
break;
case WLZ_GREY_UBYTE:
distData[idS].dist = *(disGVWSp->gPtr[0].ubp);
break;
case WLZ_GREY_FLOAT:
distData[idS].dist = *(disGVWSp->gPtr[0].flp);
break;
case WLZ_GREY_DOUBLE:
distData[idS].dist = *(disGVWSp->gPtr[0].dbp);
break;
default:
distData[idS].dist = 0.0;
break;
}
++idS;
}
++idR;
}
tNReg = idS;
switch(distSort)
{
case WLZ_RADDISTVAL_AREA:
(void )qsort(distData, tNReg, sizeof(WlzRadDistRec),
WlzRadDistRecSortArea);
break;
case WLZ_RADDISTVAL_ANGLE:
(void )qsort(distData, tNReg, sizeof(WlzRadDistRec),
WlzRadDistRecSortAngle);
break;
case WLZ_RADDISTVAL_RADIUS:
(void )qsort(distData, tNReg, sizeof(WlzRadDistRec),
WlzRadDistRecSortRadius);
break;
case WLZ_RADDISTVAL_DIST:
(void )qsort(distData, tNReg, sizeof(WlzRadDistRec),
WlzRadDistRecSortDist);
break;
}
}
/* Output the sorted radial distribution table. */
if(ok)
{
if(((fP = strcmp(outFile, "-")?
fopen(outFile, "w"): stdout)) == NULL)
{
ok = 0;
(void )fprintf(stderr, "%s: failed to open output file %s\n",
*argv, outFile);
}
}
if(ok)
{
int idR;
for(idR = 0; idR < tNReg; ++idR)
{
double a;
a = (distData[idR].angle > 0.0)?
0 + (180 * distData[idR].angle / ALG_M_PI):
360 + (180 * distData[idR].angle / ALG_M_PI);
(void )fprintf(fP, "%g %g %g %g,%g %g\n",
a,
distData[idR].radius,
distData[idR].area,
distData[idR].pos.vtX,
distData[idR].pos.vtY,
distData[idR].dist);
}
}
if(strcmp(outFile, "-"))
{
(void )fclose(fP);
}
/* Tidy up. */
AlcFree(distData);
WlzGreyValueFreeWSp(disGVWSp);
(void )WlzFreeObj(inObj);
(void )WlzFreeObj(disObj);
(void )WlzFreeObj(segObj);
if(regObjs)
{
int idR;
for(idR = 0; idR < nReg; ++idR)
{
(void )WlzFreeObj(regObjs[idR]);
}
AlcFree(regObjs);
}
if(usage)
{
(void )fprintf(stderr,
"Usage: %s [-h] [-v] [-A] [-D] [-G] [-H] [-E] [-L] [-R]\n"
"\t\t[-c #,#] [-d <debug image>] [-n #] [-o <out file>]\n"
"\t\t[-t #] [<input image>]\n"
"Segments the given object using a threshold value and outputs the \n"
"radial distribution of the thresholded components.\n"
"Version: %s\n"
"Options:\n"
" -h Help - prints this usage masseage.\n"
" -v Verbose output.\n"
" -A Sort output by area (default).\n"
" -D Sort output by distance from boundary.\n"
" -G Sort output by angle.\n"
" -H Threshold high, use pixels at or above threshold (default).\n"
" -E Threshold equal, use pixels at threshold.\n"
" -L Threshold low, use pixels below threshold.\n"
" -R Sort output by radial distance from centre.\n"
" -c Centre (default is image centre).\n"
" -d Debug image.\n"
" -n Minimum area (default %g).\n"
" -t Threshold value (default is to compute using Otsu's method).\n"
"By default the input image object is read from the standard input and\n"
"the radial distribution is written to the standard output.\n"
"The image formats understood include wlz, jpg and tif.\n"
"The output format is:\n"
" <angle> <dist from centre> <area> <x pos>,<y pos> <dist form boundary>\n"
"Example:\n"
" %s -o out.txt -d debug.jpg in.tif\n"
"The input image is read from in.tif, a debug image showing the\n"
"segmented regions is written to debug.jpg and the radial distribution\n"
"statistics are written to the file out.txt. With the output in\n"
"out.txt, the following R code would plot the data as a set of circles\n"
"with radius proportional to the square root of the component area:\n"
" data <- read.table(\"out.txt\")\n"
" attach(data)\n"
" symbols(x=data$V1, y=data$V2, circles=sqrt(data$V3))\n",
argv[0],
WlzVersion(),
minArea,
argv[0]);
}
return(!ok);
}
int main(int argc, char **argv)
{
int option,
ok = 1,
debug = 0,
usage = 0,
verbose = 0,
verboseDat = 0,
idx0,
index,
binFlg = 0,
nMatch = 0,
useCOfM = 0,
maxItr = 200,
minSpx = 15,
minSegSpx = 10,
matchImpNN = 7,
noMatching = 0,
decompLimit = INT_MAX,
removeRefOrg = 1,
refMedianSz = 0,
srcMedianSz = 0,
multipleFiles = 0;
double tD0,
tD1,
delta = 0.01,
maxAng = 30 * (ALG_M_PI / 180.0),
maxDeform = 0.5,
maxDisp = 20.0,
refCThr = 20.0,
srcCThr = 20.0,
refThr = 254.0,
srcThr = 254.0,
matchImpThr = 2.5,
refSmooth = 3.0,
srcSmooth = 3.0;
FILE *vFP,
*lFP = NULL,
*fP = NULL;
char *inFileStr = NULL,
*inTrFileStr = NULL,
*outFileBaseStr = NULL,
*ctrFileBaseStr = NULL;
char secParFile[256];
char *refObjFileStr = NULL,
*srcObjFileStr = NULL;
WlzThresholdType thrType = WLZ_THRESH_LOW;
WlzEffFormat refObjFileType = WLZEFF_FORMAT_WLZ,
srcObjFileType = WLZEFF_FORMAT_WLZ;
WlzObject *tObj0 = NULL,
*refObj3D = NULL,
*refObj2D = NULL,
*srcObj2D = NULL,
*refCObj2D = NULL,
*srcCObj2D = NULL;
WlzDVertex2 tDV0,
refCOfM,
srcCOfM,
refObj2DOrg;
WlzAffineTransform *inTr = NULL,
*inPTr = NULL;
WlzThreeDViewStruct *view = NULL;
WlzVertexP matchRP,
matchSP;
WlzInterpolationType interp = WLZ_INTERPOLATION_NEAREST;
WlzMatchICPWeightCbData cbData;
WlzAffineTransformPrim inTrPrim;
WlzErrorNum errNum = WLZ_ERR_NONE;
char fileNameBuf[FILENAME_MAX];
const char *errMsg;
static char optList[] =
"dhvVo:r:Yt:x:y:a:s:efg:k:u:b:B:i:p:A:E:S:F:P:m:n:c:NL";
const int nScatter = 5;
const char nullStr[] = "<NULL>",
inFileStrDef[] = "-",
outFileStrDef[] = "-";
matchRP.v = matchSP.v = NULL;
srcCOfM.vtX = srcCOfM.vtY = 0.0;
inFileStr = (char *)inFileStrDef;
outFileBaseStr = (char *)outFileStrDef;
(void )memset(&inTrPrim, 0, sizeof(WlzAffineTransformPrim));
inTrPrim.scale = 1.0;
while((usage == 0) && ok &&
((option = getopt(argc, argv, optList)) != -1))
{
switch(option)
{
case 'd':
debug = 1;
break;
case 'h':
usage = 1;
break;
case 'v':
verbose = 1;
break;
case 'V':
verboseDat = 1;
break;
case 'o':
outFileBaseStr = optarg;
break;
case 'r':
if((refObjFileStr = AlcStrDup(optarg)) == NULL)
{
ok = 0;
(void )fprintf(stderr, "%s Failed to allocate enough memory.\n",
*argv);
}
break;
case 'Y':
multipleFiles = 1;
break;
case 't':
inTrFileStr = optarg;
break;
case 'x':
if(sscanf(optarg, "%lg", &(inTrPrim.tx)) != 1)
{
usage = 1;
}
break;
case 'y':
if(sscanf(optarg, "%lg", &(inTrPrim.ty)) != 1)
{
usage = 1;
}
break;
case 'a':
if(sscanf(optarg, "%lg", &(inTrPrim.theta)) != 1)
{
usage = 1;
}
else
{
inTrPrim.theta *= ALG_M_PI / 180.0;
}
break;
case 's':
if(sscanf(optarg, "%lg", &(inTrPrim.scale)) != 1)
{
usage = 1;
}
break;
case 'e':
useCOfM = 1;
break;
case 'f':
removeRefOrg = 0;
break;
case 'b':
binFlg = 1;
thrType = WLZ_THRESH_LOW;
usage = WlzMatchICPPlaneParseDPair(optarg, &refThr, &srcThr) != 3;
break;
case 'B':
binFlg = 1;
thrType = WLZ_THRESH_HIGH;
usage = WlzMatchICPPlaneParseDPair(optarg, &refThr, &srcThr) != 3;
break;
case 'g':
usage = WlzMatchICPPlaneParseDPair(optarg, &refCThr, &srcCThr) != 3;
break;
case 'k':
usage = WlzMatchICPPlaneParseDPair(optarg, &tD0, &tD1) != 3;
refMedianSz = WLZ_NINT(tD0);
srcMedianSz = WLZ_NINT(tD1);
break;
case 'u':
usage = WlzMatchICPPlaneParseDPair(optarg,
&refSmooth, &srcSmooth) != 3;
break;
case 'i':
if((sscanf(optarg, "%d", &maxItr) != 1) || (maxItr <= 0))
{
usage = 1;
}
break;
case 'p':
if((sscanf(optarg, "%d", &minSpx) != 1) || (minSpx <= 10))
{
usage = 1;
}
break;
case 'P':
if(sscanf(optarg, "%d", &minSegSpx) != 1)
{
usage = 1;
}
break;
case 'A':
if((sscanf(optarg, "%lg", &maxAng) != 1) ||
(maxAng < 0.0) || (maxAng > 180.0))
{
usage = 1;
}
else
{
maxAng *= ALG_M_PI / 180;
}
break;
case 'E':
if((sscanf(optarg, "%lg", &delta) != 1) || (delta < 0.0))
{
usage = 1;
}
case 'F':
if((sscanf(optarg, "%lg", &maxDeform) != 1) || (maxDeform < 0.0))
{
usage = 1;
}
break;
case 'S':
if((sscanf(optarg, "%lg", &maxDisp) != 1) || (maxDisp <= 0.0))
{
usage = 1;
}
break;
case 'm':
if((sscanf(optarg, "%lg", &matchImpThr) != 1) || (matchImpThr < 0.0))
{
usage = 1;
}
break;
case 'n':
if((sscanf(optarg, "%d", &matchImpNN) != 1) || (matchImpNN < 1))
{
usage = 1;
}
break;
case 'c':
ctrFileBaseStr = optarg;
if(strlen(ctrFileBaseStr) > (FILENAME_MAX - 16))
{
usage = 1;
}
break;
case 'N':
noMatching = 1;
break;
case 'L':
interp = WLZ_INTERPOLATION_LINEAR;
break;
default:
usage = 1;
break;
}
}
if(usage)
{
ok = 0;
}
if(ok)
{
if((inFileStr == NULL) || (*inFileStr == '\0') ||
(outFileBaseStr == NULL) || (*outFileBaseStr == '\0'))
{
ok = 0;
usage = 1;
}
if(ok && (optind < argc))
{
if((optind + 1) != argc)
{
usage = 1;
ok = 0;
}
else
{
inFileStr = *(argv + optind);
}
}
}
if(verbose)
{
(void )fprintf(stderr, "Parameter and other internal variable values:\n");
(void )fprintf(stderr, " ok = %d\n", ok);
(void )fprintf(stderr, " debug = %d\n", debug);
(void )fprintf(stderr, " verbose = %d\n", verbose);
(void )fprintf(stderr, " verboseDat = %d\n", verboseDat);
(void )fprintf(stderr, " outFileBaseStr = %s\n",
outFileBaseStr? outFileBaseStr: nullStr);
(void )fprintf(stderr, " refObjFileStr = %s\n",
refObjFileStr? refObjFileStr: nullStr);
(void )fprintf(stderr, " multipleFiles = %d\n", multipleFiles);
(void )fprintf(stderr, " inTrFileStr = %s\n",
inTrFileStr? inTrFileStr: nullStr);
(void )fprintf(stderr, " inTrPrim.tx = %g\n", inTrPrim.tx);
(void )fprintf(stderr, " inTrPrim.ty = %g\n", inTrPrim.ty);
(void )fprintf(stderr, " inTrPrim.theta = %g (Radians)\n",
inTrPrim.theta);
(void )fprintf(stderr, " inTrPrim.scale = %g\n", inTrPrim.scale);
(void )fprintf(stderr, " useCOfM = %d\n", useCOfM);
(void )fprintf(stderr, " removeRefOrg = %d\n", removeRefOrg);
(void )fprintf(stderr, " binFlg = %d\n", binFlg);
(void )fprintf(stderr, " thrType = %s\n",
(thrType == WLZ_THRESH_LOW)? "WLZ_THRESH_LOW": "WLZ_THRESH_HIGH");
(void )fprintf(stderr, " refThr = %g\n", refThr);
(void )fprintf(stderr, " srcThr = %g\n", srcThr);
(void )fprintf(stderr, " refCThr = %g\n", refCThr);
(void )fprintf(stderr, " srcCThr = %g\n", srcCThr);
(void )fprintf(stderr, " refMedianSz = %d\n", refMedianSz);
(void )fprintf(stderr, " srcMedianSz = %d\n", srcMedianSz);
(void )fprintf(stderr, " refSmooth = %g\n", refSmooth);
(void )fprintf(stderr, " srcSmooth = %g\n", srcSmooth);
(void )fprintf(stderr, " delta = %g\n", delta);
(void )fprintf(stderr, " maxItr = %d\n", maxItr);
(void )fprintf(stderr, " minSpx = %d\n", minSpx);
(void )fprintf(stderr, " maxAng = %g (Radians)\n", maxAng);
(void )fprintf(stderr, " maxDeform = %g\n", maxDeform);
(void )fprintf(stderr, " maxDisp = %g\n", maxDisp);
(void )fprintf(stderr, " matchImpThr = %g\n", matchImpThr);
(void )fprintf(stderr, " matchImpNN = %d\n", matchImpNN);
(void )fprintf(stderr, " ctrFileBaseStr = %s\n",
ctrFileBaseStr? ctrFileBaseStr: nullStr);
(void )fprintf(stderr, " noMatching = %d\n", noMatching);
(void )fprintf(stderr, " usage = %d\n", usage);
}
/* Create the initial affine transform and it's inverse. */
if(ok)
{
if(inTrFileStr)
{
tObj0 = NULL;
if(((fP = fopen(inTrFileStr, "r")) == NULL) ||
((tObj0 = WlzReadObj(fP, &errNum)) == NULL) ||
(tObj0->type != WLZ_AFFINE_TRANS) ||
(tObj0->domain.core == NULL))
{
errNum = WLZ_ERR_READ_INCOMPLETE;
}
else
{
inTr = WlzAffineTransformCopy(tObj0->domain.t, &errNum);
}
if(fP)
{
(void )fclose(fP);
fP = NULL;
}
if(tObj0)
{
WlzFreeObj(tObj0);
tObj0 = NULL;
}
}
else
{
inTr = WlzMakeAffineTransform(WLZ_TRANSFORM_2D_AFFINE, &errNum);
if(errNum == WLZ_ERR_NONE)
{
errNum = WlzAffineTransformPrimSet(inTr, inTrPrim);
}
}
if(errNum == WLZ_ERR_NONE)
{
if(verbose)
{
(void )fprintf(stderr, "Affine transform inTr = \n");
(void )AlcDouble2WriteAsci(stderr, inTr->mat, 3, 3);
}
}
if(errNum != WLZ_ERR_NONE)
{
ok = 0;
(void )WlzStringFromErrorNum(errNum, &errMsg);
(void )fprintf(stderr,
"%s: Failed to set initial affine transform (%s).\n",
*argv, errMsg);
}
}
/* If the reference file name was given on the command line then it use it
* in place of the reference file name in the section parameters bibfile. */
if(ok && refObjFileStr)
{
if(((refObj3D = WlzAssignObject(
WlzEffReadObj(NULL, refObjFileStr, refObjFileType,
0, 0, 0, &errNum), NULL)) == NULL) ||
(errNum != WLZ_ERR_NONE))
{
ok = 0;
(void )WlzStringFromErrorNum(errNum, &errMsg);
(void )fprintf(stderr,
"%s Failed to read the reference object from file %s (%s).\n",
*argv, refObjFileStr, errMsg);
}
}
if(ok)
{
if((lFP = (strcmp(inFileStr, "-")?
fopen(inFileStr, "r"): stdin)) == NULL)
{
ok = 0;
(void )fprintf(stderr,
"%s Failed to open the input section parameters file %s.\n",
*argv, inFileStr);
}
}
/* Get each input section parameters file and process it. */
index = 0;
while(ok &&
((fP = WlzMatchICPPlaneSecParFile(lFP, multipleFiles, index,
secParFile)) != NULL))
{
errNum = WlzMatchICPPlaneReadSecParam(fP, &view,
refObjFileStr? NULL: &refObjFileStr, &refObjFileType,
refObj3D? NULL: &refObj3D,
&srcObjFileStr, &srcObjFileType, &srcObj2D);
/* Note: srcObj2D assigned in WlzMatchICPPlaneReadSecParam(). */
if(errNum == WLZ_ERR_NONE)
{
if(verboseDat)
{
if(verbose)
{
(void )fprintf(stderr,
"Writing srcObj2D to dbg-srcObj2D.wlz.\n");
}
if((vFP = fopen("dbg-srcObj2D.wlz", "w")) != NULL)
{
(void )WlzWriteObj(vFP, srcObj2D);
(void )fclose(vFP);
}
}
errNum = WlzInit3DViewStruct(view, refObj3D);
}
if(fP)
{
fclose(fP);
fP = NULL;
}
if(errNum != WLZ_ERR_NONE)
{
ok = 0;
(void )WlzStringFromErrorNum(errNum, &errMsg);
(void )fprintf(stderr,
"%s Failed to read input section parameters from file %s (%s).\n",
argv[0], secParFile, errMsg);
}
/* Create the section object. */
if(ok)
{
refObj2D = WlzAssignObject(
WlzMatchICPPlaneGetSection(refObj3D, view, interp,
&errNum), NULL);
if((errNum == WLZ_ERR_NONE) && (refObj2D != NULL) &&
(refObj2D->type = WLZ_2D_DOMAINOBJ) && (refObj2D->domain.core))
{
refObj2DOrg.vtX = refObj2D->domain.i->kol1;
refObj2DOrg.vtY = refObj2D->domain.i->line1;
if(verboseDat)
{
if(verbose)
{
(void )fprintf(stderr,
"Writing refObj2D to dbg-refObj2D.wlz.\n");
}
if((vFP = fopen("dbg-refObj2D.wlz", "w")) != NULL)
{
(void )WlzWriteObj(vFP, refObj2D);
(void )fclose(vFP);
}
}
}
else
{
ok = 0;
(void )WlzStringFromErrorNum(errNum, &errMsg);
(void )fprintf(stderr,
"%s Failed to get section from reference object (%s).\n",
argv[0], errMsg);
}
}
/* Create the contour objects. */
if(ok)
{
refCObj2D = WlzMatchICPPlaneCreateContourObj(refObj2D,
binFlg, thrType, refThr,
refMedianSz, refSmooth,
refCThr, minSpx, debug,
verboseDat? "dbg-refObj2D.wlz": NULL,
&errNum);
if(errNum == WLZ_ERR_NONE)
{
srcCObj2D = WlzMatchICPPlaneCreateContourObj(srcObj2D,
binFlg, thrType, srcThr,
srcMedianSz, srcSmooth,
srcCThr, minSpx, debug,
verboseDat? "dbg-srcObj2D.wlz": NULL,
&errNum);
}
if(errNum != WLZ_ERR_NONE)
{
ok = 0;
(void )WlzStringFromErrorNum(errNum, &errMsg);
(void )fprintf(stderr, "%s Failed to compute contours (%s).\n",
argv[0], errMsg);
}
}
/* Compute translation using centre of mass if required. Then create
* modified initial and inverse transforms for this plane. */
if(ok)
{
if(useCOfM)
{
if(verbose)
{
(void )fprintf(stderr,
"Using centre of mass to refine initial affine transform.\n");
}
refCOfM = WlzCentreOfMass2D(refCObj2D, 0, NULL, &errNum);
tObj0 = NULL;
if(errNum == WLZ_ERR_NONE)
{
tObj0 = WlzAssignObject(
WlzAffineTransformObj(srcCObj2D, inTr,
WLZ_INTERPOLATION_NEAREST,
&errNum), NULL);
}
if(errNum == WLZ_ERR_NONE)
{
srcCOfM = WlzCentreOfMass2D(tObj0, 0, NULL, &errNum);
}
(void )WlzFreeObj(tObj0);
if(errNum == WLZ_ERR_NONE)
{
if(verbose)
{
(void )fprintf(stderr,
"centres of mass are: refCOfM = {%g,%g}, srcCOfM = {%g,%g}.\n",
refCOfM.vtX, refCOfM.vtY, srcCOfM.vtX, srcCOfM.vtY);
}
inPTr = WlzAffineTransformCopy(inTr, &errNum);
}
if(errNum == WLZ_ERR_NONE)
{
WLZ_VTX_2_SUB(tDV0, refCOfM, srcCOfM);
inPTr->mat[0][2] += tDV0.vtX;
inPTr->mat[1][2] += tDV0.vtY;
}
if(errNum != WLZ_ERR_NONE)
{
ok = 0;
(void )WlzStringFromErrorNum(errNum, &errMsg);
(void )fprintf(stderr,
"%s Failed to modify transform using centre of mass (%s).\n",
argv[0], errMsg);
}
}
if(errNum == WLZ_ERR_NONE)
{
if(verbose)
{
(void )fprintf(stderr, "Affine transform inPTr = ");
if(inPTr)
{
(void )fprintf(stderr, "\n");
(void )AlcDouble2WriteAsci(stderr, inPTr->mat, 3, 3);
}
else
{
(void )fprintf(stderr, "Identity\n");
}
}
}
}
if(ok && ctrFileBaseStr)
{
if(multipleFiles)
{
sprintf(fileNameBuf, "%s_%06d_ctr_ref.wlz", ctrFileBaseStr, index);
}
else
{
sprintf(fileNameBuf, "%s_ctr_ref.wlz", ctrFileBaseStr);
}
errNum = WLZ_ERR_FILE_OPEN;
ok = (fP = fopen(fileNameBuf, "w")) != NULL;
if(ok)
{
ok = (errNum = WlzWriteObj(fP, refCObj2D)) == WLZ_ERR_NONE;
}
if(fP)
{
(void )fclose(fP);
fP = NULL;
}
if(ok)
{
if(multipleFiles)
{
sprintf(fileNameBuf, "%s_%06d_ctr_src.wlz", ctrFileBaseStr, index);
}
else
{
sprintf(fileNameBuf, "%s_ctr_src.wlz", ctrFileBaseStr);
}
ok = (fP = fopen(fileNameBuf, "w")) != NULL;
}
if(ok)
{
ok = (errNum = WlzWriteObj(fP, srcCObj2D)) == WLZ_ERR_NONE;
}
if(fP)
{
(void )fclose(fP);
fP = NULL;
}
tObj0 = NULL;
if(ok)
{
tObj0 = WlzAffineTransformObj(srcCObj2D, inPTr,
WLZ_INTERPOLATION_NEAREST, &errNum);
ok = errNum == WLZ_ERR_NONE;
}
if(ok)
{
if(multipleFiles)
{
sprintf(fileNameBuf, "%s_%06d_ctr_itrsrc.wlz", ctrFileBaseStr,
index);
}
else
{
sprintf(fileNameBuf, "%s_ctr_itrsrc.wlz", ctrFileBaseStr);
}
ok = (fP = fopen(fileNameBuf, "w")) != NULL;
}
if(ok)
{
ok = (errNum = WlzWriteObj(fP, tObj0)) == WLZ_ERR_NONE;
}
(void )WlzFreeObj(tObj0);
if(fP)
{
(void )fclose(fP);
fP = NULL;
}
if(!ok)
{
(void )WlzStringFromErrorNum(errNum, &errMsg);
(void )fprintf(stderr,
"%s Failed to write contour to file %s (%s)\n",
argv[0], fileNameBuf, errMsg);
}
}
if(ok && (noMatching == 0))
{
/* Set up weighting function callback data. */
cbData.tGM = refCObj2D->domain.ctr->model;
cbData.sGM = srcCObj2D->domain.ctr->model;
cbData.maxDisp = maxDisp;
cbData.nScatter = nScatter;
errNum = WlzMatchICPCtr(refCObj2D->domain.ctr, srcCObj2D->domain.ctr,
inPTr, maxItr, minSpx, minSegSpx,
&nMatch, &matchRP, &matchSP, decompLimit,
maxDisp, maxAng, maxDeform,
matchImpNN, matchImpThr,
WlzMatchICPWeightMatches, &cbData,
delta);
if(errNum != WLZ_ERR_NONE)
{
ok = 0;
(void )WlzStringFromErrorNum(errNum, &errMsg);
(void )fprintf(stderr,
"%s Failed to compute tie-points from contours (%s).\n",
argv[0], errMsg);
}
}
if(ok && verboseDat)
{
if(verbose)
{
(void )fprintf(stderr,
"Writing tie points to dbg-tiepoints.num.\n");
}
if((vFP = fopen("dbg-tiepoints.num", "w")) != NULL)
{
for(idx0 = 0; idx0 < nMatch; ++ idx0)
{
(void )fprintf(vFP, "%g %g %g %g\n",
(matchSP.d2 + idx0)->vtX,
(matchSP.d2 + idx0)->vtY,
(matchRP.d2 + idx0)->vtX - (matchSP.d2 + idx0)->vtX,
(matchRP.d2 + idx0)->vtY - (matchSP.d2 + idx0)->vtY);
}
(void )fclose(vFP);
}
}
if(ok && ctrFileBaseStr)
{
if(multipleFiles)
{
sprintf(fileNameBuf, "%s_%06d_ctr_dcp.wlz", ctrFileBaseStr, index);
}
else
{
sprintf(fileNameBuf, "%s_ctr_dcp.wlz", ctrFileBaseStr);
}
if((fP = fopen(fileNameBuf, "w")) == NULL)
{
ok = 0;
(void )fprintf(stderr, "%s Failed to open contour file %s\n",
argv[0], fileNameBuf);
}
else
{
if((errNum = WlzWriteObj(fP, srcCObj2D)) != WLZ_ERR_NONE)
{
ok = 0;
(void )WlzStringFromErrorNum(errNum, &errMsg);
(void )fprintf(stderr,
"%s Failed to write contour to file %s (%s)\n",
argv[0], fileNameBuf, errMsg);
}
(void )fclose(fP);
fP = NULL;
}
}
/* Write the new section parameters file together with the computed
* tie-points. */
if(ok)
{
if(multipleFiles)
{
sprintf(fileNameBuf, "%s_%06d.bib", outFileBaseStr, index);
}
else
{
sprintf(fileNameBuf, "%s.bib", outFileBaseStr);
}
if((fP = fopen(fileNameBuf, "w")) == NULL)
{
ok = 0;
(void )fprintf(stderr,
"%s Failed to open the output section parameters file %s.\n",
*argv, fileNameBuf);
}
}
if(ok)
{
if(verbose)
{
(void )fprintf(stderr, "Writing section parameters.\n");
}
errNum = WlzMatchICPPlaneWriteSecParam(fP, view,
refObjFileStr, refObjFileType,
srcObjFileStr, srcObjFileType,
nMatch, matchRP.d2, matchSP.d2,
removeRefOrg? &refObj2DOrg: NULL);
if(fP && strcmp(outFileBaseStr, "-"))
{
fclose(fP);
fP = NULL;
}
if(errNum != WLZ_ERR_NONE)
{
ok = 0;
(void )WlzStringFromErrorNum(errNum, &errMsg);
(void )fprintf(stderr,
"%s Failed to write output section parameters to file %s (%s).\n",
argv[0], fileNameBuf, errMsg);
}
}
WlzFreeAffineTransform(inPTr); inPTr = NULL;
++index;
}
(void )WlzFree3DViewStruct(view);
AlcFree(refObjFileStr);
AlcFree(srcObjFileStr);
AlcFree(matchRP.v);
AlcFree(matchSP.v);
(void )WlzFreeAffineTransform(inTr);
(void )WlzFreeObj(refObj3D);
(void )WlzFreeObj(refObj2D);
(void )WlzFreeObj(srcObj2D);
(void )WlzFreeObj(refCObj2D);
(void )WlzFreeObj(srcCObj2D);
if(usage)
{
(void )fprintf(stderr,
"Usage: %s%s%s%s",
*argv,
" [-h] [-d] [-v] [-V]\n"
" [-o<output file base>] [-r <reference file>]\n"
" [-Y] [-t#] [-x#] [-y#] [-a#] [-s#] [-e]\n"
" [-g#,#] [-k#,#] [-u#,#] [-b #] [-B #]\n"
" [-f] [-i#] [-s#] [-A#] [-S#] [-F#] [-m#] [-n#]\n"
" [-c<contour file base>] [-N] [-L]\n"
" [<section parameters file>]\n"
"Version: ",
WlzVersion(),
"\n"
"Options:\n"
" -h Prints this usage information.\n"
" -d Perform extra tests to aid debuging.\n"
" -E Tolerance in mean registration metric value.\n"
" -v Be verbose, lots of text output to the standard error output!\n"
" -V Be verbose with Woolz objects and data, with file name names\n"
" prefixed by dbg-.\n"
" -o Output file base.\n"
" -r Reference file.\n"
" -Y The section parameters file is a list of section parameters\n"
" files, one per line.\n"
" -e Use centres of mass of geometric models to compute translation,\n"
" with this translaton being applied after the optional initial\n"
" affine transform.\n"
" -t Initial affine transform (if given all initial affine\n"
" transform primitives are ignored).\n"
" -x Initial horizontal translation.\n"
" -y Initial vertical translation.\n"
" -a Initial angle of rotation (degrees).\n"
" -s Initial scale factor.\n"
" -g Maximal gradient contour thresholds, with the format:\n"
" <ref threshold>,<src threshold>, either may be omitted.\n"
" -k Median filter size, with the format:\n"
" <ref size>,<src size>, either may be omitted.\n"
" -u Gaussian smoothing factors, with the format:\n"
" <ref smooth>,<src smooth>, either may be omitted.\n"
" -b Low threshold values used to produce binary mask images for\n"
" matching instead of the grey valued images, with objects\n"
" having values at or below the given thresholds.\n"
" -B High threshold values used to produce binary mask images for\n"
" matching instead of the grey valued images, with objects\n"
" having values above the given thresholds.\n"
" -f Keep the reference offset in the reference tie-points (MAPaint\n"
" doesn't do this).\n"
" -i Maximum number of iterations.\n"
" -p Minimum number of simplices per shell.\n"
" -P Minimum number of simplices per matched shell segment, with a\n"
" pair of correspondence points possibly being generated per\n"
" matched shell segment.\n"
" -A Maximum angle (degrees) from a global transformation.\n"
" -S Maximum displacement from a global transformed position.\n"
" -F Maximum deformation from a global transformation.\n"
" -m Implausibility threshold for rejecting implausible\n"
" correspondence points which should be greater than zero,\n"
" although the useful range is probably [0.5-5.0]. Higher\n"
" values allow more implausible matches to be returned.\n"
" -n Number of match points in neighbourhood when checking the\n"
" plausibility of the correspondence points.\n"
" -c Outputs the computed and decomposed geometric models using\n"
" the given file base.\n"
" -N Don't compute the tie-points.\n"
" -L Use linear interpolation (instead of nearest neighbour) when\n"
" cuting sections.\n"
" Reads either a 2D or 3D reference object and an MAPaint section\n"
"parameters file. Computes tie-points and then writes a new MAPaint\n"
"section parameters file which includes the tie-points.\n"
" An initial affine transform is computed from the (optional) initial\n"
"translation, rotation and scale parameters. A centre of mass can be\n"
"computed to improve the initial translation estimates. If a centre of\n"
"mass computation is used then the images must have background with\n"
"high values and foreground with low values. This initial affine\n"
"transform is appiled to the source image before computing the\n"
"tie-points. Once computed, the tie-points are transformed using the\n"
"inverse of the intial transform, before output.\n"
" The tie-points are computed using an ICP based matching algorithm\n"
"in which geometric models built from the maximal gradient edges\n"
"extracted from the computed section of the reference object and\n"
"the source object (refered to in the section parameters file).\n"
" To aid rejection of poor tie-points, the tie-points are ranked by\n"
"plausibility, with the most plausible first.\n");
}
return(!ok);
}
