[occt.git] / tests / bugs / moddata_1 / bug12


puts "================"
puts "OCC12"
puts "================"
puts ""

restore [locate_data_file OCC12.brep] f 
checkshape f

mksurface su f
clpoles su
emptycopy f1 f
vertex v 0 -170.63226587036002 82.2373635024
don su v
distmini d1 v f1
if [expr [dval d1_val] > 0.01] {
    set res "failed"
    puts "Error : Result is incorrect"
} else { 
  set res "OK"
}
puts "Info: test $res, distance=[dval d1_val]"
Commit	Line	Data
0e94a94e	1
	2	puts "================"
	3	puts "OCC12"
	4	puts "================"
	5	puts ""
	6
	7	restore [locate_data_file OCC12.brep] f
352ffd73	8	checkshape f
0e94a94e	9
	10	mksurface su f
	11	clpoles su
	12	emptycopy f1 f
	13	vertex v 0 -170.63226587036002 82.2373635024
	14	don su v
	15	distmini d1 v f1
	16	if [expr [dval d1_val] > 0.01] {
	17	set res "failed"
	18	puts "Error : Result is incorrect"
	19	} else {
	20	set res "OK"
	21	}
	22	puts "Info: test $res, distance=[dval d1_val]"
	23