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

puts "================================================="
puts "OCC32502: BOP wrong result on sphere and cylinder"
puts "================================================="
puts ""

psphere sph 10
plane pln 0 0 7 0 1 0 0 0 1
pcylinder cyl pln 3 40
ttranslate cyl 0 -20 0

bop sph cyl
bopfuse result

checkshape result

checknbshapes result -t -vertex 4 -edge 11 -wire 5 -face 5 -shell 1 -solid 1

set tolres [checkmaxtol result]

if { ${tolres} > 3.e-5} {
   puts "Error: bad tolerance of result"
}

checkprops result -s 1750.1 -v 4947.2
Commit	Line	Data
13584d14	1	puts "================================================="
	2	puts "OCC32502: BOP wrong result on sphere and cylinder"
	3	puts "================================================="
	4	puts ""
	5
	6	psphere sph 10
	7	plane pln 0 0 7 0 1 0 0 0 1
	8	pcylinder cyl pln 3 40
	9	ttranslate cyl 0 -20 0
	10
	11	bop sph cyl
	12	bopfuse result
	13
	14	checkshape result
	15
	16	checknbshapes result -t -vertex 4 -edge 11 -wire 5 -face 5 -shell 1 -solid 1
	17
	18	set tolres [checkmaxtol result]
	19
	20	if { ${tolres} > 3.e-5} {
	21	puts "Error: bad tolerance of result"
	22	}
	23
	24	checkprops result -s 1750.1 -v 4947.2