tests/bugs/modalg_5/bug25614_cut21

   1 puts "============"
   2 puts "OCC25614"
   3 puts "============"
   4 puts ""
   5 ###############################
   6 ## Provide API access to the new functionalities of Boolean Components
   7 ###############################
   8
   9 #====================
  10 box b 10 10 4
  11 ttranslate b 0 0 -2
  12 set qs1 {}
  13 set N 11
  14
  15 for {set i 0} {$i < $N} {incr i} {
  16  for {set j 0} {$j < $N} {incr j} {
  17   tcopy b b_${i}_${j}
  18   ttranslate b_${i}_${j} [expr $i * 10] [expr $j * 10] 0.
  19   lappend qs1 b_${i}_${j}
  20  }
  21 }
  22 eval compound $qs1 b1
  23
  24 pcylinder b 6 10
  25 ttranslate b 10 10 -5
  26
  27 set qs2 {}
  28 set N 10
  29
  30 for {set i 0} {$i < $N} {incr i} {
  31  for {set j 0} {$j < $N} {incr j} {
  32   tcopy b b_${i}_${j}
  33   ttranslate b_${i}_${j} [expr $i * 10] [expr $j * 10] 0.
  34   lappend qs2 b_${i}_${j}
  35  }
  36 }
  37 eval compound $qs2 b2
  38 #====================
  39
  40 bclearobjects
  41 bcleartools
  42 baddcompound b1
  43 baddctools b2
  44
  45 bapibop result 3
  46
  47 set nb_v_good 2640
  48 set nb_e_good 5780
  49 set nb_w_good 2820
  50 set nb_f_good 2820
  51 set nb_sh_good 2
  52 set nb_sol_good 2
  53 set nb_compsol_good 0
  54 set nb_compound_good 1
  55 set nb_shape_good 14065
  56
  57 set 3dviewer 1