tests/bugs/modalg_5/bug25715_1

   1 puts "=========="
   2 puts "OCC25715"
   3 puts "=========="
   4 puts ""
   5 #############################################################
   6 # Intersection between cylinders produces excess vertices
   7 #############################################################
   8 # don't change nbshapes values according to 25715
   9
  10 pcylinder s1 0.069 0.6
  11 pcylinder s2 0.024, 0.4
  12 trotate s1 0 0 0 0 0 1 90
  13 trotate s2 0 0 0 0 1 0 90
  14 trotate s2 0 0 0 1 0 0 -45
  15 ttranslate s2 -0.2 0 0.48
  16 bcut result s1 s2
  17
  18 set nb_v_good 4
  19 set nb_e_good 6
  20 set nb_w_good 6
  21 set nb_f_good 4
  22 set nb_sh_good 1
  23 set nb_sol_good 1
  24 set nb_compsol_good 0
  25 set nb_compound_good 1
  26 set nb_shape_good 23
  27
  28 set 2dviewer 1