tests/bugs/modalg/bug22725

   1 puts "============"
   2 puts "OCC22725"
   3 puts "============"
   4 puts ""
   5 #######################################################################
   6 # BRepOffsetAPI_ThruSections algorithm produces twisted surface on some wires
   7 #######################################################################
   8
   9 set BugNumber OCC22725
  10
  11 restore [locate_data_file OCC22725-ruled_arc9.brep] a
  12 restore [locate_data_file OCC22725-ruled_bsc9.brep] b
  13
  14 wire w1 a
  15 wire w2 b
  16
  17 set issolid 0
  18 set isruled 1
  19
  20 if { [catch { thrusections result ${issolid} ${isruled} w1 w2 } catch_result] } {
  21    puts "Faulty ${BugNumber} : thrusections is wrong"
  22 }
  23
  24 set square 11010.6
  25
  26 set nb_v_good 2
  27 set nb_e_good 3
  28 set nb_w_good 1
  29 set nb_f_good 1
  30 set nb_sh_good 1
  31 set nb_sol_good 0
  32 set nb_compsol_good 0
  33 set nb_compound_good 0
  34 set nb_shape_good 8
  35
  36 set 3dviewer 1