tests/bugs/modalg_2/bug4717_8

   1 puts "TODO OCC12345 ALL: Error : Result shape is WRONG"
   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 bopcommon result
  30
  31 set square 181937
  32
  33 set nb_v_good 3
  34 set nb_e_good 4
  35 set nb_w_good 2
  36 set nb_f_good 2
  37 set nb_sh_good 1
  38 set nb_sol_good 1
  39 set nb_compsol_good 0
  40 set nb_compound_good 1
  41 set nb_shape_good 14
  42
  43 set 2dviewer 0