blob: c80ae6c5e786f4c072c155997740af2368ee340a (
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
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
|
-- File: Prs3d_ShadingAspect.cdl
-- Created: Mon Apr 26 16:18:12 1993
-- Author: Jean-Louis Frenkel
-- <jlf@phylox>
-- GG : GER61351 17/11/1999 Change SetColor() with a compatible Quantity_Color instead
-- the restricted NameOfColor.
-- Parameters the color model rule (not especially the front & back side)
-- Add the SetTransparency() method.
-- Add the Color(),Material() and Transparency() methods
---Copyright: Matra Datavision 1993
class ShadingAspect from Prs3d inherits BasicAspect from Prs3d
---Purpose: A framework to define the display of shading.
-- The attributes which make up this definition include:
-- - fill aspect
-- - color, and
-- - material
uses
TypeOfFacingModel from Aspect,
AspectFillArea3d from Graphic3d,
NameOfColor from Quantity,
Color from Quantity,
NameOfMaterial from Graphic3d,
--NameOfMaterialPhysic from Graphic3d,
MaterialAspect from Graphic3d,
TypeOfLine from Aspect
is
Create
---Purpose: Constructs an empty framework to display shading.
returns mutable ShadingAspect from Prs3d;
SetColor (me: mutable; aColor: Color from Quantity;
aModel: TypeOfFacingModel from Aspect = Aspect_TOFM_BOTH_SIDE)
is static;
--- Purpose: Change the polygons interior color and material ambient color.
SetColor (me: mutable; aColor: NameOfColor from Quantity;
aModel: TypeOfFacingModel from Aspect = Aspect_TOFM_BOTH_SIDE)
is static;
--- Purpose: Change the polygons interior color and material ambient color.
SetMaterial(me: mutable; aMaterial: MaterialAspect from Graphic3d;
aModel: TypeOfFacingModel from Aspect = Aspect_TOFM_BOTH_SIDE)
is static;
--- Purpose: Change the polygons material aspect.
SetMaterial(me: mutable; aMaterial: NameOfMaterial from Graphic3d;
aModel: TypeOfFacingModel from Aspect = Aspect_TOFM_BOTH_SIDE)
is static;
SetTransparency(me: mutable; aValue: Real from Standard;
aModel: TypeOfFacingModel from Aspect = Aspect_TOFM_BOTH_SIDE)
is static;
--- Purpose: Change the polygons transparency value.
-- Warning : aValue must be in the range 0,1. 0 is the default (NO transparent)
SetAspect(me:mutable; Asp : AspectFillArea3d from Graphic3d);
--- Purpose: Change the polygons aspect properties.
Color (me; aModel: TypeOfFacingModel from Aspect = Aspect_TOFM_FRONT_SIDE)
returns Color from Quantity is static;
--- Purpose: Returns the polygons color.
Material (me; aModel: TypeOfFacingModel from Aspect = Aspect_TOFM_FRONT_SIDE)
returns MaterialAspect from Graphic3d is static;
--- Purpose: Returns the polygons material aspect.
Transparency (me; aModel: TypeOfFacingModel from Aspect = Aspect_TOFM_FRONT_SIDE)
returns Real from Standard is static;
--- Purpose: Returns the polygons transparency value.
Aspect (me) returns AspectFillArea3d from Graphic3d;
--- Purpose: Returns the polygons aspect properties.
fields
myAspect: AspectFillArea3d from Graphic3d;
end ShadingAspect from Prs3d;
|