Adding of testing cases from subgroups 937 940 and 941 of CHL group
[occt.git] / tests / bugs / modalg_2 / bug407_2
CommitLineData
0e94a94e 1
2puts "========================"
3puts " OCC407 "
4puts "(case 2)"
5puts "========================"
6puts ""
7
8pcylinder b1 1 4
9pcylinder b2 1 4
10trotate b2 0 0 2 1 0 0 90
11trotate b2 0 0 2 0 1 0 60
12
13bcut result b2 b1
14checkshape -top result
15
16set square 31.4159
17set 2dviewer 0
18