FUNCTION nmsf_surface_check
(* SCHEMA ship_moulded_form_schema; *)
FUNCTION nmsf_surface_check(
surf: surface
): BOOLEAN;
IF 'SHIP_MOULDED_FORM_SCHEMA.ELEMENTARY_SURFACE' IN TYPEOF(surf) THEN
RETURN(TRUE);
ELSE
IF 'SHIP_MOULDED_FORM_SCHEMA.SWEPT_SURFACE' IN TYPEOF(surf) THEN
RETURN(nmsf_curve_check(surf\swept_surface.swept_curve));
ELSE
IF (('SHIP_MOULDED_FORM_SCHEMA.OFFSET_SURFACE' IN TYPEOF(surf))
AND (surf\offset_surface.self_intersect = FALSE)) OR (surf\
offset_surface.self_intersect = UNKNOWN) THEN
RETURN(nmsf_surface_check(surf\offset_surface.basis_surface));
ELSE
IF 'SHIP_MOULDED_FORM_SCHEMA.SURFACE_REPLICA' IN TYPEOF(surf)
THEN
RETURN(nmsf_surface_check(surf\surface_replica.parent_surface));
ELSE
IF (('SHIP_MOULDED_FORM_SCHEMA.B_SPLINE_SURFACE' IN TYPEOF(
surf)) AND (surf\b_spline_surface.self_intersect = FALSE))
OR (surf\b_spline_surface.self_intersect = UNKNOWN) THEN
RETURN(TRUE);
END_IF;
END_IF;
END_IF;
END_IF;
END_IF;
RETURN(FALSE);
END_FUNCTION; -- nmsf_surface_check
Referenced By
Defintion nmsf_surface_check is references by the following definitions:
[Top Level Definitions] [Exit]Generated by STEP Tools® EXPRESS to HTML Converter
2012-03-27T17:16:47-04:00