tests/bugs/modalg_7/bug30386_4

   1 puts "======================================================="
   2 puts "0030386: Modeling Algorithms - Unable to perform Cut operation"
   3 puts "======================================================="
   4 puts ""
   5
   6 # prepare the first argument - compound of mutlti-dimensional shapes
   7 vertex v 0 0 2
   8 line l 5 5 0 0 0 1
   9 mkedge e l -10 10
  10 plane p 0 0 1 0 0 1
  11 mkface f p -15 15 -15 15
  12 box b 8 8 8 5 5 5
  13 bclearobjects
  14 bcleartools
  15 baddobjects v e f b
  16 bfillds
  17 bbuild s1
  18
  19 # second argument - solid
  20 box s2 10 10 10
  21
  22 bclearobjects
  23 bcleartools
  24 baddobjects s1
  25 baddtools s2
  26 bfillds
  27
  28 # it is allowed to perform only CUT and COMMON operations
  29 bbop r0 0
  30 bbop r2 2
  31
  32
  33 foreach r {r0 r2} {
  34   checkshape $r
  35   if {![regexp "OK" [bopcheck $r]]} {
  36     puts "Error: the $r is a self-interfering shape"
  37   }
  38 }
  39
  40 checknbshapes r0 -vertex 16 -edge 18 -wire 7 -face 7 -shell 1 -solid 1 -t
  41 checkprops r0 -s 124
  42 explode r0 so
  43 checkprops r0_1 -v 8
  44
  45 checknbshapes r2 -vertex 24 -edge 30 -wire 11 -face 10 -shell 1 -solid 1 -t
  46 checkprops r2 -s 950
  47 explode r2 so
  48 checkprops r2_1 -v 117
  49
  50 checkview -display r2 -2d -path ${imagedir}/${test_image}.png