tests/bugs/moddata_2/bug592

   1 puts "TODO OCC12345 ALL: Faulty OCC592 : Checkshape BRepCheck_Analyzer does not detect faulty shape"
   2
   3 puts "========================"
   4 puts " OCC592 "
   5 puts "========================"
   6 puts ""
   7 ###################################
   8 ##BRepCheck_Analyzer does not detect faulty shape
   9 #####################################
  10
  11 restore [locate_data_file OCC592.brep] ff114
  12
  13 explode ff114 e
  14 mkcurve cc ff114_8
  15 cvalue cc 0.95 x y z
  16 vertex vv x y z
  17 mksurface gs ff114
  18 mkface ff gs
  19 donl ff114 vv
  20 trim trcc cc
  21 set aa [distmini dd vv ff]
  22
  23 puts "******* Result *******"
  24 regexp {([-0-9.+eE]+)$} [dump dd_val] full dis1
  25 puts "distance between the point on curve and the surface is $dis1"
  26
  27 set tolerance [maxtolerance ff114_8]
  28 regexp { +Edge +: +Min +[-0-9.+eE]+ +Max +([-0-9.+eE]+)} $tolerance full MaxEdgeTolerance
  29 puts "the tolerance of the edge is $MaxEdgeTolerance"
  30 puts "the tolerance is less than distance between point and surface"
  31 puts "BUT"
  32
  33 decho off
  34 set che [checkshape ff114]
  35 decho on
  36
  37 if { [regexp {Faulty} $che] != 1 } {
  38     puts "Faulty OCC592 : Checkshape BRepCheck_Analyzer does not detect faulty shape"
  39 } else {
  40     puts "OCC592 OK: Checkshape (BRepCheck_Analyzer) detects bad shape"
  41 }
  42
  43 set 2dviewer 0