tests/bugs/modalg_2/bug5805_4

   1 puts "TODO OCC25925 ALL: ERROR. offsetperform operation not done."
   2 puts "TODO OCC25925 ALL: Tcl Exception:"
   3 puts "TODO OCC25925 ALL: TEST INCOMPLETE"
   4
   5 puts "============"
   6 puts "OCC5805"
   7 puts "============"
   8 puts ""
   9 ######################################################
  10 # BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
  11 ######################################################
  12
  13 set BugNumber OCC5805
  14
  15 restore [locate_data_file OCC5805.brep] a
  16
  17 decho off
  18 set che_a [checkshape a]
  19 decho on
  20
  21 if { [regexp {Faulty} $che_a] } {
  22     puts "Faulty ${BugNumber} : checkshape is wrong for a"
  23 }
  24
  25 explode a f
  26
  27 offsetparameter 1e-7 c a
  28 offsetload a -1 a_6
  29
  30 if { [catch { offsetperform result } catch_result] } {
  31    puts "Faulty ${BugNumber} : offsetshape is wrong"
  32 }
  33
  34 checkmaxtol result -min_tol 1.
  35
  36 set square 1185.03
  37
  38 set nb_v_good 10
  39 set nb_e_good 15
  40 set nb_w_good 7
  41 set nb_f_good 7
  42 set nb_sh_good 1
  43 set nb_sol_good 1
  44 set nb_compsol_good 0
  45 set nb_compound_good 0
  46 set nb_shape_good 41
  47
  48 set 2dviewer 0