1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
puts "================"
puts "OCC22489"
puts "================"
puts ""
#######################################################################
# BRepClass3d_SolidClassifier::PerformInfinitePoint() gives wrong result on the given solid
#######################################################################
set BugNumber OCC22489
restore [locate_data_file bug22489_sew1.brep] s
mksol b s
point p 1000 1000 1000
set res [split [bclassify b p] ]
set ll [llength ${res}]
if {$ll < 4} {
puts "Bad format of bclassify draw-command; Faulty ${BugNumber}"
} else {
if {[regexp {The point is OUT of shape} $res]} {
puts "OK ${BugNumber}"
} else {
puts "Faulty ${BugNumber}"
}
}
|
