mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
3ba87fdb66
Add method for exact calculation of bounding boxes Modifications made according to remarks. Small correction of test case for issue CR27352 Small correction of test cases for issue CR27352 Avoid warning on VS2015
29 lines
804 B
Plaintext
29 lines
804 B
Plaintext
puts "================"
|
|
puts "OCC24595"
|
|
puts "================"
|
|
puts ""
|
|
#######################################################################################
|
|
# STEP import missing surfaces
|
|
#######################################################################################
|
|
|
|
set BugNumber OCC24595
|
|
stepread [locate_data_file bug24595_281390.stp] a *
|
|
explode a_1 f
|
|
set mlog [nbshapes a_1_3]
|
|
|
|
set status 1
|
|
|
|
if (![regexp {WIRE[ ]+: 1} $mlog]) {
|
|
set status 0
|
|
}
|
|
|
|
set mlog [bounding a_1_3]
|
|
if (![regexp {(-7.1677412321949925) (-8.0000000999999994) (-150.00000009999999) (7.1677412321949898) (8.0000000999999994) (-141.99999990000001)} $mlog]) {
|
|
set status 0
|
|
}
|
|
|
|
if {$status == 1} {
|
|
puts "OK ${BugNumber}"
|
|
} else {
|
|
puts "Faulty ${BugNumber}"
|
|
} |