2 puts "========================"
4 puts "========================"
6 ######################################################
7 ##Inequality behaviour of checkshape -top on SunOS and IRIX.
8 ######################################################
13 box b2 -r -r 0 2*r 2*r 2
14 trotate b2 0 0 0 0 0 1 135
17 puts [checkshape -top result]