[occt.git] / tests / bugs / moddata_2 / bug259

 
puts "========================"
puts " OCC259 "
puts "========================"
puts ""
######################################################
##Inequality behaviour of checkshape -top on SunOS and IRIX.
######################################################

pcylinder b1 1 2

dset r sqrt(2)/2
box b2 -r -r 0 2*r 2*r 2
trotate b2 0 0 0 0 0 1 135

bfuse result b2 b1
checkshape -top result

checkprops result -s 18.8496
checkview -display result -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
0e94a94e	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 2r 2r 2
	14	trotate b2 0 0 0 0 0 1 135
	15
	16	bfuse result b2 b1
352ffd73	17	checkshape -top result
0e94a94e	18
58cf74e0	19	checkprops result -s 18.8496
5747059b	20	checkview -display result -2d -path ${imagedir}/${test_image}.png