puts "================" puts "OCC24328" puts "================" puts "" ####################################################################### # Revolution of a wire generates two interfered faces ####################################################################### vertex v1 23.500000 11.123000 0 vertex v2 22.000000 11.140900 0 vertex v3 20.500000 11.180700 0 edge e1 v1 v2 edge e2 v2 v3 wire w e1 e2 revol r w 0 0 0 1 0 0 360 set info [bopcheck r] if { [regexp "This shape seems to be OK" ${info}] != 1 } { puts "Error : Revolution works wrong" } else { puts "OK: Revolution works properly" }