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
|
puts "TODO OCC12345 ALL: Faulty OCC286: Attempt to project the point on surface gives wrong result."
puts "========================"
puts " OCC286 "
puts "========================"
puts ""
restore [locate_data_file OCC286a.draw] a
restore [locate_data_file OCC286b.draw] b
intersect i a b
cvalue i 0.31 x y z
point p x y z
proj b x y z
set err1 ""
set err2 ""
set err3 ""
regexp {Point +: +([-0-9.+eE]+, +[-0-9.+eE]+, +[-0-9.+eE]+)} [dump ext_1] full err1
regexp {Point +: +([-0-9.+eE]+, +[-0-9.+eE]+, +[-0-9.+eE]+)} [dump ext_2] full err2
regexp {Point +: +([-0-9.+eE]+, +[-0-9.+eE]+, +[-0-9.+eE]+)} [dump ext_3] full err3
if { $err1 == $err2 || $err1 == $err3 || $err2 == $err3 } {
puts "Faulty OCC286: Attempt to project the point on surface gives wrong result."
} else {
puts "OCC286 OK : Attempt to project the point on surface gives correct result"
}
set 2dviewer 0
|
