ГОС! Р ИСО 10303-203-2003
WHERE
wrl: (((NOT lcap_ycar(SELF.ycar_component)) AND (1 <= day.component)
AND (day.component <■ 365)) OR (leap.ycartSELF.
ycar_compi>ncnt) AND (I <= day .component) AND (day.componcnt О 366)));
END.ENTITY: - - ordinal.datc
ENTITY organization;
id: OPTIONAL identifier;
name: label;
description: text;
END.ENTITY; - - organization
ENTITY organization.rclationship;
name: label;
description: text;
rclating.organization: organization;
rclatcd organi/ation:organization;
END_ENTITY; - - organization.relationship
ENTITY organizational address
SUBTYPE OF (addless);
organizations: SET 11:?J OF organization;
description : text;
END.ENT ITY; - - organizational.addrcss
ENTITY organizational.projcct;
name: label;
description: text;
rcsponsible.organizaiions : SET (1:?) OF organization:
END.ENTITY; - - organizational_projcct
ENTITY onentcd.closcd.shcll
SUBTYPE OF (closed.shcll);
doscd.xhcll.clcment : closed.shcll;
orientation : BOOLEAN;
DERIVE
SELFVonncctcd.facc.sct.cfs.faccs : SET |l:?j OF face
conditional.rcverse (SELF.oricntation, SELF,
closcd.shcll.elemcnt.cfs.faccs);
WHERE
WRI: (NOT CCONFIG.CONTROL.DESIGN.ORIENTED.CLOSED.SHELL’ IN TYPEOFl
SELF.doscd.shell.element))) ;
END.ENTITY; -- orientcd.closcd.shcll
ENTITY oncnted.cdge
SUBTYPE OF (edge);
edgc.elemcnt: edge;
orientation: BOOLEAN;
DERIVE
SELF\cdgc.cdgc_slart : vertex := boolean.choose (SELF.oricntation.
SELF.edgc.clemcnt.cdgc.start. SELF,
cdgc.clcmcnt.edgc.end) ;
SELF\cdgc.cdgc_end : vertexboolean_choosc(SELF.oricntation.
SELF.cdgc.elemcnt.cdge.cnd. SELF,
cdge.clemcnt.edgc.start) :
WHERE
WRI: (NOT CCONFIG_CONTROL_DESIGN.ORIENTED.EDGE’ IN TYPEOF (SELF,
cdge.clcmcnt)));
END.ENTITY: - - oriented.cdgc
ENTITY oriented.facc
SUBTYPE OF (face);
facc.clcmcnt: face;
152