# Original bug : cts18754
# Date : 20 Mar 98

restore [locate_data_file CTO900_cts18754-part.rle] base
restore [locate_data_file cts18754-tool.rle] wire

mkplane cont wire

explode base face
copy base_1 funtil

featprism base cont cont 0 1 0 1 1
featperform prism result funtil

set square 1.36014e+06
