Restoring test cases removed by last commit.
[occt.git] / tests / bugs / moddata / bug429
CommitLineData
a87752f3 1puts "========================"
2puts " OCC429 "
3puts "========================"
4puts ""
5#######################################
6## Projection for a point on a surface works wrong
7#######################################
8
9restore [locate_data_file OCC429a.draw] a
10restore [locate_data_file OCC429b.draw] b
11
12intersect i a b
13
14cvalue i_2 0.43213918 x y z
15point p x y z
16proj b x y z
17
18set err1 [string range [dump ext_1] 55 64]
19set err2 [string range [dump ext_2] 55 64]
20set err3 [string range [dump ext_3] 55 64]
21set err4 [string range [dump ext_4] 55 64]
22set err5 [string range [dump ext_5] 55 64]
23set err6 [string range [dump ext_6] 55 64]
24
25if { $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
31set 2dviewer 0
32