puts "========"
puts "OCC29322"
puts "========"
puts ""
#################################################
# Unify faces classification procedures in Boolean Operations
#################################################

line line1 0 0 0 0 0 1
mkedge e1 line1 0 10
line line2 0 0.5 0 0 0 1
mkedge e2 line2 0 10
mkedge e3 line2 -5 15
erase line1 line2

vertex v1 0 0.25 0
settolerance v1 0.25
vertex v2 0 0.25 10
settolerance v2 0.25
vertex v3 0 0.25 5
settolerance v3 0.25

bclearobjects
bcleartools
baddobjects e1 e2 e3 v1 v2 v3
bfillds
bbuild result

checkshape result
checknbshapes result -vertex 5 -edge 4
checkprops result -l 20

