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 checkprops result -s 10008.9
  47 checkshape result
  48
  49 checknbshapes result -vertex 86 -edge 132 -wire 126 -face 126 -shell 40 -solid 40 -compsolid 0 -compound 1 -shape 551
  50 checkview -display result -2d -path ${imagedir}/${test_image}.png