| 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 | |
projects / occt.git / blame