tests/bugs/moddata_2/bug23244

   1 puts "================"
   2 puts "OCC23244"
   3 puts "================"
   4 puts ""
   5 #######################################################################
   6 # Bug of BRepClass_FaceClassifier: it does not take into account the tolerance
   7 #######################################################################
   8
   9 set BugNumber OCC23244
  10
  11 restore [locate_data_file OCC23244-comp.brep] a
  12
  13 explode a
  14 explode a_1
  15
  16 smallview
  17 donly a_1_2 a_3
  18 fit
  19
  20 mkpoint p3 a_3
  21 projponf a_1_2 p3
  22 point pp3 69.220445243320853 1216.6123701316949
  23
  24 set result [split [b2dclassify a_1_2 pp3 1.e-5] ]
  25
  26 set ll [llength ${result}]
  27 if {${ll} < 4} {
  28    puts "Bad format of bclassify draw-command; Faulty ${BugNumber}"
  29 } else {
  30    if { [regexp "ON" $result] == 1 } {
  31       puts "OK ${BugNumber}"
  32    } else {
  33       puts "Faulty ${BugNumber}"
  34    }
  35 }
  36