tests/bugs/modalg_5/bug24825_common

   1 puts "========="
   2 puts "OCC24825"
   3 puts "========="
   4 puts ""
   5 ###########################################################
   6 # Fit Boolean Operation Algorithm to treat multiple arguments.
   7 ###########################################################
   8
   9 restore [locate_data_file bug24825_steering-wheel-ring1.brep] b1
  10 restore [locate_data_file bug24825_steering-wheel-ring2.brep] b2
  11 restore [locate_data_file bug24825_steering-wheel-drum.brep] b4
  12 restore [locate_data_file bug24825_steering-wheel-handle.brep] hb
  13
  14 set qs {}
  15
  16 set N 10
  17 set N1 [expr 360. / $N ]
  18
  19 for {set i 0} {$i < $N} {incr i} {
  20   tcopy hb hb_${i}
  21   trotate hb_${i} 0. 0. 0. 0. 0. 1. [expr $i * $N1 ]
  22   lappend qs hb_${i}
  23 }
  24 eval compound $qs b3
  25
  26 tcopy b1 b5
  27 ttranslate b5 0 0 100
  28
  29 tcopy b2 b6
  30 ttranslate b6 0 0 100
  31
  32 tcopy b3 b7
  33 ttranslate b7 0 0 100
  34
  35 #-common-#
  36
  37 bclearobjects
  38 bcleartools
  39 baddobjects b2 b6 b4 b1 b5
  40 baddctools b3
  41 baddctools b7
  42
  43 bfillds
  44 bbop result 0
  45
  46 set square 10008.5
  47
  48 set nb_v_good 86
  49 set nb_e_good 132
  50 set nb_w_good 126
  51 set nb_f_good 126
  52 set nb_sh_good 40
  53 set nb_sol_good 40
  54 set nb_compsol_good 0
  55 set nb_compound_good 1
  56 set nb_shape_good 551
  57
  58 set 2dviewer 1