dfdfa61f |
1 | puts "TODO OCC24692 ALL: Faulty shapes in variables faulty_1 to faulty_" |
2 | |
3 | puts "========" |
4 | puts "OCC24692" |
5 | puts "========" |
6 | puts "" |
7 | ######################################### |
8 | # fuseedge corruption of spherical edge |
9 | ######################################### |
10 | |
11 | # Object_1 |
12 | pcylinder cyl 10 40 |
13 | box abox 10 40 25 |
14 | ttranslate abox 0 -20 5 |
15 | bop cyl abox |
16 | bopfuse fuse1 |
17 | |
18 | # Object_2 |
19 | psphere asphere 7 |
20 | ttranslate asphere 0 0 3 |
21 | box abox2 5 30 25 |
22 | ttranslate abox2 -2 -15 -11 |
23 | bop abox2 asphere |
24 | bopfuse fuse2 |
25 | |
26 | # Object_Result |
27 | bop fuse1 fuse2 |
28 | bopcut result |
29 | fuseedge result |
30 | |
31 | checkshape result_1 |