[occt.git] / tests / bugs / modalg / bug60849


puts "============"
puts "BUC60849"
puts "============"
puts ""

restore [locate_data_file BUC60849.brep] result
puts [checkshape result]

set bndb [ lindex [bounding result] 3 ]

if { $bndb  > 100.000001 } {
    puts "Faulty BUC60849 : Bounding box of spherical surface is created wroughly."
} else {
    puts "BUC60849 OK :Bounding box of spherical surface is created properly."
}
set square 125663
set 3dviewer 2
Commit	Line	Data
0e94a94e	1
	2	puts "============"
	3	puts "BUC60849"
	4	puts "============"
	5	puts ""
	6
	7	restore [locate_data_file BUC60849.brep] result
	8	puts [checkshape result]
	9
	10	set bndb [ lindex [bounding result] 3 ]
	11
	12	if { $bndb > 100.000001 } {
	13	puts "Faulty BUC60849 : Bounding box of spherical surface is created wroughly."
	14	} else {
	15	puts "BUC60849 OK :Bounding box of spherical surface is created properly."
	16	}
	17	set square 125663
	18	set 3dviewer 2