Commit | Line | Data |
---|---|---|
40093367 | 1 | # Original bug : pro16810 |
2 | # Date : 07 Dec 98 | |
3 | ||
34dd4990 | 4 | restore [locate_data_file CFE900_pro16gfj.rle] base |
40093367 | 5 | |
6 | circle cercle 0 0 0 0 0 1 10 | |
7 | mkedge edge cercle | |
8 | wire wire edge | |
9 | mkplane cont wire | |
10 | ||
11 | explode base face | |
12 | copy base_6 funtil | |
13 | ||
14 | featprism base cont cont 0 0 1 1 1 | |
15 | featperform prism result funtil | |
16 | ||
17 | set square 28559.8 |