Loading files
This file is pinned to the selected release. Download the original to open it in your design tool.
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]"
3d097a032This file is pinned to the selected release. Download the original to open it in your design tool.