1puts "========"
2puts "0027383: Modeling - improve handling of regularity on edges"
3puts "========"
4puts ""
5#################################################################
6# Check regularity setting on generatrix shared by two cylinders
7#################################################################
8
9pload MODELING
10pcylinder cyl 2 10 90
11explode cyl F
12tcopy cyl_1 c2
13trotate c2 0 2 0 0 0 1 180
14sewing r cyl_1 c2
15encoderegularity r
16
17explode r F
18explode r_1 E
19if { ! [regexp "C1" [getedgeregularity r_1_2 r_1 r_2]] } {
20  puts "Error: Invalid regularity of the edge, expected C1"
21}
22
23# make image in HLR mode as illustration
24pload VISUALIZATION
25vdisplay r
26vfit
27vhlr on
28vdump ${imagedir}/${test_image}.png
29