blob: 95662c24edc558f95589db9146a230434734025a (
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
|
-- File: TPrsStd_GeometryDriver.cdl
-- Created: Fri Aug 1 11:21:30 1997
-- Author: SMO
---Copyright: Matra Datavision 1997
class GeometryDriver from TPrsStd inherits Driver from TPrsStd
---Purpose:
-- This method is an implementation of TPrsStd_Driver for geometries.
uses
GUID from Standard,
Label from TDF,
InteractiveObject from AIS
is
Create
returns mutable GeometryDriver from TPrsStd;
---Purpose: Constructs an empty geometry driver.
Update (me : mutable ;
aLabel : Label from TDF;
anAISObject : in out InteractiveObject from AIS)
returns Boolean from Standard
is redefined virtual;
--- Purpose: Build the AISObject (if null) or update it.
-- No compute is done.
-- Returns <True> if informations was found
-- and AISObject updated.
end GeometryDriver;
|