|
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 |
|
public class FVertex_point_pcurves public static Value run(SdaiContext _context, Value a_vertex, Value the_degenerates) |