0cbfb9f1 |
1 | puts "TODO OCC21564 ALL: Error : The square of result shape is" |
0e94a94e |
2 | puts "==========" |
3 | puts "BUC60532" |
4 | puts "==========" |
5 | |
6 | restore [locate_data_file buc60532a.brep] p |
352ffd73 |
7 | checkshape p |
0e94a94e |
8 | |
9 | restore [locate_data_file buc60532b.brep] t1 |
352ffd73 |
10 | checkshape t1 |
0e94a94e |
11 | |
12 | restore [locate_data_file buc60532c.brep] t2 |
352ffd73 |
13 | checkshape t2 |
0e94a94e |
14 | |
15 | # create halfspace |
16 | #vertex v 20 20 0 |
17 | halfspace h1 t1 20 20 0 |
18 | halfspace h2 t2 20 20 0 |
19 | |
20 | # first cut |
21 | bcut res1 p h1 |
22 | |
23 | explode res1 e |
24 | mkcurve cu11 res1_1 |
25 | mkcurve cu12 res1_2 |
26 | mkcurve cu13 res1_3 |
27 | mkcurve cu14 res1_4 |
28 | mkcurve cu15 res1_5 |
29 | |
352ffd73 |
30 | checkshape res1 |
0e94a94e |
31 | puts [computetolerance res1] |
32 | |
33 | # second cut |
34 | bcut res2 res1 h2 |
35 | tcopy res2 res |
352ffd73 |
36 | checkshape res2 |
0e94a94e |
37 | |
38 | explode res2 e |
39 | mkcurve cu21 res2_1 |
40 | mkcurve cu22 res2_2 |
41 | mkcurve cu23 res2_3 |
42 | mkcurve cu24 res2_4 |
43 | mkcurve cu25 res2_5 |
44 | |
45 | explode res2 face |
46 | |
47 | puts [computetolerance res2] |
48 | |
49 | renamevar res2 result |
50 | |
51 | set square 78.8705 |
52 | set 2dviewer 0 |
53 | |