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 "OCC24422"
puts "================"
puts ""
#######################################################################
# Wrong result done by FaceClassifier algorythm
#######################################################################
restore [locate_data_file bug24422_Compound.brep] b
explode b f
copy b_1 f
point p 115.945392440981 106 230.000108990528
point p_proj 230.00010899052799 1925.9453924409811
set info [b2dclassify f p_proj]
if { [regexp "The point is OUT of shape" $info] != 1 } {
puts "Error : point should be ON shape"
} else {
puts "OK: point is OUT of shape"
}
axo
fit
set only_screen_axo 1
|
