tests/bugs/modalg_2/bug423_1

   1
   2 puts "========================"
   3 puts " OCC423 "
   4 puts "(case 1)"
   5 puts "========================"
   6 puts ""
   7
   8 restore [locate_data_file cylindre.rle] cyl
   9 checkshape cyl
  10
  11 restore [locate_data_file contour.rle] cont
  12 checkshape cont
  13
  14 mkplane cont cont
  15 nexplode cyl F
  16
  17 ttranslate cont 0 200 0
  18 featdprism cyl cont cont -10 1 1
  19
  20 if [catch {featperformval dprism result 55 cyl_3 } catch_result] {
  21     puts "Faulty OCC423 (case 1): function FEATPERFORMVAL works wrongly"
  22 } else {
  23     puts "OCC423 OK (case 1): function FEATPERFORMVAL works properly"
  24 }
  25
  26 set square 94944.4
  27 set 2dviewer 0