a87752f3 |
1 | puts "========================" |
2 | puts " OCC429 " |
3 | puts "========================" |
4 | puts "" |
5 | ####################################### |
6 | ## Projection for a point on a surface works wrong |
7 | ####################################### |
8 | |
9 | restore [locate_data_file OCC429a.draw] a |
10 | restore [locate_data_file OCC429b.draw] b |
11 | |
12 | intersect i a b |
13 | |
14 | cvalue i_2 0.43213918 x y z |
15 | point p x y z |
16 | proj b x y z |
17 | |
18 | set err1 [string range [dump ext_1] 55 64] |
19 | set err2 [string range [dump ext_2] 55 64] |
20 | set err3 [string range [dump ext_3] 55 64] |
21 | set err4 [string range [dump ext_4] 55 64] |
22 | set err5 [string range [dump ext_5] 55 64] |
23 | set err6 [string range [dump ext_6] 55 64] |
24 | |
25 | if { $err1 != "Parameters" || $err2 != "Parameters" || $err3 != "Parameters" || $err4 != "Parameters" || $err5 != "Parameters" || $err6 != "Parameters" } { |
26 | puts " OCC286 OK : Projection for a point on a surface works properly" |
27 | } else { |
28 | puts "Faulty OCC429 : Attempt to project the point on surface gives incorrect result" |
29 | } |
30 | |
5747059b |
31 | checkview -display result -2d -path ${imagedir}/${test_image}.png |
a87752f3 |
32 | |