a0bb29e7 |
1 | puts "========" |
2 | puts "0027383: Modeling - improve handling of regularity on edges" |
3 | puts "========" |
4 | puts "" |
5 | puts "Check regularity setting on edges between same-domain faces after fuse" |
6 | |
7 | # fuse of two boxes |
8 | pload MODELING |
9 | box b1 10 10 10 |
10 | box b2 5 5 0 10 10 10 |
11 | bfuse r b1 b2 |
12 | explode r f |
13 | explode r_7 e |
14 | getedgeregularity r_7_3 r_3 r_7 ;# returns C0: regularity is not set at all |
15 | encoderegularity r |
16 | |
17 | explode res f |
18 | explode res_3 e |
19 | explode res_4 e |
20 | if { ! [regexp "CN" [getedgeregularity r_7_3 r_3 r_7]] } { |
21 | puts "Error: Invalid regularity of the edge, expected CN" |
22 | } |
23 | |
24 | # make image in HLR mode as illustration |
25 | pload VISUALIZATION |
26 | vdisplay r |
27 | vfit |
28 | vhlr on |
29 | vdump ${imagedir}/${test_image}.png |