|
FUNCTION valid_parametric_coordinate (coordinates : LIST [1:3] OF parameter_value) : BOOLEAN; LOCAL i : INTEGER ; END_LOCAL ; REPEAT i := 1 TO HIINDEX ( coordinates ) ; IF ( ( 1.0 < coordinates [ i ] ) OR ( coordinates [ i ] < - 1.0 ) ) THEN RETURN ( FALSE ) ; END_IF ; END_REPEAT ; RETURN ( TRUE ) ; END_FUNCTION; -- valid_parametric_coordinate |
|
public class FValid_parametric_coordinate public static Value run(SdaiContext _context, Value coordinates) |