int pointToCheck = 0;

v@opening = point(0,"P",pointToCheck);

f[]@distance;

for(int i = 0; i < @numpt; ++i)
{
    v@ipoint = point(0,"P",i);
    
    @distance[i] = distance(@opening,@ipoint);
}
float dist = 0;
int point = 0;
for(int i = 0; i < @numpt; ++i)
{

    if(dist > @distance[i])
    {
    }
    else
    {
        dist = @distance[i];
        point = i;
    }
}
for(int i = 0; i < @numpt; ++i)
{
    if(i == point || i == pointToCheck)
    {
    }
    else
    {
        removepoint(0,i);
    }
}

setpointgroup(0, "originPoint", pointToCheck, 1, "set");
setpointgroup(0, "furthurestPoint", pointToCheck, 1, "set");