tests/bugs/modalg_5/bug24597

   1 puts "========="
   2 puts "OCC24597"
   3 puts "========="
   4 puts ""
   5 ###########################################################
   6 # Missing internal vertex in the result of General Fuse Operation
   7 ###########################################################
   8
   9 cylinder c1 20
  10 trimv c1 c1 0 50
  11 mkface b1 c1
  12 vertex v1 0 20 25
  13 orientation v1 I
  14 add v1 b1
  15 box b2 -30 -30 5 60 60 40
  16
  17 # add the arguments
  18 bclearobjects
  19 bcleartools
  20 baddobjects b1 b2
  21
  22 # intersection step
  23 bfillds
  24
  25 # building step
  26 bbuild result
  27
  28 set square 33136.3
  29
  30 set nb_v_good 13
  31 set nb_e_good 19
  32 set nb_w_good 13
  33 set nb_f_good 11
  34 set nb_sh_good 2
  35 set nb_sol_good 2
  36 set nb_compsol_good 0
  37 set nb_compound_good 1
  38 set nb_shape_good 61
  39
  40 set 2dviewer 1