tests/bugs/modalg_5/bug23777

   1 puts "================"
   2 puts "OCC23777"
   3 puts "================"
   4 puts ""
   5 #######################################################################
   6 # 2D-Classifier algorithm produces wrong results for a point and face.
   7 #######################################################################
   8
   9 set BugNumber OCC23777
  10
  11 restore [locate_data_file bug23777_b1.brep] b1
  12
  13 point p2D 0.062260538576946696 249583.00418413401
  14
  15 set info [b2dclassify b1 p2D]
  16 set check [regexp "IN" $info]
  17
  18 if { ${check} == 1 } {
  19     puts "OK ${BugNumber}"
  20 } else {
  21     puts "Faulty ${BugNumber}"
  22 }