1 -- Created by: NW,JPB,CAL
2 -- Copyright (c) 1991-1999 Matra Datavision
3 -- Copyright (c) 1999-2012 OPEN CASCADE SAS
5 -- The content of this file is subject to the Open CASCADE Technology Public
6 -- License Version 6.5 (the "License"). You may not use the content of this file
7 -- except in compliance with the License. Please obtain a copy of the License
8 -- at http://www.opencascade.org and read it completely before using this file.
10 -- The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
11 -- main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
13 -- The Original Code and all software distributed under the License is
14 -- distributed on an "AS IS" basis, without warranty of any kind, and the
15 -- Initial Developer hereby disclaims all such warranties, including without
16 -- limitation, any warranties of merchantability, fitness for a particular
17 -- purpose or non-infringement. Please see the License for the specific terms
18 -- and conditions governing the rights and limitations under the License.
21 deferred class AspectLine from Aspect
27 ---Purpose: This class allows the definition of a group
28 -- of attributes for the LINE primitive
29 -- The attributes are:
33 -- When any value of the group is modified
34 -- all graphic objects using the group are modified.
40 TypeOfLine from Aspect
44 AspectLineDefinitionError from Aspect
50 ---Purpose: Initialise the constructor for Graphic3d_AspectLine3d.
53 -- Color = Quantity_NOC_YELLOW;
54 -- Type = Aspect_TOL_SOLID;
58 Initialize ( AColor : Color from Quantity;
59 AType : TypeOfLine from Aspect;
60 AWidth : Real from Standard )
62 ---Purpose: Initialise the values for the
63 -- constructor of Graphic3d_AspectLine3d.
65 raises AspectLineDefinitionError from Aspect;
66 -- if the width is a negative value.
68 ---------------------------------------------------
69 -- Category: Methods to modify the class definition
70 ---------------------------------------------------
72 SetColor ( me : mutable;
73 AColor : Color from Quantity );
75 ---Purpose: Modifies the colour of <me>.
76 ---Category: Methods to modify the class definition
78 SetType ( me : mutable;
79 AType : TypeOfLine from Aspect );
81 ---Purpose: Modifies the type of <me>.
82 ---Category: Methods to modify the class definition
84 SetWidth ( me : mutable;
85 AWidth : Real from Standard )
87 ---Purpose: Modifies the thickness of <me>.
88 -- Category: Methods to modify the class definition
89 -- Warning: Raises AspectLineDefinitionError if the
90 -- width is a negative value.
91 raises AspectLineDefinitionError from Aspect;
93 ----------------------------
94 -- Category: Inquire methods
95 ----------------------------
98 AColor : out Color from Quantity;
99 AType : out TypeOfLine from Aspect;
100 AWidth : out Real from Standard );
102 ---Purpose: Returns the current values of the group <me>.
103 ---Category: Inquire methods
110 -- Class : Aspect_AspectLine
112 -- Purpose : Declaration of variables specific to
115 -- Reminder : A line drawing context is defined by:
122 MyColor : Color from Quantity;
125 MyType : TypeOfLine from Aspect;
128 MyWidth : Real from Standard;