tests/bugs/modalg_2/bug424_2

   1
   2 puts "========================"
   3 puts " OCC424 "
   4 puts "(case 2)"
   5 puts "========================"
   6 puts ""
   7
   8 restore [locate_data_file CFE_e_lonfzx.rle] E
   9 nexplode E f
  10
  11 profile cont S E_10 F 50 -100 X 50 Y -100 X -50
  12 featdprism E cont E_10 10 1 1
  13
  14 if [catch {featperform dprism result } catch_result] {
  15     puts "Faulty OCC424 (case 2): function FEATPERFORM works wrongly"
  16 } else {
  17     puts "OCC424 OK (case 2): function FEATPERFORM works properly"
  18 }
  19
  20 checkprops result -s 978236.
  21 checkshape result
  22 checkview -display result -2d -path ${imagedir}/${test_image}.png