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

puts "===================================================================="
puts "OCC28828: New functionalities of BRepFilletAPI_MakeChamfer algorithm"
puts "===================================================================="
puts ""

pcylinder a1 10 50
plane pp 25 0 0  -1 0 0
pcylinder a2 pp 15 50
bfuse b a1 a2
savehistory hh

explode a1 f
generated ee hh a1_1
donly b ee

chamf_throat result b ee 1.

checkshape result

checknbshapes result -solid 1 -shell 1 -face 6 -wire 7 -edge 8 -vertex 5 -shape 29

set tolres [checkmaxtol result]

if { ${tolres} > 0.0002} {
   puts "Error: bad tolerance of result"
}

checkprops result -v 46724.8 -deps 1.e-7

checkview -display result -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
1d54b807	1	puts "===================================================================="
	2	puts "OCC28828: New functionalities of BRepFilletAPI_MakeChamfer algorithm"
	3	puts "===================================================================="
	4	puts ""
	5
	6	pcylinder a1 10 50
	7	plane pp 25 0 0 -1 0 0
	8	pcylinder a2 pp 15 50
	9	bfuse b a1 a2
	10	savehistory hh
	11
	12	explode a1 f
	13	generated ee hh a1_1
	14	donly b ee
	15
	16	chamf_throat result b ee 1.
	17
	18	checkshape result
	19
	20	checknbshapes result -solid 1 -shell 1 -face 6 -wire 7 -edge 8 -vertex 5 -shape 29
	21
	22	set tolres [checkmaxtol result]
	23
	24	if { ${tolres} > 0.0002} {
	25	puts "Error: bad tolerance of result"
	26	}
	27
	28	checkprops result -v 46724.8 -deps 1.e-7
	29
	30	checkview -display result -2d -path ${imagedir}/${test_image}.png