5 ######################################
6 ## Wrong 3d point from offset surface by parameters
7 ######################################
9 restore [locate_data_file OCC498.draw] su
11 set u1 4.71238898038469
12 set u2 7.85398163397449
14 svalue su 0 $u1 x1 y1 z1
17 svalue su 0 $u2 x2 y2 z2
20 set newU1 [expr $u1 - 1e-11]
21 set newU2 [expr $u2 + 1e-11]
23 svalue su 0 $newU1 x1 y1 z1
26 svalue su 0 $newU2 x2 y2 z2
30 regexp {([-0-9.+eE]+)} [dump d_val] full err1
33 regexp {([-0-9.+eE]+)} [dump d_val] full err2
35 if { $err1 > 1.e-7 || $err2 > 1.e-7} {
36 puts "Faulty OCC498: Wrong 3d point from offset surface by parameters "
38 puts "OCC498 OK: Correct 3d point from offset surface by parameters"