1 -- Created on: 1993-11-05
2 -- Created by: Jean Marc LACHAUME
3 -- Copyright (c) 1993-1999 Matra Datavision
4 -- Copyright (c) 1999-2014 OPEN CASCADE SAS
6 -- This file is part of Open CASCADE Technology software library.
8 -- This library is free software; you can redistribute it and/or modify it under
9 -- the terms of the GNU Lesser General Public License version 2.1 as published
10 -- by the Free Software Foundation, with special exception defined in the file
11 -- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
12 -- distribution for complete text of the license and disclaimer of any warranty.
14 -- Alternatively, this file may be used under the terms of Open CASCADE
15 -- commercial license or contractual agreement.
17 class Domain from HatchGen
20 PointOnHatching from HatchGen
23 DomainError from Standard
29 ---Purpose: Creates an infinite domain.
31 returns Domain from HatchGen ;
34 Create (P1, P2 : PointOnHatching from HatchGen)
36 ---Purpose: Creates a domain for the curve associated to a hatching.
38 returns Domain from HatchGen ;
41 Create (P : PointOnHatching from HatchGen ; First : Boolean from Standard)
43 ---Purpose: Creates a semi-infinite domain for the curve associated
44 -- to a hatching. The `First' flag means that the given
45 -- point is the first one.
47 returns Domain from HatchGen ;
50 SetPoints (me : in out ; P1, P2 : PointOnHatching from HatchGen)
52 ---Purpose: Sets the first and the second points of the domain.
58 SetPoints (me : in out)
60 ---Purpose: Sets the first and the second points of the domain
67 SetFirstPoint (me : in out ; P : PointOnHatching from HatchGen)
69 ---Purpose: Sets the first point of the domain.
75 SetFirstPoint (me : in out)
77 ---Purpose: Sets the first point of the domain at the
84 SetSecondPoint (me : in out ; P : PointOnHatching from HatchGen)
86 ---Purpose: Sets the second point of the domain.
92 SetSecondPoint (me : in out)
94 ---Purpose: Sets the second point of the domain at the
103 ---Purpose: Returns True if the domain has a first point.
106 returns Boolean from Standard
112 ---Purpose: Returns the first point of the domain.
113 -- The exception DomainError is raised if
114 -- HasFirstPoint returns False.
117 ---C++: return const &
119 returns PointOnHatching from HatchGen
120 raises DomainError from Standard
126 ---Purpose: Returns True if the domain has a second point.
129 returns Boolean from Standard
135 ---Purpose: Returns the second point of the domain.
136 -- The exception DomainError is raised if
137 -- HasSecondPoint returns False.
140 ---C++: return const &
142 returns PointOnHatching from HatchGen
143 raises DomainError from Standard
147 Dump (me; Index : Integer from Standard = 0)
149 ---Purpose: Dump of the domain.
156 myHasFirstPoint : Boolean from Standard ;
157 myFirstPoint : PointOnHatching from HatchGen ;
158 myHasSecondPoint : Boolean from Standard ;
159 mySecondPoint : PointOnHatching from HatchGen ;
161 end Domain from HatchGen ;