7 #########################################################
8 ## distinace between projection and initial point in dev version is larger then in C40.
9 #########################################################
11 restore [locate_data_file OCC943_2.draw] su
13 set X 5.759527537723098
14 set Y 31.81368637070151
15 set Z -0.2989616405627145
20 regexp {Parameters +: +[-0-9.+eE]+ +([-0-9.+eE]+)} [dump ext_1] full resV
22 cvalue ext_1 $resV cx cy cz
26 regexp {([-0-9.+eE]+)$} [dump d_val] full res
28 set res_good 1.108e-05
30 if { $res > $res_good } {
32 puts "Faulty OCC493 (case 2)"
35 puts " OCC493 (case 2) OK"