ГОСТ Р ИСО 10303-203-2003
п :=* SIZEOF(c\surfacc_curvc.associatcd geometry):
REPEAT I1 TO n BY 1;
surfs := surls + associatcd_surface(c\surfacc_curvc.
associatcd_gcomctrv|i|) ;
END_REPEAT ;
ENDJF:
END_IF;
IF ’CON FIG_CONTROL_DESIGN.COM POSITE_CURVE_ON_SURFACE‘ IN TYPEOF(c)
THEN
n := SlZEOF(c\composite_curve.scgments);
surfs
’.**
get_basis_surl’ace(c\composite_curvc.scgments[ 1].
p a re n l_ c u rv c ) ;
IF n > I THEN
REPEAT i2 TO n BY I;
surfs :=■surfs * gct_basis_surface(c\compositc_curve.scgments|i|
.parenl_curvc);
END_REPEAT ;
ENDJF;
E N D JF ;
RETURN (surfs) ;
ENDFU NOTION; - - gct_basis_surfacc
FUNCTION itcm_in_contcxt (item: representationJtcm;
entxt: rcprcscntation_context): BOOLEAN;
LOCAL
i : INTEGER;
у : BAG OF rcprcscnlationjtcm;
END_LOCAL ;
IF SIZEOF(USEDIN(itcm, ,CONFIG_CONTROL_DESIGN.REPRESENTATION.ITEMS’) *
cntxt.rcprescntations_in context) >0THEN RETURN(TRUE);
ELSE
уQUERY ( z <* USED!N(itcm.’ ’) | (
’CONFIG_CONTROL_DESIGN.REPRESENTATION_ITEM’ IN TYPEOF(z)) );
IF SIZEOF(y) > 0 THEN
REPEAT i1TO HIINDEX(v) BY 1:
IF itcmjn context(y|i]. entxt) THEN RETIJRN(TRUE);
ENDJF;
END_REPEAT ;
E N D JF ;
E N D JF ;
RETURN (FALSE) ;
END FUNCTION: - - itcm_in_context
FUNCTION lcap_ycar (year. ycar_numbcr): BOOLEAN;
IF (((\ear MOD 4) = 0) AND ((year MOD 100) < > 0)> OR ((vear MOD
Ш )
“
0) THEN RETURN(TRUE);
ELSE
RETURN (FALSE) ;
E N D JF ;
END.FUNCTION; - - lcap_year
FUNCTION list_face_loops(f: face): LIST |0:?| OF loop:
LOCAL
loops : LIST (0:?| OF loop :~ | J;
END LOCAL;
REPEAT iI TO SIZEOF(f.bounds) BY I;
loops := loops + f.bounds|i|.bound;
END_REPEAT ;
RETURN (loops);
END_FUNOTION; - - lisl_facc_loops
195