1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
puts "========"
puts "OCC516"
puts "========"
puts ""
#########################################
## Wrong classification of the 3D-point with the Solid .
#########################################
point p 14.99999878745701 5.52319672860377e-07 7.78393041
vertex v 14.99999878745701 5.52319672860377e-07 7.78393041
restore [locate_data_file OCC516.brep] result
set cls [bclassify result p]
if { [regexp {OUT} $cls] } {
puts "Faulty : Wrong classification of the 3D-point with the Solid"
} else {
puts "CORRECT classification of the 3D-point with the Solid"
}
set square 7752.98
set 2dviewer 0
|
