mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
19 lines
514 B
Plaintext
19 lines
514 B
Plaintext
puts "========================"
|
|
puts "0033591: Modeling Algorithms - Regression: old surface is not removed after translation or rotation with geometry copying"
|
|
puts "========================"
|
|
puts ""
|
|
|
|
pload MODELING
|
|
psphere Sphere_1 80
|
|
trotate Sphere_1 0 0 0 0 1 0 90 -copy
|
|
ttranslate Sphere_1 0 0 200 -copy
|
|
|
|
catch {dump Sphere_1} dumpOutput
|
|
if {[regexp {Dump of ([0-9]+) surfaces} $dumpOutput match num]} {
|
|
set numSurfaces $num
|
|
}
|
|
|
|
if {$numSurfaces != 1} {
|
|
puts "Error: The number of surfaces must be 1"
|
|
}
|