0027015: Sewing returns invalid shape if some faces are nearly plane cones
[occt.git] / tests / bugs / modalg_6 / bug27272
1 puts "========"
2 puts "0027272: FixMissingSeam function creates G1 seam curves"
3 puts "========"
4 puts ""
5 puts "Check regularity setting after FixMissingSeam (original problem)"
6
7 restore [locate_data_file bug27272_SeamTest_unfixed.brep] a
8 fixshape res a 1.e-7 1.
9 encoderegularity res
10
11 explode res f
12 explode res_3 e
13 explode res_4 e
14 if { ! [regexp "CN" [getedgeregularity res_3_2 res_3]] ||
15      ! [regexp "CN" [getedgeregularity res_4_2 res_4]] } {
16   puts "Error: Invalid regularity of the seam edge, expected CN"
17 }