tests/bugs/moddata_2/bug372

   1 pload QAcommands
   2
   3 puts "========================"
   4 puts "OCC372"
   5 puts "BUC61036"
   6 puts "========================"
   7 puts ""
   8 ###############################################################
   9 ##BRepClass3d_SolidClassifier classify point to solid as OUT, but the point is inside the solid.
  10 ###############################################################
  11
  12 restore [locate_data_file OCC372.brep] b1
  13 checkshape b1
  14
  15 point p1 6311.4862583184 -2841.3092756034 16.461053497188
  16
  17 set result [OCC299 b1 p1]
  18 set ll [llength ${result}]
  19 if { ${ll} < 4 } then {
  20     puts "OCC372: ERROR 1"
  21 } else {
  22     regexp {The point is (.*) shape} ${result} full status
  23     if {[string compare ${status} "IN"] == 0} then {
  24         puts "status = ${status}"
  25         puts "OCC372: OK"
  26     } else {
  27         puts "status = ${status}"
  28         puts "Faulty : OCC372"
  29     }
  30 }
  31