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

puts "TODO OCC25983 ALL: Error :  is WRONG because number of"
puts "TODO OCC25983 ALL: Error : The area of result shape is"
puts "TODO OCC25983 ALL: Error : The volume of result shape is"

puts "========"
puts "OCC25983"
puts "========"
puts ""
##########################################
# Fusion of sweep and its mirror invalid
##########################################

restore [locate_data_file bug25983_deform-fusion1-tcl-BSpline.brep] BSpline
wire Knurling-0-spine BSpline
mksweep Knurling-0-spine
setsweep -FR
polyline DWire 0 0 0 1 -0.9999999999999998 0 1.0000000000000002 0.9999999999999998 0 0 0 0
trotate DWire 0 0 0 1 0 0 134.99999999999693
ttranslate DWire 9 0 0
addsweep DWire 
buildsweep Knurling -C -S
copy Knurling Clone
tmirror Clone 0 0 0 1 0 0
bfuse result Knurling Clone

checkshape result
checknbshapes result -wire 24 -face 24 -shell 1 -solid 1
checkprops result -s 262.476 -v 54.0383

checkview -display result -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
	1	puts "TODO OCC25983 ALL: Error : is WRONG because number of"
	2	puts "TODO OCC25983 ALL: Error : The area of result shape is"
	3	puts "TODO OCC25983 ALL: Error : The volume of result shape is"
	4
	5	puts "========"
	6	puts "OCC25983"
	7	puts "========"
	8	puts ""
	9	##########################################
	10	# Fusion of sweep and its mirror invalid
	11	##########################################
	12
	13	restore [locate_data_file bug25983_deform-fusion1-tcl-BSpline.brep] BSpline
	14	wire Knurling-0-spine BSpline
	15	mksweep Knurling-0-spine
	16	setsweep -FR
	17	polyline DWire 0 0 0 1 -0.9999999999999998 0 1.0000000000000002 0.9999999999999998 0 0 0 0
	18	trotate DWire 0 0 0 1 0 0 134.99999999999693
	19	ttranslate DWire 9 0 0
	20	addsweep DWire
	21	buildsweep Knurling -C -S
	22	copy Knurling Clone
	23	tmirror Clone 0 0 0 1 0 0
	24	bfuse result Knurling Clone
	25
	26	checkshape result
	27	checknbshapes result -wire 24 -face 24 -shell 1 -solid 1
	28	checkprops result -s 262.476 -v 54.0383
	29
	30	checkview -display result -2d -path ${imagedir}/${test_image}.png