[occt.git] / tests / bugs / modalg_7 / bug29580_2

puts "========"
puts "OCC29580"
puts "========"
puts ""
#################################################
# Regression: invalid result of BOP Fuse
#################################################


circle c1 0 -5 0 1 0 0 10 
circle c2 0 5 0 1 0 0 10
mkedge e1 c1 
mkedge e2 c2 
wire w1 e1 
wire w2 e2 
mkplane f1 w1 
mkplane f2 w2 
bcut f12 f1 f2 
revol b1 f12 0 0 0 0 0 1 180
ttranslate b1 0 31.358955689999998 0 

plane pln 0 0 0 0 0 1 1.1102230246251565e-016 -1 0 
psphere b2 pln 8.6602540399999999 180 
ttranslate b2  0 31.358955689999998 0

bclearobjects
bcleartools
baddobjects b1
baddtools b2
bfillds
bbuild result

checkshape result
checknbshapes result -vertex 4 -edge 16 -wire 10 -face 10 -shell 3 -solid 3 -t
checkprops result -s 3879.55 -v 6295.15

checkview -display result -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
	1	puts "========"
	2	puts "OCC29580"
	3	puts "========"
	4	puts ""
	5	#################################################
	6	# Regression: invalid result of BOP Fuse
	7	#################################################
	8
	9
	10	circle c1 0 -5 0 1 0 0 10
	11	circle c2 0 5 0 1 0 0 10
	12	mkedge e1 c1
	13	mkedge e2 c2
	14	wire w1 e1
	15	wire w2 e2
	16	mkplane f1 w1
	17	mkplane f2 w2
	18	bcut f12 f1 f2
	19	revol b1 f12 0 0 0 0 0 1 180
	20	ttranslate b1 0 31.358955689999998 0
	21
	22	plane pln 0 0 0 0 0 1 1.1102230246251565e-016 -1 0
	23	psphere b2 pln 8.6602540399999999 180
	24	ttranslate b2 0 31.358955689999998 0
	25
	26	bclearobjects
	27	bcleartools
	28	baddobjects b1
	29	baddtools b2
	30	bfillds
	31	bbuild result
	32
	33	checkshape result
	34	checknbshapes result -vertex 4 -edge 16 -wire 10 -face 10 -shell 3 -solid 3 -t
	35	checkprops result -s 3879.55 -v 6295.15
	36
	37	checkview -display result -2d -path ${imagedir}/${test_image}.png