tests/bugs/modalg_5/bug25614_fuse

   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 1
  46
  47 checknbshapes result -vertex 1808 -edge 3392 -wire 1586 -face 1586 -shell 1 -solid 1 -compsolid 0 -compound 1 -shape 8375
  48 checkview -display result -3d -path ${imagedir}/${test_image}.png