0023948: Wrong intersection between a surface of revolution and a plane.
[occt.git] / src / StepDimTol / StepDimTol_GeometricTolerance.cdl
CommitLineData
b311480e 1-- Created on: 2003-06-04
2-- Created by: Galina KULIKOVA
973c2be1 3-- Copyright (c) 2003-2014 OPEN CASCADE SAS
b311480e 4--
973c2be1 5-- This file is part of Open CASCADE Technology software library.
b311480e 6--
d5f74e42 7-- This library is free software; you can redistribute it and/or modify it under
8-- the terms of the GNU Lesser General Public License version 2.1 as published
973c2be1 9-- by the Free Software Foundation, with special exception defined in the file
10-- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
11-- distribution for complete text of the license and disclaimer of any warranty.
b311480e 12--
973c2be1 13-- Alternatively, this file may be used under the terms of Open CASCADE
14-- commercial license or contractual agreement.
b311480e 15
7fd59977 16-- Generator: ExpToCas (EXPRESS -> CASCADE/XSTEP Translator) V1.2
7fd59977 17
18class GeometricTolerance from StepDimTol
19inherits TShared from MMgt
20
21 ---Purpose: Representation of STEP entity GeometricTolerance
22
23uses
24 HAsciiString from TCollection,
25 MeasureWithUnit from StepBasic,
26 ShapeAspect from StepRepr
27
28is
29 Create returns GeometricTolerance from StepDimTol;
30 ---Purpose: Empty constructor
31
32 Init (me: mutable; aName: HAsciiString from TCollection;
33 aDescription: HAsciiString from TCollection;
34 aMagnitude: MeasureWithUnit from StepBasic;
35 aTolerancedShapeAspect: ShapeAspect from StepRepr);
36 ---Purpose: Initialize all fields (own and inherited)
37
38 Name (me) returns HAsciiString from TCollection;
39 ---Purpose: Returns field Name
40 SetName (me: mutable; Name: HAsciiString from TCollection);
41 ---Purpose: Set field Name
42
43 Description (me) returns HAsciiString from TCollection;
44 ---Purpose: Returns field Description
45 SetDescription (me: mutable; Description: HAsciiString from TCollection);
46 ---Purpose: Set field Description
47
48 Magnitude (me) returns MeasureWithUnit from StepBasic;
49 ---Purpose: Returns field Magnitude
50 SetMagnitude (me: mutable; Magnitude: MeasureWithUnit from StepBasic);
51 ---Purpose: Set field Magnitude
52
53 TolerancedShapeAspect (me) returns ShapeAspect from StepRepr;
54 ---Purpose: Returns field TolerancedShapeAspect
55 SetTolerancedShapeAspect (me: mutable; TolerancedShapeAspect: ShapeAspect from StepRepr);
56 ---Purpose: Set field TolerancedShapeAspect
57
58fields
59 theName: HAsciiString from TCollection;
60 theDescription: HAsciiString from TCollection;
61 theMagnitude: MeasureWithUnit from StepBasic;
62 theTolerancedShapeAspect: ShapeAspect from StepRepr;
63
64end GeometricTolerance;