40093367 |
1 | # Original bug : cts21322 |
2 | # Date : 16 Sept 98 |
3 | |
8418c617 |
4 | restore [locate_data_file contour.rle] cont |
40093367 |
5 | mkplane cont cont |
6 | |
7 | puts "*" |
8 | |
34dd4990 |
9 | restore [locate_data_file CFE900_cts21gbs.rle] base |
8418c617 |
10 | restore [locate_data_file cts21322_face.rle] wire |
40093367 |
11 | |
12 | explode base face |
13 | copy base_6 fsketch |
14 | |
15 | splitshape cont1 fsketch fsketch wire |
16 | explode cont1 |
17 | bcut cont fsketch cont1_1 |
18 | |
19 | featprism base cont fsketch 1 0 0 0 1 |
20 | if { [catch { featperform prism result } ] != 0 } { |
21 | puts "Error in featperform" |
22 | } |
23 | |
4e57c75e |
24 | set square 683.581 |