/*
*
* VEX GEOMETRY OPERATOR 
* Author: Dan Lynch
*
*/


#pragma hint filename oppath
#pragma hint height hidden
sop
find_highest(string filename="";
            export float height = 0;
            export vector pos = 0)
{
    string file = concat("op:", filename);
    int numpoints = npoints(0);
    int pointcloud = pcopen(file, "P", P, 1000000, numpoints);

 

    while(pciterate(pointcloud))
    {
        vector tempVec;
        pcimport(pointcloud, "P", tempVec);
  
        if (tempVec.y > height)
        {
            height = tempVec.y;
            pos = tempVec;
        } 
    }

}