0029528: Visualization, TKOpenGl - allow defining sRGB textures
[occt.git] / tests / bugs / xde / bug30779
1 puts "============================================================================"
2 puts "0030779: Data Exchange - Problems with located subshapes in expand compounds"
3 puts "============================================================================"
4 puts ""
5
6 pload DCAF
7
8 XOpen [locate_data_file bug30779.xbf] D
9 XExpand D 1
10
11 # check model structure after expand
12 set result [XGetTopLevelShapes D]
13 if {$result != "0:1:1:1 0:1:1:2 0:1:1:3 "} {
14   puts "Error: wrong result of Expand compounds."
15 }
16
17 # check colors of subshapes
18 for {set i 1} {$i <= 4} {incr i} {
19   set sublabel 0:1:1:3:$i
20   set color [XGetShapeColor D $sublabel]
21   if {$color != "GRAY88"} { puts "Error: wrong color after expand compounds." }
22 }
23
24 Close D
25