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
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
|
--
-- File : View.cdl
-- Created : Mon 11 Jan 1993
-- Author : CKY / Contract Toubro-Larsen ( Niraj RANGWALA )
--
---Copyright : MATRA-DATAVISION 1993
--
class View from IGESDraw inherits ViewKindEntity
---Purpose : defines IGES View Entity, Type <410> Form <0>
-- in package IGESDraw
--
-- Used to define a framework for specifying a viewing
-- orientation of an object in three dimensional model
-- space (X,Y,Z). The framework is also used to support
-- the projection of all or part of model space onto a
-- view volume.
uses
TransfEntity from IGESData,
Plane from IGESGeom,
XYZ from gp
raises OutOfRange
is
Create returns mutable View;
-- Specific Methods pertaining to the class
Init (me : mutable;
aViewNum : Integer;
aScale : Real;
aLeftPlane : Plane;
aTopPlane : Plane;
aRightPlane : Plane;
aBottomPlane : Plane;
aBackPlane : Plane;
aFrontPlane : Plane);
---Purpose : This method is used to set fields of the class View
-- - aViewNum : View number
-- - aScale : Scale factor
-- - aLeftPlane : Left plane of view volume
-- - aTopPlane : Top plane of view volume
-- - aRightPlane : Right plane of view volume
-- - aBottomPlane : Bottom plane of view volume
-- - aBackPlane : Back plane of view volume
-- - aFrontPlane : Front plane of view volume
IsSingle (me) returns Boolean;
---Purpose : Returns True (for a single view)
NbViews (me) returns Integer;
---Purpose : Returns 1 (single view)
ViewItem (me; num : Integer) returns ViewKindEntity raises OutOfRange;
---Purpose : For a single view, returns <me> whatever <num>
ViewNumber (me) returns Integer;
---Purpose : returns integer number identifying view orientation
ScaleFactor (me) returns Real;
---Purpose : returns the scale factor(Default = 1.0)
HasLeftPlane (me) returns Boolean;
---Purpose : returns False if left side of view volume is not present
LeftPlane (me) returns Plane;
---Purpose : returns the left side of view volume, or null handle
HasTopPlane (me) returns Boolean;
---Purpose : returns False if top of view volume is not present
TopPlane (me) returns Plane;
---Purpose : returns the top of view volume, or null handle
HasRightPlane (me) returns Boolean;
---Purpose : returns False if right side of view volume is not present
RightPlane (me) returns Plane;
---Purpose : returns the right side of view volume, or null handle
HasBottomPlane (me) returns Boolean;
---Purpose : returns False if bottom of view volume is not present
BottomPlane (me) returns Plane;
---Purpose : returns the bottom of view volume, or null handle
HasBackPlane (me) returns Boolean;
---Purpose : returns False if back of view volume is not present
BackPlane (me) returns Plane;
---Purpose : returns the back of view volume, or null handle
HasFrontPlane (me) returns Boolean;
---Purpose : returns False if front of view volume is not present
FrontPlane (me) returns Plane;
---Purpose : returns the front of view volume, or null handle
ViewMatrix (me) returns TransfEntity;
---Purpose : returns the Transformation Matrix
ModelToView (me; coords : XYZ) returns XYZ;
---Purpose : returns XYZ from the Model space to the View space by
-- applying the View Matrix
fields
--
-- Class : IGESDraw_View
--
-- Purpose : Declaration of the variables specific to a View.
--
-- Reminder : A View Entity is defined by :
-- - a view number for identifying the view orientation
-- - a scale factor, and
-- - a view volume to control the projection of the view into
-- a 2-D drawing space specified by a Drawing Entity.
-- The view volume is a rectangular parallelepiped with
-- limits specified by Plane Entities.
--
theViewNumber : Integer;
theScaleFactor : Real;
theLeftPlane : Plane;
theTopPlane : Plane;
theRightPlane : Plane;
theBottomPlane : Plane;
theBackPlane : Plane;
theFrontPlane : Plane;
end View;
|
