puts "Check History of General Fuse"

puts "Case with an edge intersecting a face"

polyline fw 0 0 0 10 0 0 10 10 0 0 10 0 0 0 0
mkplane fs fw

vertex ev1 5 5 5
vertex ev2 5 5 -5
edge es ev1 ev2

bclearobjects
bcleartools
baddobjects fs
baddtools es
bfillds
bbuild r

bmodified fs_m fs
checknbshapes fs_m -face 1 -m "Information about Modification of fs"

bmodified es_m es
checknbshapes es_m -edge 2 -m "Information about Modification of es"

bgenerated fs_g fs
checknbshapes fs_g -vertex 1 -m "Information about shapes Generated from fs"

bgenerated es_g es
checknbshapes es_g -vertex 1 -m "Information about shapes Generated from es"


# In General Fuse operation there should be no Deleted elements
foreach s [join [list es fs [explode es v] [explode fs e] [explode fs v]]] {
  if {[string trim [bisdeleted $s]] != "Not deleted"} {
    puts "Error: Incorrect information about Deleted shapes"
  }
}