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