
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
