1 puts "========================"
3 puts "========================"
5 #######################################
6 ## Projection for a point on a surface works wrong
7 #######################################
9 restore [locate_data_file OCC429a.draw] a
10 restore [locate_data_file OCC429b.draw] b
14 cvalue i_2 0.43213918 x y z
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]
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"
28 puts "Faulty OCC429 : Attempt to project the point on surface gives incorrect result"