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
|
puts "========"
puts "CR26351"
puts "========"
puts ""
#######################################################################
# Wrong result found by the projection algorithm
#######################################################################
restore [locate_data_file bug26351_loire_e.brep] e
# 1
mkcurve c e
set x 167.52026394441
set y -1206.50315237977
set z 0
proj c $x $y $z
regexp {The length ext_12 is +([0-9.+eE]+)} [length ext_12] full l_12
# 2
vertex v $x $y $z
vertex vc 48135.477492688588 e
distmini d v vc
set distmin [dval d_val]
# Check results
set tol_abs 1.0e-07
set tol_rel 0.01
set expected_l_12 29.450809988644483
set expected_distmin 3.1958945321254297e-12
checkreal "Length l_12" ${l_12} ${expected_l_12} ${tol_abs} ${tol_rel}
checkreal "Minimal distance" ${distmin} ${expected_distmin} ${tol_abs} ${tol_rel}
|
