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