int pts[] = nearpoints(0, @P, chf("radius"),2);
if (len(pts)==1){
removepoint(0,@ptnum);
}