mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
26 lines
688 B
Plaintext
26 lines
688 B
Plaintext
puts "================================================================="
|
|
puts "0033049: Command 'tclean -geom' does not remove all geometric objects from the shape"
|
|
puts "================================================================="
|
|
puts ""
|
|
|
|
psphere s1 10
|
|
pcylinder s2 8 20
|
|
pcone s3 10 8 5
|
|
ttranslate s1 0 0 25
|
|
ttranslate s3 0 0 -5
|
|
|
|
baddobjects s1
|
|
baddtools s2 s3
|
|
bfillds
|
|
bbop s fuse
|
|
|
|
incmesh s 0.1
|
|
tclean -geom s
|
|
|
|
regexp {Dump of ([0-9+-]*) Curve2ds.*Dump of ([0-9+-]*) Curves.*Dump of ([0-9+-]*) surfaces} [dump s] full nbC2d nbC3d nbSurf
|
|
if {$nbC2d != 0 || $nbC3d != 0 || $nbSurf != 0} {
|
|
puts "Error: geometry is not fully removed"
|
|
} else {
|
|
puts "OK: shape has no geometry"
|
|
}
|