# Original bug : cts21322 # Date : 16 Sept 98 restore [locate_data_file contour.rle] cont mkplane cont cont puts "*" puts "TODO OCC22810 ALL:Error in featperform" puts "TODO OCC22810 ALL:Error : The feat can not be build" restore [locate_data_file CFE900_cts21gbs.rle] base restore [locate_data_file cts21322_face.rle] wire explode base face copy base_6 fsketch splitshape cont1 fsketch fsketch wire explode cont1 bcut cont fsketch cont1_1 featprism base cont fsketch 1 0 0 0 1 if { [catch { featperform prism result } ] != 0 } { puts "Error in featperform" } set square 0