tests/bugs/modalg_5/bug24328

   1 puts "================"
   2 puts "OCC24328"
   3 puts "================"
   4 puts ""
   5 #######################################################################
   6 # Revolution of a wire generates two interfered faces
   7 #######################################################################
   8
   9 vertex v1 23.500000 11.123000 0
  10 vertex v2 22.000000 11.140900 0
  11 vertex v3 20.500000 11.180700 0
  12 edge e1 v1 v2
  13 edge e2 v2 v3
  14 wire w e1 e2
  15 revol r w 0 0 0 1 0 0 360
  16
  17 set info [bopcheck r]
  18
  19 if { [regexp "This shape seems to be OK" ${info}] != 1 } {
  20     puts "Error : Revolution works wrong"
  21 } else {
  22     puts "OK: Revolution works properly"
  23 }