2 -- File : TabularData.cdl
3 -- Created : Sat 9 Jan 1993
4 -- Author : CKY / Contract Toubro-Larsen ( SIVA )
6 ---Copyright : MATRA-DATAVISION 1993
9 class TabularData from IGESDefs inherits IGESEntity
11 ---Purpose: Defines IGES Tabular Data, Type <406> Form <11>,
12 -- in package IGESDefs
13 -- This Class is used to provide a Structure to accomodate
18 HArray1OfInteger from TColStd,
19 HArray1OfReal from TColStd,
20 HArray1OfHArray1OfReal from IGESBasic
22 raises DimensionMismatch, OutOfRange
26 Create returns mutable TabularData;
28 -- Specific methods for the entity
33 typesInd : HArray1OfInteger;
34 nbValuesInd : HArray1OfInteger;
35 valuesInd : HArray1OfHArray1OfReal;
36 valuesDep : HArray1OfHArray1OfReal)
37 raises DimensionMismatch;
38 ---Purpose : This method is used to set the fields of the class
40 -- - nbProps : Number of property values
41 -- - propType : Property Type
42 -- - typesInd : Type of independent variables
43 -- - nbValuesInd : Number of values of independent variables
44 -- - valuesInd : Values of independent variables
45 -- - valuesDep : Values of dependent variables
46 -- raises exception if lengths of typeInd and nbValuesInd are not same
48 NbPropertyValues(me) returns Integer;
49 ---Purpose : returns the number of property values (recorded)
51 ComputedNbPropertyValues (me) returns Integer;
52 ---Purpose : determines the number of property values required
54 OwnCorrect (me : mutable) returns Boolean;
55 ---Purpose : checks, and correct as necessary, the number of property
56 -- values. Returns True if corrected, False if already OK
58 PropertyType(me) returns Integer;
59 ---Purpose : returns the property type
61 NbDependents(me) returns Integer;
62 ---Purpose : returns the number of dependent variables
64 NbIndependents(me) returns Integer;
65 ---Purpose : returns the number of independent variables
67 TypeOfIndependents(me; num: Integer) returns Integer
69 ---Purpose : returns the type of the num'th independent variable
70 -- raises exception if num <= 0 or num > NbIndependents()
72 NbValues(me; num : Integer) returns Integer
74 ---Purpose : returns the number of different values of the num'th indep. variable
75 -- raises exception if num <= 0 or num > NbIndependents()
77 IndependentValue(me; variablenum : Integer; valuenum : Integer)
80 -- returns valuenum'th value of the variablenum'th independent variable
81 -- raises exception if
82 -- variablenum <= 0 or variablenum > NbIndependents()
83 -- valuenum <= 0 or valuenum > NbValues(variablenum)
85 DependentValues (me; num : Integer) returns HArray1OfReal from TColStd
87 -- returns the entire list of recorded Dependent Values
88 -- UNRESOLVED. Temporarily, all dependent values are attached to
89 -- <num> = 1, the other values remain undefined
91 DependentValue(me; variablenum: Integer; valuenum: Integer)
94 -- RESERVED, unresolved
95 -- valuenum'th value of the variablenum'th dependent variable
96 -- raises exception if
97 -- variablenum <= 0 or variablenum > NbIndependents()
98 -- valuenum <= 0 or valuenum > NbValues(variablenum)
103 -- Class : IGESDefs_TabularData
105 -- Purpose : Declaration of variables specific to the definition
106 -- of the Class TabularData.
108 -- Reminder : A TabularData instance is defined by :
109 -- - The number of properties
110 -- - The property type, an integer
111 -- - The property type, an integer
112 -- - The number of dependent variables
113 -- - The type of independent variables, a single array of Int
114 -- - The single array of integer values
115 -- - The single array of independent values
116 -- - The single array of dependent values
118 theNbPropertyValues : Integer;
119 thePropertyType : Integer;
120 theTypeOfIndependentVariables : HArray1OfInteger;
121 theNbValues : HArray1OfInteger;
122 theIndependentValues : HArray1OfHArray1OfReal;
123 theDependentValues : HArray1OfHArray1OfReal;