tests/bugs/modalg/bug21448

   1 puts "============"
   2 puts "OCC21448"
   3 puts "============"
   4 puts ""
   5 #######################################################################
   6 # Invalid result of BRepOffsetAPI_MakePipeShell
   7 #######################################################################
   8
   9 set BugNumber OCC21448
  10
  11 puts "Load first shape ..."
  12 restore [locate_data_file bug21448_base_1.brep] base1
  13
  14 puts "Load second shape ..."
  15 restore [locate_data_file bug21448_Invert_2.brep] Invert_2
  16
  17 puts "Load third shape ..."
  18 restore [locate_data_file bug21448_chemin.brep] chemin
  19
  20 puts "Prepare shapes ..."
  21 wire w1 chemin
  22 explode base1 W
  23 explode Invert_2 W
  24 explode chemin V
  25
  26 puts "Start Make pipe ..."
  27 mksweep w1
  28 addsweep base1_1 chemin_1 -R
  29 addsweep Invert_2_1 chemin_2 -R
  30 buildsweep result
  31 puts "Finish Make pipe ..."
  32
  33 set square 1040.94
  34
  35 set nb_v_good 4
  36 set nb_e_good 6
  37 set nb_w_good 2
  38 set nb_f_good 2
  39 set nb_sh_good 1
  40 set nb_sol_good 0
  41 set nb_compsol_good 0
  42 set nb_compound_good 0
  43 set nb_shape_good 15
  44
  45 vinit
  46 vsetdispmode 0
  47 vdisplay result
  48 vfit
  49
  50 set only_screen 0