Integration part of tests of grid chl
[occt.git] / tests / bugs / modalg / 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