puts "============"
puts "PRO16983"
puts "============"

restore [locate_data_file pro16983a.brep] B 
checkshape B
plane p 0 0 0 1 0 0
vertex v1 0 90.16396 252.4591
vertex v2 0 252.459 -9.835989
edge e v2 v1
wire w e
featlf B w p -5 0 0 5 0 0 1 1
featperform lf result

set square 796476
set 2dviewer 0