
puts "========"
puts "OCC745"
puts "========"
puts ""
############################
# Not correct creation of bisector loci:
############################

restore [locate_data_file OCC745_pocket4.brep] w 
checkshape w
plane p
mkface result p w
topoload result
drawcont

smallview -2D-
2dfit

mat
result

set square 5844.21
set 2dviewer 0
