9026dea8 |
1 | puts "TODO OCC28167 ALL: Error: Fillet has strange form at its end" |
2 | |
3 | puts "========" |
4 | puts "OCC28167" |
5 | puts "========" |
6 | puts "" |
7 | ##################################### |
8 | # Fillet has strange form at its end |
9 | ##################################### |
10 | |
11 | restore [locate_data_file bug28167_solid.brep] s |
12 | |
13 | explode s E |
14 | |
15 | fillet r s 1 s_3 |
16 | |
17 | explode r F |
18 | explode r_6 E |
19 | renamevar r_6_1 res |
20 | |
21 | regexp {Mass +: +([-0-9.+eE]+)} [lprops res] full length_r_6_1 |
22 | |
23 | set expected_length 1.31899 |
24 | set toleranse 1.e-4 |
25 | if {[expr abs(${length_r_6_1} - ${expected_length})] <= ${toleranse}} { |
26 | puts "Error: Fillet has strange form at its end" |
27 | } |
28 | |
29 | checkview -display r_6 -2d -path ${imagedir}/${test_image}.png |