ГОС! Р ИСО 10303-203-2003
s
1F (( ’CONFIG_CONTROL_DESIGN.OFFSET_SURFACE’ IN TYPEOF(sf)) AND <
s1\olTset_surface_sclfJntcrscct ■■FALSE)) OR (sl\
oflset_surlace.sclfJntcrscct ■ UNKNOWN) THEN
RETURN(gbsfchсck_surface(sf\oflsct_surface.basis_su rfacc)) :
ELSE
IF CONFIG CONTROLJ)ESIGN.RECTANGULAR_COMPOSITE_SURFACE’ IN
TYPEOF(sf) THEN
REPEAT iI TO SIZEOF(sl\rcclangular_compositc_surface.
segments) BY 1;
REPEATj :•= 1 TO SIZEOF(si\rcctangular_compositc_surfacc.
scgmcnts[i|) BY 1;
IF NOT ghsf_chcck_surface(sf\
rrctangular_composite_surfacc.segmcnls|i] (j|.
parcnt_surfaee) THEN RETURN(FALSE);
E N D JF ;
END_REPEAT;
END_REPEAT ;
RETURN (TRUE) ;
ELSE
IF *CONFIG_CONTROL DESIGN.RECTANGULAR_TRIMMED_SURFACE’ IN
TYPEOF(sl) THEN
IF SIZEOF(|’CONFlG_CONTROL_DESIGN.CONIC’AL_SURFACE’ ,
CONFIG_CONTROL_DESIGN.CYLINDRICAL_SURFACE’ .
CONFIG_CONTROL_DESIGN.PIANE‘) * TYPEOF(sl\
rcctangular_trimmed surface.basis surface)) = 1
THEN
RETURN (TRUE) ;
ELSE
RETURN (gbsf_check_surface (sl\rcctangular_trimmed_suiTacc
.basis_surfacc)) ;
END.IF;
ELSE
IF ’CONFIG_CONTROL_DESIGN.SURFACE_REPLICA’ IN TYPEOF(
s
0
THEN
RETURN (gbsf_cbeck_surfacc (sl\surfacc_rcpik;a.
parcnt_surfacc)) ;
ELSE
IF CONFIG_CONTROL_DESIGN.SWEPT_SURFACE’ IN TYPEOF( 0
THEN
RETURN (gbsf_chcck_curve(sf\swcpt_surfaec.swept_curve));
END_IF;
END IF ;
ENDJF;
ENDJF;
ENDJF;
EN D JF ;
E N D JF :
E N D JF ;
RETURN (FALSE) ;
END_FUNCTION; - - gbsf_chcck_surface
FUNCTION gct_basLs_surl’acc(c: curve_on_surface): SET |0:2| OF surface;
LOCAL
surfs: SET |0:2| OF surface;
n; INTEGER;
END_LOCAL ;
surfs| |;
IF ’CONFIG_CONTROL_DESIGN.PCURVE‘ IN TYPEOF(c) THEN
surfs :« |c\pcurvc.basis_surfacc|;
ELSE
IF CONFIG_CONTROL_DESlGN.SURFACE_CURVE’ IN TYPEOF(c) THEN