40093367 |
1 | # Original bug : buc60127 |
2 | # Date : 18mar98 |
3 | |
8418c617 |
4 | restore [locate_data_file buc60127-part.rle] part |
5 | restore [locate_data_file buc60127-tool.rle] tool |
40093367 |
6 | |
d3578357 |
7 | # fix the part shape |
8 | |
9 | explode part f |
10 | # fix inner cylinder |
11 | mksurface c_in part_1 |
12 | trim c_in c_in |
13 | mkface f_in c_in 0 2*pi 0 150 |
14 | |
15 | # fix side faces |
16 | mksurface s1 part_3 |
17 | mksurface s2 part_4 |
18 | mkface f1 s1 -10 10 -10 10 |
19 | mkface f2 s2 -10 10 -10 10 |
20 | |
21 | # fix solid |
22 | mkvolume r part_2 f_in f1 f2 |
23 | |
24 | # find the outher solid - the one containing the outer cylinder (part_2 face) |
25 | foreach s [explode r so] { |
26 | set found 0 |
27 | foreach f [explode $s f] { |
28 | if {[regexp "same shapes" [compare part_2 $f]]} { |
29 | copy $s part |
30 | set found 1 |
31 | break |
32 | } |
33 | } |
34 | if {$found} { |
35 | break |
36 | } |
37 | } |
38 | |
40093367 |
39 | bcut result part tool |
d3578357 |
40 | checkshape result |
41 | checkprops result -s 5382.41 -v 2643.38 |
42 | checknbshapes result -wire 14 -face 11 -shell 1 -solid 1 |
43 | |
44 | checkview -display result -2d -path ${imagedir}/${test_image}.png |