Restoring test cases removed by last commit.
[occt.git] / tests / bugs / moddata / bug259
CommitLineData
0e94a94e 1
2puts "========================"
3puts " OCC259 "
4puts "========================"
5puts ""
6######################################################
7##Inequality behaviour of checkshape -top on SunOS and IRIX.
8######################################################
9
10pcylinder b1 1 2
11
12dset r sqrt(2)/2
13box b2 -r -r 0 2*r 2*r 2
14trotate b2 0 0 0 0 0 1 135
15
16bfuse result b2 b1
17puts [checkshape -top result]
18
19set check_square 1
20set square 18.8496
21set 2dviewer 0