[occt.git] / tests / bugs / modalg / bug407_1


puts "========================"
puts " OCC407 "
puts "(case 1)"
puts "========================"
puts ""

pcylinder b1 1 4
pcylinder b2 1 4
trotate b2 0 0 2 1 0 0 90
trotate b2 0 0 2 0 1 0 60

bfuse result  b2 b1 
checkshape -top result

set square 46.8319
set 2dviewer 0
Commit	Line	Data
0e94a94e	1
	2	puts "========================"
	3	puts " OCC407 "
	4	puts "(case 1)"
	5	puts "========================"
	6	puts ""
	7
	8	pcylinder b1 1 4
	9	pcylinder b2 1 4
	10	trotate b2 0 0 2 1 0 0 90
	11	trotate b2 0 0 2 0 1 0 60
	12
	13	bfuse result b2 b1
	14	checkshape -top result
	15
	16	set square 46.8319
	17	set 2dviewer 0
	18