a87752f3 |
1 | puts "TODO OCC12345 ALL: Faulty OCC286: Attempt to project the point on surface gives wrong result." |
2 | puts "========================" |
3 | puts " OCC286 " |
4 | puts "========================" |
5 | puts "" |
6 | |
7 | restore [locate_data_file OCC286a.draw] a |
8 | restore [locate_data_file OCC286b.draw] b |
9 | |
10 | intersect i a b |
11 | cvalue i 0.31 x y z |
12 | point p x y z |
13 | proj b x y z |
14 | |
15 | set err1 "" |
16 | set err2 "" |
17 | set err3 "" |
18 | regexp {Point +: +([-0-9.+eE]+, +[-0-9.+eE]+, +[-0-9.+eE]+)} [dump ext_1] full err1 |
19 | regexp {Point +: +([-0-9.+eE]+, +[-0-9.+eE]+, +[-0-9.+eE]+)} [dump ext_2] full err2 |
20 | regexp {Point +: +([-0-9.+eE]+, +[-0-9.+eE]+, +[-0-9.+eE]+)} [dump ext_3] full err3 |
21 | |
22 | if { $err1 == $err2 || $err1 == $err3 || $err2 == $err3 } { |
23 | puts "Faulty OCC286: Attempt to project the point on surface gives wrong result." |
24 | } else { |
25 | puts "OCC286 OK : Attempt to project the point on surface gives correct result" |
26 | } |
27 | |
28 | set 2dviewer 0 |