puts "=========="
puts "OCC29890"
puts "=========="
puts ""
##############################
# Problem in Expand Compounds
##############################
pload ALL

# Add subshape to assembly
box b 1 1 1
compound b comp
XNewDoc D
XAddShape D comp
explode comp f
set sub1 [XAddSubShape D comp_1 0:1:1:1]
if {$sub1 != ""} {
  puts "Error: inconsistent model after add subshape to assembly."
}
Close D

# Add subshape to reference
box b 1 1 1
ttranslate b 1 0 0 
XNewDoc D
XAddShape D b
explode b f
set sub2 [XAddSubShape D b_1 0:1:1:1]
if {$sub2 != ""} {
  puts "Error: inconsistent model after add subshape to reference."
}
Close D

# Add subshape to subshape
box b 1 1 1
XNewDoc D
XAddShape D b
explode b f
XAddSubShape D b_1 0:1:1:1
explode b_1 e
set sub3 [XAddSubShape D b_1_1 0:1:1:1:1]
if {$sub3 != ""} {
  puts "Error: inconsistent model after add subshape to subshape."
}
Close D
