mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-05 18:16:23 +03:00
a8676008f7
Splitting of subgroups bugs/modalg and bugs/moddata to optimise time of testing Correction of end file in group v3d Small correction of test case
49 lines
958 B
Plaintext
Executable File
49 lines
958 B
Plaintext
Executable File
puts "TODO OCC12345 ALL: Faulty OCC498: Wrong 3d point from offset surface by parameters"
|
|
|
|
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"
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|