# Original bug : ger50084
# Date : 15 Sept 98

cpulimit 1300
#increased from default by aki 26.08.04

restore [locate_data_file ger50084_baseX.rle] base
fsameparameter base
restore [locate_data_file ger50084_face.rle] wire

## contour est un wire -> on en fait une face
mkplane cont wire

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

set square 25327.1