tests/bugs/modalg_2/bug422_1

   1
   2 puts "========================"
   3 puts " OCC422 "
   4 puts "(case 1)"
   5 puts "========================"
   6 puts ""
   7
   8 plane p 0 0 0 0 0 1 -1 0 0
   9 psphere p p 20 0 90
  10 #profile pf o -4 -4 1 l 8 d 0 1 l 8 d -1 0 l 8
  11 profile pf o -4 -4 1 l 8 c 2 90 l 8 d -1 0 l 8
  12 prism p2 pf 0 0 40
  13 bfuse f p p2
  14 nexplode f f
  15
  16 depouille result f 0 0 1 f_7 5 0 0 40 0 0 1
  17
  18 set square 4630.78
  19 set 2dviewer 0