aeb15262dc8f5921d162f5d41439871d5812e4fe
[occt.git] / tests / bugs / xde / bug22776
1 puts "================"
2 puts "OCC22776"
3 puts "================"
4 puts ""
5 #######################################################################################
6 # XCAFPrs_AISObject does not support transparency
7 ######################################################################################
8
9 catch {pload DCAF}
10 pload QAcommands
11
12 NewDocument D BinXCAF
13 UndoLimit D 100
14 NewCommand D
15
16 #Set NamedShape attribute
17 box Box 100 200 300
18 set Label 0:2
19 SetShape D ${Label} Box
20
21 # Initialize 3D viewer
22 AISInitViewer D
23
24 # Add AISPresentation attribute with parameter NS
25 AISSet D ${Label} NS
26
27 # Set shading mode
28 vsetdispmode 1
29
30 # Display presentation of NamedShape in the viewer
31 AISDisplay D ${Label}
32
33 # Close/Open transaction
34 NewCommand D
35
36 set list [OCC1031_AISMaterial D ${Label}]
37 regexp {Material = ([-0-9.+eE]+)} $list full AISMaterial1
38
39 # Set a material of the shape as NOM_COPPER
40 set CopperMaterial 2
41 OCC1031_AISMaterial D ${Label} ${CopperMaterial}
42
43 set list [OCC1031_AISMaterial D ${Label}]
44 regexp {Material = ([-0-9.+eE]+)} $list full AISMaterial2
45
46 # Close/Open transaction
47 NewCommand D
48
49 set list [OCC1032_AISWidth D ${Label}]
50 regexp {Width = ([-0-9.+eE]+)} $list full AISWidth1
51
52 # Set a width
53 set Width 10
54 OCC1032_AISWidth D ${Label} ${Width}
55
56 set list [OCC1032_AISWidth D ${Label}]
57 regexp {Width = ([-0-9.+eE]+)} $list full AISWidth2
58
59 # Close/Open transaction
60 NewCommand D
61
62 set list [OCC1029_AISTransparency D ${Label}]
63 regexp {Transparency = ([-0-9.+eE]+)} $list full Transparency1
64
65 # Set a transparency
66 set Transparency 0.9
67 XSetTransparency D ${Transparency} ${Label}
68
69 set list [OCC1029_AISTransparency D ${Label}]
70 regexp {Transparency = ([-0-9.+eE]+)} $list full Transparency2
71
72 # Update the viewer
73 AISRepaint D
74
75
76 # Check the material
77 puts "AISMaterial1 = ${AISMaterial1}"
78 puts "AISMaterial2 = ${AISMaterial2}"
79 set DefaultAISMaterial 0
80 set status 0
81 if { ${AISMaterial1} != ${DefaultAISMaterial} } {
82         puts "Default material is wrong: Error"
83         set status 1
84 }
85 if { ${AISMaterial2} != ${CopperMaterial} } {
86         puts "OCC1031_AISMaterial command: Error"
87         set status 1
88 }
89
90 # Check the width
91 puts "AISWidth1 = ${AISWidth1}"
92 puts "AISWidth2 = ${AISWidth2}"
93 set DefaultAISWidth 0
94 if { ${AISWidth1} != ${DefaultAISWidth} } {
95         puts "Default width is wrong: Error"
96         set status 1
97 }
98 if { ${AISWidth2} != ${Width} } {
99         puts "OCC1032_AISWidth command: Error"
100         set status 1
101 }
102
103 # Check the transparency
104 puts "Transparency1 = ${Transparency1}"
105 puts "Transparency2 = ${Transparency2}"
106 set DefaultAISTransparency 0
107 if { ${Transparency1} != ${DefaultAISTransparency} } {
108         puts "Default transparency is worng: Error"
109         set status 1
110 }
111
112 if { ${Transparency2} != ${Transparency} } {
113         puts "XSetTransparency command: Error"
114         set status 1
115 }
116
117
118 if { ${status} == 0} {
119         puts "OK"
120 } else {
121         puts "FAULTY"
122 }
123
124 checkview -display result -3d -path ${imagedir}/${test_image}.png
125
126 Close D