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


puts "========"                                                                 
puts "OCC442"
puts "========"                                                                 
puts ""                                                                         
########################################################
## The Revolution Algo produces result, but during check using IsValid method from
##  BRepAlgoAPI the exception is raised
########################################################

restore [locate_data_file OCC442.brep] a 
checkshape a

explode a v

mkpoint p_1 a_1
mkpoint p_2 a_3
coord p_1 x1 y1 z1
coord p_2 x2 y2 z2
set ax [dval x1]
set ay [dval y1]
set az [dval z1]
set bx [dval x2]
set by [dval y2]
set bz [dval z2]
set dx [expr $ax - $bx]
set dy [expr $ay - $by]
set dz [expr $az - $bz]

revol result a $ax $ay $az $dx $dy $dz 360

set square 692942
set 2dviewer 0
Commit	Line	Data
0e94a94e	1
	2	puts "========"
	3	puts "OCC442"
	4	puts "========"
	5	puts ""
	6	########################################################
	7	## The Revolution Algo produces result, but during check using IsValid method from
	8	## BRepAlgoAPI the exception is raised
	9	########################################################
	10
	11	restore [locate_data_file OCC442.brep] a
352ffd73	12	checkshape a
0e94a94e	13
	14	explode a v
	15
	16	mkpoint p_1 a_1
	17	mkpoint p_2 a_3
	18	coord p_1 x1 y1 z1
	19	coord p_2 x2 y2 z2
	20	set ax [dval x1]
	21	set ay [dval y1]
	22	set az [dval z1]
	23	set bx [dval x2]
	24	set by [dval y2]
	25	set bz [dval z2]
	26	set dx [expr $ax - $bx]
	27	set dy [expr $ay - $by]
	28	set dz [expr $az - $bz]
	29
	30	revol result a $ax $ay $az $dx $dy $dz 360
	31
	32	set square 692942
	33	set 2dviewer 0