tests/bugs/modalg_2/bug4717_4

   1 puts "TODO OCC12345 ALL: Error :  is WRONG because number of"
   2
   3 puts "============"
   4 puts "OCC4717"
   5 puts "============"
   6 puts ""
   7 ######################################################
   8 # A regression of new Boolean Operations
   9 # (cfi/002/H3)
  10 ######################################################
  11
  12 dset SCALE1 10
  13 protect SCALE1
  14
  15 box b -20 -20 -20 40 40 20
  16 ellipse w1 0 0 0 15 10
  17 mkedge w1 w1 -pi/2 pi/2
  18 trotate w1 0 0 0 1 0 0 90
  19 wire w w1
  20 revol r w 0 0 0 0 0 1 360
  21 shape s So
  22 add r s
  23 trotate s b 0 0 0 1 1 0 -40
  24 trotate s b 0 0 0 0 0 1 -10
  25 tscale b 0 0 0 SCALE1
  26 tscale s 0 0 0 SCALE1
  27
  28 bop b s
  29 bopcut result
  30
  31 checkprops result -s 680565
  32 checkshape result
  33
  34 checknbshapes result -vertex 11 -edge 16 -wire 8 -face 7 -shell 1 -solid 1 -compsolid 0 -compound 1 -shape 45
  35 checkview -display result -2d -path ${imagedir}/${test_image}.png