1 puts "================"
3 puts "================"
5 #######################################################################
6 # BRepClass_FaceClassifier returns TopAbs_OUT for internal point
7 #######################################################################
9 restore [locate_data_file bug26206_group_1.brep] a
11 point p 0.012676794773312086 0.04799218752935417
13 set info [b2dclassify a p 1e-05]
15 if { [regexp "The point is IN shape" $info] == 1 } {
16 puts "OK: point is IN shape"
18 puts "Error : point should be IN shape"
24 view 1 -2D- 728 20 400 400
26 xwd ${imagedir}/${test_image}.png