tests/bugs/modalg_5/bug23954

   1 puts "============"
   2 puts "OCC23954"
   3 puts "============"
   4 puts ""
   5 ##########################################################
   6 # BRepPrimAPI_MakeRevol fails to recognize a torus case
   7 ##########################################################
   8
   9 circle c_1 0 100 0 1 0 0 0 1 0 100
  10 circle c_2 0 100 0 1 0 0 0 0 1 100
  11 circle c_3 0 100 0 1 0 0 0 -1 0 100
  12 circle c_4 0 100 0 1 0 0 0 0 1 10
  13 circle c_5 0 100 0 1 0 0 0 0 1 120
  14 for { set i 1 } { $i <= 5 } { incr i } {
  15     mkedge e c_$i
  16     revol r e 0 0 0 0 0 1 90
  17     mksurface s_$i r
  18     dump s_$i
  19 }