puts "========"
puts "OCC28426"
puts "========"
puts ""
#################################################
# Implementation of the EdgesToFaces function
#################################################

circle c 0 0 0 0 0 1 10
line l 0 0 0 1 0 0
mkedge ec c
mkedge el l -15 15
compound el ec c

edgestofaces result1 c

compound ec el c

edgestofaces result c

checkshape result1
checkshape result

checknbshapes result1 -face 2 -wire 2
checknbshapes result -face 2 -wire 2

if { [regexp "This shape seems to be OK" [bopcheck result1]] != 1 } {
  puts "Error : The result is self-interfered"
}

if { [regexp "This shape seems to be OK" [bopcheck result]] != 1 } {
  puts "Error : The result is self-interfered"
}
