[occt.git] / tests / bugs / modalg_5 / bug25828_5

puts "========"
puts "OCC25828"
puts "========"
puts ""
##########################################
## BRepAlgoAPI_Section fails for a solid and a face depending on order of arguments
##########################################

set BugNumber OCC25828

restore [locate_data_file bug25828_intersectionproblem.brep] b

explode b
copy b_1 b1
copy b_2 b2
 
explode b1 f
copy b1_1 b1
explode b2 f
copy b2_6 b2
 
mksurface s1 b1
mksurface s2 b2
 
trim s2 s2 -31.464272161690925 31.464272161690968 -21.228551512037676 26.343858939611884
 
set log [intersect rr s1 s2 2.0e-7]

set ll [llength ${log}]

if {${ll} == 1} {
    puts "${BugNumber} OK"
} else {
    puts "Error ${BugNumber}"
}

smallview
donly rr
fit

checkview -screenshot -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
c8187bb2	1	puts "========"
	2	puts "OCC25828"
	3	puts "========"
	4	puts ""
	5	##########################################
	6	## BRepAlgoAPI_Section fails for a solid and a face depending on order of arguments
	7	##########################################
	8
	9	set BugNumber OCC25828
	10
	11	restore [locate_data_file bug25828_intersectionproblem.brep] b
	12
	13	explode b
	14	copy b_1 b1
	15	copy b_2 b2
	16
	17	explode b1 f
	18	copy b1_1 b1
	19	explode b2 f
	20	copy b2_6 b2
	21
	22	mksurface s1 b1
	23	mksurface s2 b2
	24
	25	trim s2 s2 -31.464272161690925 31.464272161690968 -21.228551512037676 26.343858939611884
	26
	27	set log [intersect rr s1 s2 2.0e-7]
	28
	29	set ll [llength ${log}]
	30
	31	if {${ll} == 1} {
	32	puts "${BugNumber} OK"
	33	} else {
	34	puts "Error ${BugNumber}"
	35	}
	36
	37	smallview
	38	donly rr
	39	fit
	40
5747059b	41	checkview -screenshot -2d -path ${imagedir}/${test_image}.png