Commit | Line | Data |
---|---|---|
40093367 | 1 | # Original bug : cts20449 |
2 | # Date : 25 Nov 98 | |
3 | ||
34dd4990 | 4 | restore [locate_data_file CFE900_cts20geh.rle] base |
8418c617 | 5 | restore [locate_data_file cts20449_face.brep] cont |
40093367 | 6 | |
7 | explode base face | |
8 | copy base_5 funtil | |
9 | ||
10 | mksurface p5 base_5 | |
11 | mkface f5 p5 | |
12 | ||
13 | featprism base cont cont -1 0 0 1 1 | |
14 | featperform prism result f5 | |
15 | ||
16 | # Prendre option face Until + support | |
17 | ||
18 | set square 4.89101e+06 |