[occt.git] / tests / bugs / modalg_2 / bug526

#INTERFACE IGES
puts "========"
puts "OCC526"
puts "========"
puts ""
################################################
## BRepAlgoAPI_Section fails to build planar sections on some faces
################################################

pload XDE

restore [locate_data_file OCC592.brep] a 

set Z 67.599311020481764
plane p 0 0 $Z
psection r1 a p 
if ![regexp VERTEX [statshape r1]] {puts [format "OCC526 FAULTY Z=%f" $Z ] }

set Z 66.599311020481764
plane p 0 0 $Z 
psection r2 a p 
if ![regexp VERTEX [statshape r2]] {puts [format "OCC526 FAULTY Z=%f" $Z ] }

set Z 65.599311020481764
plane p 0 0 $Z 
psection result a p 
if ![regexp VERTEX [statshape result]] {puts [format "OCC526 FAULTY Z=%f" $Z ] }

set length 27.8021
set 2dviewer 1
Commit	Line	Data
352ffd73	1	#INTERFACE IGES
	2	puts "========"
	3	puts "OCC526"
	4	puts "========"
	5	puts ""
	6	################################################
	7	## BRepAlgoAPI_Section fails to build planar sections on some faces
	8	################################################
	9
	10	pload XDE
352ffd73	11
	12	restore [locate_data_file OCC592.brep] a
	13
	14	set Z 67.599311020481764
	15	plane p 0 0 $Z
	16	psection r1 a p
	17	if ![regexp VERTEX [statshape r1]] {puts [format "OCC526 FAULTY Z=%f" $Z ] }
	18
	19	set Z 66.599311020481764
	20	plane p 0 0 $Z
	21	psection r2 a p
	22	if ![regexp VERTEX [statshape r2]] {puts [format "OCC526 FAULTY Z=%f" $Z ] }
	23
	24	set Z 65.599311020481764
	25	plane p 0 0 $Z
	26	psection result a p
	27	if ![regexp VERTEX [statshape result]] {puts [format "OCC526 FAULTY Z=%f" $Z ] }
	28
	29	set length 27.8021
	30	set 2dviewer 1
	31
	32