# * GIVEN: an AoAoA (@blocks), where: # -- the outermost index is (I think) a set of objects (?), # ---- the second index is a set of vertices for each object, # ------ the third index is a set of six values for each vertex: # ID(?), x, y, z(?), type-flag, another-flag(?), yet-another-flag(?). # When the type-flag is "88888", this is a solid vertex. # * TO DO: go through the vertices of each object in sequence # -- if the vertex is solid, store its x,y coordinates in @base # -- otherwise, store its x,y coordinates in $remote[0] (AoA) and: # ---- looking ahead while next vertex is also not solid, # push next set of coordinates onto @remote # ---- if more than one set of coordinates in @remote: # ------- foreach (@remote) # ---------- compute distance from @base and push it onto this x,y array # ------- for the elements of @remote sorted by distance: # --------- copy the coordinates from this element back to # the current vertex of @{$blocks[$thisObj]} # --------- increment to the next vertex in @{$blocks[$thisObj]}