tests/bugs/modalg_7/bug29586

   1 puts "========"
   2 puts "OCC29586"
   3 puts "========"
   4 puts ""
   5 #################################################
   6 # Revolution creates solid with degenerated edges shared among faces
   7 #################################################
   8
   9 circle c1 0 -5 0 1 0 0 10
  10 circle c2 0 5 0 1 0 0 10
  11 mkedge e1 c1
  12 mkedge e2 c2
  13 wire w1 e1
  14 wire w2 e2
  15 mkplane f1 w1
  16 mkplane f2 w2
  17 bcut f12 f1 f2
  18 revol r f12 0 0 0 0 0 1 180
  19
  20 explode r f
  21
  22 explode r_1 e
  23
  24 explode r_2 e
  25
  26 explode r_3 e
  27
  28 if {[regexp "same shapes" [compare r_1_1 r_2_1]]} { puts "Error" }
  29 # Error
  30
  31 if {[regexp "same shapes" [compare r_3_2 r_2_2]]} { puts "Error" }
  32 # Error
  33
  34 #testing generated
  35 savehistory h
  36 explode f12 v
  37 generated g1 h f12_1
  38 checknbshapes g1 -edge 2
  39 generated g2 h f12_2
  40 checknbshapes g2 -edge 1
  41 generated g3 h f12_3
  42 checknbshapes g3 -edge 2
  43