puts "========================"
puts " OCC423 "
puts "(case 2)"
puts "========================"
puts ""

restore [locate_data_file pro15515_base.rle] base 
checkshape base

restore [locate_data_file pro15515_face.rle] cont 
checkshape cont

explode base face
copy base_4 ffrom
copy base_3 funtil

### From Until
featrevol base cont cont 54.06494140625 70.2841796875 0 0 0 1 1 1
featperform revol result funtil ffrom

set square 560028.
set 2dviewer 0