tests/bugs/modalg_6/bug27878_6

   1 puts "========"
   2 puts "OCC27878"
   3 puts "========"
   4 puts ""
   5 #################################################
   6 # Development of the Gluing operations based on the new Boolean component
   7 #################################################
   8
   9 compound sh
  10 for {set i 0} {$i < 4} {incr i} {
  11   for {set j 0} {$j < 4} {incr j} {
  12     box b 1 1 1;
  13     ttranslate b $i $j 0;
  14     add b sh
  15   }
  16 }
  17
  18 nurbsconvert b1 sh
  19
  20 #fuse boxes using glue full option
  21 bglue 2
  22
  23 bclearobjects
  24 bcleartools
  25 baddobjects {*}[explode b1 so]
  26 bfillds -t
  27 bcbuild rx
  28 bcaddall res1 -m 1 -u
  29
  30 copy res1 b2
  31 ttranslate b2 0.5 0.5 1
  32
  33 # fuse two solids using glue shift
  34 bglue 1
  35
  36 chrono t reset; chrono t start
  37 bop res1 b2
  38 chrono t stop; chrono t show
  39
  40 bopfuse result
  41
  42 checkshape result
  43 checknbshapes result -face 78 -solid 1
  44 checkprops result -s 71.5 -v 32
  45
  46 checkview -display result -2d -path ${imagedir}/${test_image}.png