1puts "========"
2puts "OCC28692"
3puts "========"
4puts ""
5####################################################################################
6## Projection failed (projponf)
7####################################################################################
8
9restore [locate_data_file bug28692_shapes.brep] bi3
10point p -0.0153 0 0.017
11set dist -1
12regexp {proj dist = ([-0-9.+eE]+)} [projponf bi3 p] full dist
13if { $dist < 0 || $dist > 1.e-7 } {
14  puts "Error : Projection failed "
15}
16
17