
puts "========="
puts " OCC943 "
puts "(case 2)"
puts "========="
puts ""
#########################################################
## distinace between projection and initial point in dev version is larger then in C40.
#########################################################

restore [locate_data_file OCC943_2.draw] su 

set X 5.759527537723098 
set Y 31.81368637070151
set Z -0.2989616405627145

vertex v $X $Y $Z
proj su $X $Y $Z

regexp {Parameters +: +[-0-9.+eE]+ +([-0-9.+eE]+)} [dump ext_1] full resV

cvalue ext_1 $resV cx cy cz
vertex V cx cy cz
distmini d V v

regexp {([-0-9.+eE]+)$} [dump d_val] full res

set res_good 1.108e-05

if { $res > $res_good } {
    puts ""
    puts "Faulty OCC493 (case 2)"
} else {
    puts ""
    puts " OCC493 (case 2) OK"
}
