mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
062d7dfd62
Set the value of flag Frozen to false for shape created in BRepTools_Modifier. If shape is not newly created then value of flag Frozen don't changed. Test-case for issue #21727
24 lines
770 B
Plaintext
24 lines
770 B
Plaintext
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."
|
|
}
|