summaryrefslogtreecommitdiff
path: root/src/HatchGen/HatchGen_PointOnHatching.cdl
blob: 410e8c427c50876e519ce8acd17cb599bbfddedb (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
-- File:	HatchGen_PointOnHatching.cdl
-- Created:	Fri Oct 29 15:21:47 1993
-- Author:	Jean Marc LACHAUME
--		<jml@phobox>
-- Copyright:	Matra Datavision 1993

class PointOnHatching from HatchGen


inherits IntersectionPoint from HatchGen


uses
    PointOnElement    from HatchGen ,
    PointsOnElement   from HatchGen ,
    IntersectionPoint from IntRes2d

raises
    OutOfRange from Standard
    
    
is


    Create
    
    	---Purpose: Creates an empty point.

      	---Category: PointOnHatching

    	returns PointOnHatching from HatchGen ;



    Create (Point : PointOnHatching from HatchGen)
    
    	---Purpose: Creates a point from an other.

      	---Category: PointOnHatching

    	returns PointOnHatching from HatchGen ;


    Create (Point : IntersectionPoint from IntRes2d)
    
    	---Purpose: Creates a point from an intersection point.

      	---Category: PointOnHatching

    	returns PointOnHatching from HatchGen ;


    Delete (me : out) is virtual;
    ---C++: alias "Standard_EXPORT virtual ~HatchGen_PointOnHatching(){Delete();}"
    ---Purpose: linux porting      
   
    AddPoint (me : in out ; Point     : PointOnElement from HatchGen ;
    	    	    	    Confusion : Real           from Standard)
    
    	---Purpose: Adds a point on element to the point.

    	---Category: PointOnHatching

    	is static ;


    NbPoints (me)
    
    	---Purpose: Returns the number of elements intersecting the
    	--          hatching at this point.

    	---Category: PointOnHatching

    	returns Integer from Standard
	is static ;


    Point (me; Index : Integer from Standard)
    
    	---Purpose: Returns the Index-th point on element of the point.
    	--          The exception OutOfRange is raised if
    	--          Index > NbPoints.

    	---Category: PointOnHatching

    	---C++: return const &

    	returns PointOnElement from HatchGen
	raises OutOfRange from Standard
	is static ;


    RemPoint (me : in out ; Index : Integer from Standard)
    
    	---Purpose: Removes the Index-th point on element of the point.
    	--          The exception OutOfRange is raised if
    	--          Index > NbPoints.

    	---Category: PointOnHatching

    	raises OutOfRange from Standard
	is static ;


    ClrPoints (me : in out)
    
    	---Purpose: Removes all the points on element of the point.

    	---Category: PointOnHatching

    	is static ;


    IsLower (me; Point     : PointOnHatching from HatchGen ;
    	    	 Confusion : Real            from Standard)
    
      	---Purpose: Tests if the point is lower than an other.
      	--          A point on hatching P1 is said to be lower than an
      	--          other P2 if :
      	--            P2.myParam - P1.myParam > Confusion

      	---Category: PointOnHatching

        returns Boolean from Standard
        is static ;
	

    IsEqual (me; Point     : PointOnHatching from HatchGen ;
    	    	 Confusion : Real            from Standard)
    

      	---Purpose: Tests if the  point is equal to an other.
      	--          A  point on hatching P1 is said to be equal to an
      	--          other P2 if :
        --            | P2.myParam - P1.myParam | <= Confusion

      	---Category: PointOnHatching

	returns Boolean from Standard
  	is static ;


    IsGreater (me; Point     : PointOnHatching from HatchGen ;
                   Confusion : Real            from Standard)
    
    
      	---Purpose: Tests if the point is greater than an other.
      	--          A point on hatching P1 is said to be greater than an
      	--          other P2 if :
      	--            P1.myParam - P2.myParam > Confusion

      	---Category: PointOnHatching

        returns Boolean from Standard
        is static ;


    Dump (me; Index : Integer from Standard = 0)
    
    	---Purpose: Dump of the point.

    	is static ;
	

fields

    myPoints : PointsOnElement from HatchGen is protected ;

end PointOnHatching from HatchGen ;