0027383: Modeling - improve handling of regularity on edges
[occt.git] / tests / bugs / modalg_6 / bug27383_4
1 puts "========"
2 puts "0027383: Modeling - improve handling of regularity on edges"
3 puts "========"
4 puts ""
5 #################################################################
6 # Check regularity setting on edges between patches of B-Spline surface obtained by conversion of cylinder
7 #################################################################
8
9 pload MODELING
10 pcylinder p 2 10
11 explode p f
12 nurbsconvert q p_1
13 DT_ClosedSplit r q
14 encoderegularity r
15
16 explode r F
17 explode r_1 E
18 if { ! [regexp "G2" [getedgeregularity r_1_2 r_1 r_2]] } {
19   puts "Error: Invalid regularity of the edge, expected G2"
20 }
21 if { ! [regexp "G2" [getedgeregularity r_1_4 r_1 r_2]] } {
22   puts "Error: Invalid regularity of the edge, expected G2"
23 }
24
25 # make image in HLR mode as illustration
26 pload VISUALIZATION
27 vdisplay r
28 vfit
29 vhlr on
30 vdump ${imagedir}/${test_image}.png