tests/bugs/modalg_5/bug23954

   1 puts "TODO OCC23954 ALL: Error: result is not Toroidal surface"
   2
   3 puts "============"
   4 puts "OCC23954"
   5 puts "============"
   6 puts ""
   7 ##########################################################
   8 # BRepPrimAPI_MakeRevol fails to recognize a torus case
   9 ##########################################################
  10
  11 circle c_1 0 100.00001 0 1 0 0 0 1 0 100
  12 circle c_2 0 100.00001 0 1 0 0 0 0 1 100
  13 circle c_3 0 100.00001 0 1 0 0 0 -1 0 100
  14 circle c_4 0 100.00001 0 1 0 0 0 0 1 10
  15 for { set i 1 } { $i <= 4 } { incr i } {
  16   mkedge e c_$i
  17   revol r e 0 0 0 0 0 1 90
  18   mksurface s_$i r
  19   set info [dump s_$i]
  20   if { [regexp "SurfaceOfRevolution" $info] == 1 } {
  21     puts "Error: result is not Toroidal surface"
  22   }
  23 }