puts "========"
puts "BUC61008"
puts "OCC341"
puts "========"
puts ""

restore [locate_data_file buc61008.brep] w 
checkshape w

mkplane f w
prism result f 0 0 100

checkprops result -s 24991 
checkshape result
set 2dviewer 0