blob: 57292cbc45cfeb08dc6871690315a52bb8672be7 (
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
32
33
34
35
36
37
38
39
40
41
42
|
-- File: Vrml_Instancing.cdl
-- Created: Wed Feb 5 13:22:06 1997
-- Author: Alexander BRIVIN
-- <brivin@minox.nnov.matra-dtv.fr>
---Copyright: Matra Datavision 1997
class Instancing from Vrml
---Purpose: defines "instancing" - using the same instance of a node
-- multiple times.
-- It is accomplished by using the "DEF" and "USE" keywords.
-- The DEF keyword both defines a named node, and creates a single
-- instance of it.
-- The USE keyword indicates that the most recently defined instance
-- should be used again.
-- If several nades were given the same name, then the last DEF
-- encountered during parsing "wins".
-- DEF/USE is limited to a single file.
uses
AsciiString from TCollection
is
Create ( aString : AsciiString from TCollection )
returns Instancing from Vrml;
---Purpose: Adds "DEF <myName>" in anOStream (VRML file).
DEF ( me; anOStream: in out OStream from Standard) returns OStream from Standard;
---C++: return &
---Purpose: Adds "USE <myName>" in anOStream (VRML file).
USE ( me; anOStream: in out OStream from Standard) returns OStream from Standard;
---C++: return &
fields
myName : AsciiString from TCollection; -- Name using DEF/USE for a node
end Instancing;
|