FUNCTION vertex_point_pcurves
(a_vertex : vertex_point, the_degenerates : SET [0:?] OF evaluated_degenerate_pcurve) : SET [0:?] OF degenerate_pcurve;
LOCAL
a_point : point;
result : SET OF degenerate_pcurve;
END_LOCAL;
a_point := a_vertex.vertex_geometry;
result := [];
IF 'GEOMETRY_SCHEMA.DEGENERATE_PCURVE' IN TYPEOF(a_point) THEN
result := result + a_point;
ELSE
REPEAT j := 1 TO SIZEOF(the_degenerates);
IF (the_degenerates[j].equivalent_point :=: a_point) THEN
result := result + the_degenerates[j];
END_IF;
END_REPEAT;
END_IF;
RETURN (result); END_FUNCTION; -- vertex_point_pcurves
|