Commit | Line | Data |
---|---|---|
40093367 | 1 | # Original bug : ger50084 |
2 | # Date : 15 Sept 98 | |
3 | ||
34dd4990 | 4 | restore [locate_data_file CTO900_ger50084c.rle] base |
8418c617 | 5 | restore [locate_data_file ger50084_face.rle] wire |
40093367 | 6 | |
7 | ## contour est un wire -> on en fait une face | |
8 | mkplane cont wire | |
9 | ||
10 | explode base face | |
11 | copy base_7 funtil | |
12 | ||
13 | featprism base cont cont 0 0 1 1 1 | |
14 | featperform prism result funtil | |
15 | ||
16 | set square 1146.7 |