(* SCHEMA geometry_schema; *)
FUNCTION associated_surface(arg : pcurve_or_surface) : surface;
LOCAL
surf : surface;
END_LOCAL;
IF 'GEOMETRY_SCHEMA.PCURVE' IN TYPEOF(arg) THEN
surf := arg\pcurve.basis_surface;
ELSE
surf := arg;
END_IF;
RETURN(surf);
END_FUNCTION;
|
Generated by STEP Tools® EXPRESS to HTML Converter
2012-03-27T17:13:58-04:00