mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
6e01c25ad1
TopoDS_Shape::Nullify() nullify not only myTShape but myLocation and myOrient. Nullified shapes are equal and same now. Added test.
26 lines
441 B
Plaintext
26 lines
441 B
Plaintext
puts "=========="
|
|
puts "0029827: Modeling Data - TopoDS_Shape::Nullify() does not reset location"
|
|
puts "=========="
|
|
puts ""
|
|
|
|
pload QAcommands
|
|
|
|
box b1 1 2 1
|
|
box b2 1 1 1
|
|
|
|
ttranslate b1 0 1 1
|
|
ttranslate b2 1 1 1
|
|
|
|
QANullifyShape b1
|
|
QANullifyShape b2
|
|
|
|
set result [compare b1 b2]
|
|
|
|
set ctr { "same shapes" "equal shapes" }
|
|
|
|
foreach data ${ctr} {
|
|
if ![regexp $data $result] {
|
|
puts "Error: Shapes are not '$data'"
|
|
break;
|
|
}
|
|
} |