tests/bugs/modalg/bug12213

   1 puts "============"
   2 puts "OCC12213"
   3 puts "============"
   4 puts ""
   5 #######################################################################
   6 # Invalid sweep was created by command "buildsweep" in DRAW in case circular path
   7 #######################################################################
   8
   9 set BugNumber OCC12213
  10
  11 circle c1 0 0 0 100
  12 trim cc1 c1 0 3.14
  13 mkedge e2 cc1
  14 wire w2 e2
  15
  16 box a 95 -10 -5 10 10 10
  17 explode a w
  18 explode a_4 e
  19 wire w21 a_4_1 a_4_2 a_4_3 a_4_4
  20
  21 box b -110 -10 -5 20 10 10
  22 explode b w
  23 explode b_4 e
  24 wire w22 b_4_1 b_4_2 b_4_3 b_4_4
  25
  26 explode w2 v
  27
  28 mksweep w2
  29 addsweep w21 w2_1
  30 addsweep w22 w2_2
  31 buildsweep result
  32
  33 set square 15708.8
  34
  35 # Analysis of "nbshapes res"
  36 set nb_v_good 8
  37 set nb_e_good 12
  38 set nb_w_good 4
  39 set nb_f_good 4
  40 set nb_sh_good 1
  41 set nb_sol_good 0
  42 set nb_compsol_good 0
  43 set nb_compound_good 0
  44 set nb_shape_good 29
  45
  46 set 2dviewer 1
  47