puts "========" puts "OCC21727" puts "========" puts "" ########################################################################################### # BRepBuilderAPI_Copy (and possibly other similar tools) create new shape in Frozen state ########################################################################################### box b 10 10 10 set bug_info [whatis b] if {[lindex $bug_info 6] != "Free"} { puts "ERROR: OCC21727 is reproduced. Shape b does not have flag FREE." } compound b c set bug_info [whatis b] if {[lindex $bug_info 6] == "Free"} { puts "ERROR: OCC21727 is reproduced. Shape b has flag FREE." } tcopy b q set bug_info [whatis q] if {[lindex $bug_info 6] != "Free"} { puts "ERROR: OCC21727 is reproduced. Shape q does not have flag FREE." }