tests/bugs/modalg_5/bug24422

   1 puts "================"
   2 puts "OCC24422"
   3 puts "================"
   4 puts ""
   5 #######################################################################
   6 # Wrong result done by FaceClassifier algorythm
   7 #######################################################################
   8
   9 restore [locate_data_file bug24422_Compound.brep] b
  10 explode b f
  11 copy b_1 f
  12
  13 point p 115.945392440981 106 230.000108990528
  14 point p_proj 230.00010899052799 1925.9453924409811
  15 set info [b2dclassify f p_proj]
  16
  17 if { [regexp "The point is OUT of shape" $info] != 1  } {
  18     puts "Error : point should be ON shape"
  19 } else {
  20     puts "OK: point is OUT of shape"
  21 }
  22
  23 axo
  24 fit
  25 set only_screen_axo 1
  26
  27