352ffd73 |
1 | |
2 | puts "=========" |
3 | puts " OCC943 " |
4 | puts "(case 2)" |
5 | puts "=========" |
6 | puts "" |
7 | ######################################################### |
8 | ## distinace between projection and initial point in dev version is larger then in C40. |
9 | ######################################################### |
10 | |
11 | restore [locate_data_file OCC943_2.draw] su |
12 | |
13 | set X 5.759527537723098 |
14 | set Y 31.81368637070151 |
15 | set Z -0.2989616405627145 |
16 | |
17 | vertex v $X $Y $Z |
18 | proj su $X $Y $Z |
19 | |
20 | regexp {Parameters +: +[-0-9.+eE]+ +([-0-9.+eE]+)} [dump ext_1] full resV |
21 | |
22 | cvalue ext_1 $resV cx cy cz |
23 | vertex V cx cy cz |
24 | distmini d V v |
25 | |
26 | regexp {([-0-9.+eE]+)$} [dump d_val] full res |
27 | |
28 | set res_good 1.108e-05 |
29 | |
30 | if { $res > $res_good } { |
31 | puts "" |
32 | puts "Faulty OCC493 (case 2)" |
33 | } else { |
34 | puts "" |
35 | puts " OCC493 (case 2) OK" |
36 | } |