Restoring test cases removed by last commit.
[occt.git] / tests / bugs / moddata / bug498
1 puts "TODO OCC12345 ALL: Faulty OCC498: Wrong 3d point from offset surface by parameters"
2
3 puts "========="
4 puts " OCC498 "
5 puts "========="
6 puts ""
7 ######################################
8 ## Wrong 3d point from offset surface by parameters 
9 ######################################
10
11 restore [locate_data_file OCC498.draw] su 
12
13 set u1 4.71238898038469
14 set u2 7.85398163397449
15  
16 svalue su 0 $u1 x1 y1 z1
17 vertex v1 x1 y1 z1
18
19 svalue su 0 $u2 x2 y2 z2
20 vertex v2 x2 y2 z2
21
22 set newU1 [expr $u1 - 1e-11]
23 set newU2 [expr $u2 + 1e-11]
24
25 svalue su 0 $newU1 x1 y1 z1
26 vertex vv1 x1 y1 z1
27
28 svalue su 0 $newU2 x2 y2 z2
29 vertex vv2 x2 y2 z2
30
31 distmini d v1 vv1
32 regexp {([-0-9.+eE]+)} [dump d_val] full err1
33
34 distmini d v2 vv2
35 regexp {([-0-9.+eE]+)} [dump d_val] full err2
36
37 if { $err1 > 1.e-7 || $err2 > 1.e-7} {
38     puts "Faulty OCC498: Wrong 3d point from offset surface by parameters "
39 } else {
40     puts "OCC498 OK: Correct 3d point from offset surface by parameters"
41 }
42
43
44
45
46
47
48