restore case_7_shell.brep a
restore case_7_wire1.brep b
bcut result b a
set length 2498.39
set nbsh_v 10
set nbsh_e 7