FUNCTION consistent_sizes

(* SCHEMA step_merged_ap_schema; *)

-- DIFF IN AP238 STEP-NC
-- IN AP238 STEP-NC/AP242
FUNCTION consistent_sizes
      (max : INTEGER;
       point_lists : LIST OF point_cloud_dataset ) : BOOLEAN;
   LOCAL
      ndatasets : INTEGER := SIZEOF(point_lists);
      result : BOOLEAN := FALSE;
   END_LOCAL;
      REPEAT i := 1 TO ndatasets - 1;
         IF SIZEOF(point_lists[i].point_coordinates) <> max THEN
            result := FALSE;
            RETURN (result);
         END_IF;
      END_REPEAT;
      IF SIZEOF(point_lists[ndatasets].point_coordinates) > max THEN
         result := FALSE;
         RETURN (result);
      END_IF;
      RETURN (result);
END_FUNCTION;

Referenced By

Defintion consistent_sizes is references by the following definitions:

Definition	Type
point_cloud_superdataset	ENTITY

[Top Level Definitions] [Exit]

Generated by STEP Tools® EXPRESS to HTML Converter
2020-07-28T17:02:20-04:00