tests/bugs/modalg_2/bug407_1

   1
   2 puts "========================"
   3 puts " OCC407 "
   4 puts "(case 1)"
   5 puts "========================"
   6 puts ""
   7
   8 pcylinder b1 1 4
   9 pcylinder b2 1 4
  10 trotate b2 0 0 2 1 0 0 90
  11 trotate b2 0 0 2 0 1 0 60
  12
  13 bfuse result  b2 b1
  14 checkshape -top result
  15
  16 set square 46.8319
  17 set 2dviewer 0
  18