Adding test cases from grid chl
[occt.git] / tests / bugs / moddata / bug429
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
31 set 2dviewer 0
32