tests/bugs/modalg_6/bug26206

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