mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-08-09 13:22:24 +03:00
d5f74e42d6
License statement text corrected; compiler warnings caused by Bison 2.41 disabled for MSVC; a few other compiler warnings on 54-bit Windows eliminated by appropriate type cast Wrong license statements corrected in several files. Copyright and license statements added in XSD and GLSL files. Copyright year updated in some files. Obsolete documentation files removed from DrawResources.
126 lines
3.2 KiB
Plaintext
126 lines
3.2 KiB
Plaintext
-- Created by: NW,JPB,CAL
|
||
-- Copyright (c) 1991-1999 Matra Datavision
|
||
-- Copyright (c) 1999-2014 OPEN CASCADE SAS
|
||
--
|
||
-- This file is part of Open CASCADE Technology software library.
|
||
--
|
||
-- This library is free software; you can redistribute it and/or modify it under
|
||
-- the terms of the GNU Lesser General Public License version 2.1 as published
|
||
-- by the Free Software Foundation, with special exception defined in the file
|
||
-- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
|
||
-- distribution for complete text of the license and disclaimer of any warranty.
|
||
--
|
||
-- Alternatively, this file may be used under the terms of Open CASCADE
|
||
-- commercial license or contractual agreement.
|
||
|
||
deferred class AspectLine from Aspect
|
||
|
||
inherits
|
||
|
||
TShared
|
||
|
||
---Purpose: This class allows the definition of a group
|
||
-- of attributes for the LINE primitive
|
||
-- The attributes are:
|
||
-- * Colour
|
||
-- * Type
|
||
-- * Thickness
|
||
-- When any value of the group is modified
|
||
-- all graphic objects using the group are modified.
|
||
|
||
uses
|
||
|
||
Color from Quantity,
|
||
|
||
TypeOfLine from Aspect
|
||
|
||
raises
|
||
|
||
AspectLineDefinitionError from Aspect
|
||
|
||
is
|
||
|
||
Initialize;
|
||
---Level: Public
|
||
---Purpose: Initialise the constructor for Graphic3d_AspectLine3d.
|
||
--
|
||
-- Default values :
|
||
-- Color = Quantity_NOC_YELLOW;
|
||
-- Type = Aspect_TOL_SOLID;
|
||
-- Width = 1.0;
|
||
--
|
||
|
||
Initialize ( AColor : Color from Quantity;
|
||
AType : TypeOfLine from Aspect;
|
||
AWidth : Real from Standard )
|
||
---Level: Public
|
||
---Purpose: Initialise the values for the
|
||
-- constructor of Graphic3d_AspectLine3d.
|
||
--
|
||
raises AspectLineDefinitionError from Aspect;
|
||
-- if the width is a negative value.
|
||
|
||
---------------------------------------------------
|
||
-- Category: Methods to modify the class definition
|
||
---------------------------------------------------
|
||
|
||
SetColor ( me : mutable;
|
||
AColor : Color from Quantity );
|
||
---Level: Public
|
||
---Purpose: Modifies the colour of <me>.
|
||
---Category: Methods to modify the class definition
|
||
|
||
SetType ( me : mutable;
|
||
AType : TypeOfLine from Aspect );
|
||
---Level: Public
|
||
---Purpose: Modifies the type of <me>.
|
||
---Category: Methods to modify the class definition
|
||
|
||
SetWidth ( me : mutable;
|
||
AWidth : Real from Standard )
|
||
---Level: Public
|
||
---Purpose: Modifies the thickness of <me>.
|
||
-- Category: Methods to modify the class definition
|
||
-- Warning: Raises AspectLineDefinitionError if the
|
||
-- width is a negative value.
|
||
raises AspectLineDefinitionError from Aspect;
|
||
|
||
----------------------------
|
||
-- Category: Inquire methods
|
||
----------------------------
|
||
|
||
Values ( me;
|
||
AColor : out Color from Quantity;
|
||
AType : out TypeOfLine from Aspect;
|
||
AWidth : out Real from Standard );
|
||
---Level: Public
|
||
---Purpose: Returns the current values of the group <me>.
|
||
---Category: Inquire methods
|
||
|
||
--
|
||
|
||
fields
|
||
|
||
--
|
||
-- Class : Aspect_AspectLine
|
||
--
|
||
-- Purpose : Declaration of variables specific to
|
||
-- drawing lines
|
||
--
|
||
-- Reminder : A line drawing context is defined by:
|
||
-- - the colour
|
||
-- - the type
|
||
-- - the thickness
|
||
--
|
||
|
||
-- the colour
|
||
MyColor : Color from Quantity;
|
||
|
||
-- the type
|
||
MyType : TypeOfLine from Aspect;
|
||
|
||
-- the thickness
|
||
MyWidth : Real from Standard;
|
||
|
||
end AspectLine;
|