blob: b0dd52bf971a3f68b52cf551ed20b9ba3e8f7a0c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
-- File: XSDRAW_Shape.cdl
-- Created: Tue Apr 22 18:34:27 1997
-- Author: Christian CAILLET
-- <cky@heliox.paris1.matra-dtv.fr>
---Copyright: Matra Datavision 1997
class Shape from XSDRAW
---Purpose : Defines functions to control shapes (in way useful for XSTEP),
-- additional features which should be basic, or call tools which
-- are bound with transfer needs.
-- But these functions work on shapes, geometry, nothing else
-- (no file, no model, no entity)
uses CString, Interpretor from Draw
is
InitCommands (myclass; theCommands : in out Interpretor from Draw);
---Purpose : Defines and loads all basic functions for XSDRAW on Shapes
end Shape;
|