Commit | Line | Data |
---|---|---|
40093367 | 1 | # Original bug : cts21126 |
2 | # Date : 25 Nov 98 | |
3 | ||
8418c617 | 4 | restore [locate_data_file cts21126_base.brep] base |
40093367 | 5 | |
6 | circle c1 0 0 0 0 0 1 1 0 0 6.3 | |
7 | mkedge e1 c1 | |
8 | wire w1 e1 | |
9 | mkplane cont w1 0 | |
10 | ||
11 | # offset de 4 sur face base_3 | |
12 | explode base face | |
13 | copy base_3 funtil | |
14 | ttranslate funtil 0 0 -4 | |
15 | ||
16 | #depression until+offset | |
17 | featprism base cont cont 0 0 1 0 1 | |
18 | featperform prism result funtil | |
19 | ||
20 | set square 2976.57 |