mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-07-10 12:25:50 +03:00
973c2be1e1
The copying permission statements at the beginning of source files updated to refer to LGPL. Copyright dates extended till 2014 in advance.
76 lines
2.4 KiB
Plaintext
76 lines
2.4 KiB
Plaintext
-- Created on: 1993-01-09
|
|
-- Created by: CKY / Contract Toubro-Larsen ( TCD )
|
|
-- Copyright (c) 1993-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 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.
|
|
|
|
class DrawingSize from IGESGraph inherits IGESEntity
|
|
|
|
---Purpose: defines IGESDrawingSize, Type <406> Form <16>
|
|
-- in package IGESGraph
|
|
--
|
|
-- Specifies the drawing size in drawing units. The
|
|
-- origin of the drawing is defined to be (0,0) in
|
|
-- drawing space
|
|
|
|
uses Integer, Real -- no one specific type
|
|
|
|
|
|
is
|
|
|
|
Create returns mutable DrawingSize;
|
|
|
|
-- Specific Methods pertaining to the class
|
|
|
|
Init (me : mutable;
|
|
nbProps : Integer;
|
|
aXSize : Real;
|
|
aYSize : Real);
|
|
---Purpose : This method is used to set the fields of the class
|
|
-- DrawingSize
|
|
-- - nbProps : Number of property values (NP = 2)
|
|
-- - aXSize : Extent of Drawing along positive XD axis
|
|
-- - aYSize : Extent of Drawing along positive YD axis
|
|
|
|
-- Specific Access Methods : According to each type of Entity
|
|
|
|
NbPropertyValues (me) returns Integer;
|
|
---Purpose : returns the number of property values in <me> (NP = 2)
|
|
|
|
XSize (me) returns Real;
|
|
---Purpose : returns the extent of Drawing along positive XD axis
|
|
|
|
YSize (me) returns Real;
|
|
---Purpose : returns the extent of Drawing along positive YD axis
|
|
|
|
fields
|
|
|
|
--
|
|
-- Class : IGESGraph_DrawingSize
|
|
--
|
|
-- Purpose : Declaration of the variables specific to a Drawing Size.
|
|
--
|
|
-- Reminder : A Drawing Size is defined by :
|
|
-- - Number of property values
|
|
-- - X Size
|
|
-- - Y Size
|
|
--
|
|
|
|
theNbPropertyValues : Integer;
|
|
|
|
theXSize : Real;
|
|
|
|
theYSize : Real;
|
|
|
|
end DrawingSize;
|