ГОС! Р ИСО 10303-203-2003
с: composite curve on_surface): BOOLEAN;
LOCAL
n_scgmcnts : INTEGER :«=SIZEOF(c.segments);
END_LOCAL ;
REPEAT к ;™ I TO n_scgmcnts BY 1;
IF (NOT (’CONFIG_CONTROL_DESIGN.PCURVE* IN TYPEOF(c\compositc_curve.
scgmcnis{k|.parcnt_curvc») AND (NOT (
’CONFIG_CONTROL_DESIGN.SURFACE_CliRVE‘ IN TYPEOF (c\composhe_curvc
.scgmcnts|k}.parcnt_curvc))) AND (NOT (
’CONFIG_CONTROL_DESlGN.COMPOS!TE_CURVE_ON_SURFACE’ IN TYPEOF (c\
composite_curve.scgments|k|.parcnt_curvc))> THEN
RETURN (FALSE):
ENDJF;
END_REPEAT ;
RETURN (TRUE);
ENDFUNCTION: - - constraintscompositccurveonsuriace
FUNCTION constraints^comctr)’_shclLbascd_surfacc_modcl (
m; shcll_bascd_surface_model): B(X)LEAN;
LOCAL
result : BOOLEAN := TRUE;
END_LOC’AL;
REPEAT j :« I TO SIZEOF(m.sbsm_boundary) BY I;
IF (NOT <’CONFIG_CONTROL_DESIGN.OPEN_SHELL’ IN TYPEOF(m.
sbsm_boundarv|j|)>) AND (NOT (
c o n f
i
g
_
c
6
n t r o l
_
d e s
i
g n
.
c l o se d
_
sh e l l
-
i
n
TYPEOF (m.sbsm_boundary|j|))) THEN
result :•» FALSE;
RETURN (result);
E N D JF ;
END_REPEAT ;
RETURN (result);
END_FUNCTION; - - constraints_geomctr>,_shcll_based_surfacc_model
FUNCTION constraints_gcomctry_shcllJ>ascd_wireframe_modcl (
m: shellJxiscd_wircframc_modcl): BOOLEAN;
LOCAL
result ; BOOLEANTRUE:
END_LOCAL;
REPEAT j1TO SlZEOF(m.sbwmJxHindar>’) BY I;
IF (NOT (’CONFIG_CONTROL_DESIGN.WIRE_SHELL’ IN TYPEOF(m.
sbwm_boundar>Lil))) AND (NOT (
’CONFIG_CONTROL_DESIGN.VERTEX_SHELL’ IN
TYPEOF (m.sbwmjxnindaryljl)))
THEN resultFA LSE;
RETURN (result) ;
END_IF ;
END_REPEAT ;
RETURN (result);
END FUNCTION; - - constraints_geomctr\’_shclI_based_wircframc_modcl
FUNCTION constraints_paramj)_splinc (degree. up_knots. up_cp: INTEGER;
knot_muIt: LIST OF INTEGER;
knots: LIST OF paramcter_value): BOOLEAN;
LOCAL
к : INTEGER;
sum ; INTEGER;
result; BOOLEAN :« TRUE;
END_LOCAL:
sumknot_mult|l|;
186