# Original bug : cts20358 # Date : 17Juillet98 restore [locate_data_file CFE900_cts20gap.rle] base restore [locate_data_file cts20358b.rle] cont explode base face copy base_15 ffrom copy base_17 funtil ## creation des faces infinies support mksurface p15 base_15 mkface f15 p15 mksurface p17 base_17 mkface f17 p17 featprism base cont cont 0 0 -1 0 1 featperform prism result f15 f17 set square 1105.82