[occt.git] / tests / bugs / modalg_6 / bug28261

puts "========"
puts "OCC28261"
puts "========"
puts ""
#################################################
# Chamfer fails on edges placed on quasi-planar cone
#################################################

brestore [locate_data_file bug28261_face.brep] f
brestore [locate_data_file bug28261_hexaprism.brep] h

explode f E
mkcurve c f_1
cvalue c 0 x y z dx dy dz
revol rev f $x $y $z $dx $dy $dz 360

bcut r rev h
savehistory hh

explode h f
explode h_7 E

chamf r r h_7_1 0.1  h_7_2 0.1  h_7_3 0.1  h_7_4 0.1  h_7_5 0.1  h_7_6 0.1

explode rev f
modified ff hh rev_1
explode ff e

chamf result r ff_1 0.1  ff_2 0.1  ff_3 0.1  ff_4 0.1  ff_5 0.1  ff_6 0.1  ff_7 0.1

checkshape result
checknbshapes result -solid 1 -face 27 -edge 54 -vertex 31
checkprops result -v 17158.2 -s 4072.76 -deps 1.e-7

checkview -display result -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
9f2d9736	1	puts "========"
	2	puts "OCC28261"
	3	puts "========"
	4	puts ""
	5	#################################################
	6	# Chamfer fails on edges placed on quasi-planar cone
	7	#################################################
	8
	9	brestore [locate_data_file bug28261_face.brep] f
	10	brestore [locate_data_file bug28261_hexaprism.brep] h
	11
	12	explode f E
	13	mkcurve c f_1
	14	cvalue c 0 x y z dx dy dz
	15	revol rev f $x $y $z $dx $dy $dz 360
	16
	17	bcut r rev h
1d54b807	18	savehistory hh
9f2d9736	19
1d54b807	20	explode h f
1d54b807	21	explode h_7 E
9f2d9736	22
1d54b807	23	chamf r r h_7_1 0.1 h_7_2 0.1 h_7_3 0.1 h_7_4 0.1 h_7_5 0.1 h_7_6 0.1
	24
	25	explode rev f
	26	modified ff hh rev_1
	27	explode ff e
	28
	29	chamf result r ff_1 0.1 ff_2 0.1 ff_3 0.1 ff_4 0.1 ff_5 0.1 ff_6 0.1 ff_7 0.1
9f2d9736	30
9f2d9736	31	checkshape result
1d54b807	32	checknbshapes result -solid 1 -face 27 -edge 54 -vertex 31
	33	checkprops result -v 17158.2 -s 4072.76 -deps 1.e-7
	34
	35	checkview -display result -2d -path ${imagedir}/${test_image}.png