[occt.git] / tests / bugs / moddata / bug271


puts "========================"
puts " OCC271 "
puts "========================"
puts ""

restore [locate_data_file OCC271a.rle] su1 
restore [locate_data_file OCC271b.rle] su2

set U1 2.315721254379057e-16
set U2 0.01131870392278708
set V1 226.9760100729095
set V2 203.7283534809051

intersect result su1 su2 $U1 $V1 $U2 $V2

set che [whatis result]

if { ![regexp {3d} $che] || ![regexp {curve} $che]} {
    puts "Faulty OCC271: command INTERSECT works wrongly"
} else {
    puts "OCC271 OK : command INTERSECT works properly"
}

set 2dviewer 0
Commit	Line	Data
a87752f3	1
	2	puts "========================"
	3	puts " OCC271 "
	4	puts "========================"
	5	puts ""
	6
	7	restore [locate_data_file OCC271a.rle] su1
	8	restore [locate_data_file OCC271b.rle] su2
	9
	10	set U1 2.315721254379057e-16
	11	set U2 0.01131870392278708
	12	set V1 226.9760100729095
	13	set V2 203.7283534809051
	14
	15	intersect result su1 su2 $U1 $V1 $U2 $V2
	16
	17	set che [whatis result]
	18
	19	if { ![regexp {3d} $che] \|\| ![regexp {curve} $che]} {
	20	puts "Faulty OCC271: command INTERSECT works wrongly"
	21	} else {
	22	puts "OCC271 OK : command INTERSECT works properly"
	23	}
	24
	25	set 2dviewer 0
	26