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