tests/bugs/modalg_2/bug422_2

   1
   2 puts "========================"
   3 puts " OCC422 "
   4 puts "(case 2)"
   5 puts "========================"
   6 puts ""
   7
   8 plane ps 10 -3 0  1 0 0  0 .2 1
   9 psphere ps ps 20
  10 profile pf o 5 1 5 l 10 c 2 90 l 5 d -1 0 \
  11 l 14 d 0 -1 l 5 c 2 90
  12 prism pr pf 0 0 30
  13 bfuse f ps pr
  14 nexplode f f
  15
  16 depouille result f 0 0 1 f_4 4 0 0 30 0 0 1
  17
  18 checkprops result -s 5719.09
  19 checkshape result
  20 checkview -display result -2d -path ${imagedir}/${test_image}.png