0027383: Modeling - improve handling of regularity on edges
[occt.git] / tests / bugs / modalg_6 / bug27383_6
1 puts "========"
2 puts "0027383: Modeling - improve handling of regularity on edges"
3 puts "========"
4 puts ""
5 #################################################################
6 # Check regularity setting on edges between cylinder and a plane
7 #################################################################
8
9 pload MODELING
10 plane p 0 2 0 0 1 0
11 mkface pln p 0 10 -2 0
12 pcylinder cyl 2 10 90
13 explode cyl F
14 sewing r cyl_1 pln
15 encoderegularity r
16
17 set cont "G1"
18
19 explode r F
20 explode r_1 E
21 if { ! [regexp "${cont}" [getedgeregularity r_1_2 r_1 r_2]] } {
22   puts "Error: Invalid regularity of the edge, expected ${cont}"
23 }
24
25 nurbsconvert ncyl cyl_1
26 sewing r ncyl pln
27 encoderegularity r
28
29 explode r F
30 explode r_1 E
31 if { ! [regexp "${cont}" [getedgeregularity r_1_2 r_1 r_2]] } {
32   puts "Error: Invalid regularity of the edge, expected ${cont}"
33 }
34
35 # make image in HLR mode as illustration
36 pload VISUALIZATION
37 vdisplay r
38 vfit
39 vhlr on
40 vdump ${imagedir}/${test_image}.png