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