FUNCTION build_transformed_set

(* SCHEMA plant_spatial_configuration; *)

   FUNCTION build_transformed_set(tr: 
cartesian_transformation_operator;
             gset : geometric_set) : SET [0:?] OF geometric_set_select;
    LOCAL
     s          : SET [1:?] OF geometric_set_select := gset.elements;
     trset      : SET [0:?] OF geometric_set_select := [];
    END_LOCAL;
    REPEAT j := 1 TO SIZEOF(s);
      IF ('PLANT_SPATIAL_CONFIGURATION.CURVE' IN TYPEOF(s[j])) THEN
       trset := trset + dummy_gri || curve() ||curve_replica(s[j],tr); 
ELSE
       IF ('PLANT_SPATIAL_CONFIGURATION.POINT' IN TYPEOF(s[j])) THEN
         trset := trset + dummy_gri || point() || 
point_replica(s[j],tr);
         ELSE
         IF ('PLANT_SPATIAL_CONFIGURATION.SURFACE' IN TYPEOF(s[j])) THEN
           trset := trset + dummy_gri || surface()  || 
surface_replica(s[j],
             tr || cartesian_transformation_operator_3d (?));
         END_IF;
       END_IF;
      END_IF;
    END_REPEAT;
    RETURN(trset);
   END_FUNCTION;

Referenced By

Generated by STEP Tools® EXPRESS to HTML Converter
2012-03-27T17:18:24-04:00