puts "======="
puts "OCC767"
puts "======="
puts ""
############################################
## Command sameparametr in DRAW hangs  on attached edge.
############################################

restore [locate_data_file OCC767.brep] result

sameparameter result

checkprops result -l 7.6901 
checkshape result 
checksection result
set 2dviewer 0