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
|
puts "================"
puts "OCC22494"
puts "================"
puts ""
#######################################################################
# BRepClass_FaceClassifier bug (ref SALOME issue 21185)
#######################################################################
set BugNumber OCC22494
restore [locate_data_file bug22494_Pb_belogToGeom_FACE.brep] Face
point p -3.53254182396379145e-05 0.000877856930738714065
set res [split [b2dclassify Face p] ]
set ll [llength ${res}]
if {${ll} < 4} {
puts "Bad format of bclassify draw-command; Faulty ${BugNumber}"
} else {
if {[regexp {The point is ON shape} $res]} {
puts "OK ${BugNumber}"
} else {
puts "Faulty ${BugNumber}"
}
}
|
