ГОСТ РИС010303-507—2009
ELSE
(* объект rectangular_composite_surfaceдолжен ссылаться наматрицудопустимыхповерхнос
тей
*)
IF ’AIC_GEOMETRICALLY_BOUNDED_SURFACE.RECTANGULAR_COMPOSITE_SURFACE’
IN TYPEOF (sf)
THEN
REPEAT i : = 1TO SIZEOF
(sfVectangular_composite_surface.segments);
REPEATj : = 1TO SIZEOF
(sf\rectangular_composite_surface.segments [i]);
IF NOT(gbsf_check_surface
(sf\rectangular_composite_surface.segments [i] [j],
parent_surface))
THEN RETURN (FALSE);
END IF;
END_REPEAT;
END_REPEAT;
RETURN (TRUE);
ELSE
(*объекта surface_replicaдолжен иметьдопустимую порождающую поверхность
*)
IF •AIC_GEOMETRICALLY_BOUNDED_SURFACE.SURFACE_REPLICA’
INTYPEOF (sf) THEN RETURN (gbsf_check_surface
(sfvsurface_repl ica parent_surface));
ELSE
(* объект surface_of_revolution должен иметь допустимую пологую кривую: объект surfa-
ce_of_linear_extrusion не является допустимым, так какой неограничен в направлении
экструзии; однако он может бытьдопустимым, если он обрезан
*)
IF ’AIC_GEOMETRICALLY_BOUNDED_SURFACE.SURFACE_OF_REVOLUTION’
INTYPEOF(sf)THEN RETURN
(gbsf_check_curve(sf\swept_surface.swept_curve)):
END IF”
ENDJF;
ENDJF;
ENDJF;
ENDJF;
END_IF;
RETURN(FALSE);
END_FUNCTION:
Г
Определения аргументов
sf (входнойаргумент)—объектsurface, который проверяетсянадопустимостьиспользованиявобъекте
geometricallyJ>ounded_surface_shapo_representation.
BOOLEAN (выходной аргумент) — результат имеет значение TRUE, если объект surface является
допустимым: в противном случае результат имеет значение FALSE.
*)
END_SCHEMA; - - AIC_geometrically_bounded_surface
Г
15