tests/boolean/mkconnected/A5

   1 box b1 5 5 10
   2 box b2 5 0 0 5 5 5
   3 box b3 0 5 0 5 5 5
   4
   5 makeconnected r b1 b2 b3
   6 checknbshapes r -wire 18 -face 18 -shell 3 -solid 3 -t
   7
   8 cmakeperiodic rp -x 10 -y 10
   9 checknbshapes rp -wire 20 -face 20 -shell 3 -solid 3 -t
  10
  11 savehistory h
  12
  13 explode b2 f
  14 modified m2 h b2_2
  15 cperiodictwins m2_twin m2
  16
  17 cmaterialson m2_pos + m2
  18 cmaterialson m2_neg - m2_twin
  19
  20 if {![regexp "same shapes" [compare m2_pos b2]]} {
  21   puts "Error: incorrect material associations"
  22 }
  23
  24 if {![regexp "same shapes" [compare m2_neg b1]]} {
  25   puts "Error: incorrect material associations"
  26 }
  27
  28
  29 crepeatshape r -x 1 -y 1
  30 checknbshapes r -wire 76 -face 76 -shell 12 -solid 12 -t
  31
  32 savehistory h
  33 generated g2 h b2_2
  34 checknbshapes g2 -face 4 -t
  35
  36 cclearrepetitions r
  37 checknbshapes r -wire 20 -face 20 -shell 3 -solid 3 -t
  38
  39 savehistory h
  40
  41 modified m2 h b2_2
  42 cperiodictwins m2_twin m2
  43
  44 cmaterialson m2_pos + m2
  45 cmaterialson m2_neg - m2_twin
  46
  47 if {![regexp "same shapes" [compare m2_pos b2]]} {
  48   puts "Error: incorrect material associations"
  49 }
  50
  51 if {![regexp "same shapes" [compare m2_neg b1]]} {
  52   puts "Error: incorrect material associations"
  53 }
  54
  55 crepeatshape r -y 1
  56 checknbshapes r -wire 39 -face 39 -shell 6 -solid 6 -t
  57
  58 savehistory h
  59
  60 modified m2 h b2_2
  61 cperiodictwins m2_twin m2
  62
  63 checknbshapes m2_twin -face 3 -t