[occt.git] / tests / bugs / xde / bug30779

puts "============================================================================"
puts "0030779: Data Exchange - Problems with located subshapes in expand compounds"
puts "============================================================================"
puts ""

pload DCAF

XOpen [locate_data_file bug30779.xbf] D
XExpand D 1

# check model structure after expand
set result [XGetTopLevelShapes D]
if {$result != "0:1:1:1 0:1:1:2 0:1:1:3 "} {
  puts "Error: wrong result of Expand compounds."
}

# check colors of subshapes
for {set i 1} {$i <= 4} {incr i} {
  set sublabel 0:1:1:3:$i
  set color [XGetShapeColor D $sublabel]
  if {$color != "GRAY88"} { puts "Error: wrong color after expand compounds." }
}

Close D
Commit	Line	Data
d6b200e0	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]
ba00aab7	21	if {$color != "GRAY88"} { puts "Error: wrong color after expand compounds." }
d6b200e0	22	}
	23
	24	Close D
	25