extern double ask_distance_between_object_and_point( tag_t body1, /*<I>*/
double point[3] ) /*<I>*/
{
double dist = 0.0,
point1[3] = {0,0,0},
pt_on_ent1[ 3 ],
pt_on_ent2[ 3 ];
UF_MODL_ask_minimum_dist ( body1, NULL_TAG, 0, point1, 0, point,
&dist, pt_on_ent1, pt_on_ent2 );
return( dist );
} |