blob: fd31e079c07adcdc2bd032ad2231b14f857b4bdc (
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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
|
-- File: Vrml_IndexedFaceSet.cdl
-- Created: Thu Dec 26 15:21:41 1996
-- Author: Alexander BRIVIN and Dmitry TARASOV
-- <brivin@minox.nizhny.matra-dtv.fr>
---Copyright: Matra Datavision 1996
class IndexedFaceSet from Vrml inherits TShared from MMgt
---Purpose: defines a IndexedFaceSet node of VRML specifying geometry shapes.
-- This node represents a 3D shape formed by constructing faces (polygons) from
-- vertices located at the current coordinates. IndexedFaceSet uses the indices
-- in its coordIndex to define polygonal faces. An index of -1 separates faces
-- (so a -1 at the end of the list is optional).
-- The vertices of the faces are transformed by the current transformation matrix.
-- Treatment of the current material and normal binding is as follows: The PER_PART
-- and PER_FACE bindings specify a material or normal for each face. PER_VERTEX
-- specifies a material or normal for each vertex. The corresponding _INDEXED bindings
-- are the same, but use the materialIndex or normalIndexindices. The DEFAULT material
-- binding is equal to OVERALL. The DEFAULT normal binding is equal to PER_VERTEX_INDEXED;
-- if insufficient normals exist in the state, vertex normals will be generated
-- automatically. When materialIndex or normalIndex are specified on a per vertex basis,
-- an index of -1 is used in the same way as coordIndex.
uses
HArray1OfInteger from TColStd
is
Create ( aCoordIndex : HArray1OfInteger from TColStd;
aMaterialIndex : HArray1OfInteger from TColStd;
aNormalIndex : HArray1OfInteger from TColStd;
aTextureCoordIndex : HArray1OfInteger from TColStd )
returns mutable IndexedFaceSet from Vrml;
Create returns mutable IndexedFaceSet from Vrml;
SetCoordIndex ( me : mutable; aCoordIndex : HArray1OfInteger from TColStd );
CoordIndex ( me ) returns HArray1OfInteger from TColStd;
SetMaterialIndex ( me : mutable; aMaterialIndex : HArray1OfInteger from TColStd );
MaterialIndex ( me ) returns HArray1OfInteger from TColStd;
SetNormalIndex ( me : mutable; aNormalIndex : HArray1OfInteger from TColStd );
NormalIndex ( me ) returns HArray1OfInteger from TColStd;
SetTextureCoordIndex ( me : mutable;
aTextureCoordIndex : HArray1OfInteger from TColStd );
TextureCoordIndex ( me ) returns HArray1OfInteger from TColStd;
Print ( me; anOStream: in out OStream from Standard) returns OStream from Standard;
---C++: return &
fields
myCoordIndex : HArray1OfInteger from TColStd; -- Coordinate indices
myMaterialIndex : HArray1OfInteger from TColStd; -- Material indices
myNormalIndex : HArray1OfInteger from TColStd; -- Surface normal indices
myTextureCoordIndex : HArray1OfInteger from TColStd; -- Texture Coordinate indices
end IndexedFaceSet;
|