mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-05 18:16:23 +03:00
44 lines
1.1 KiB
Plaintext
44 lines
1.1 KiB
Plaintext
puts "================"
|
|
puts "OCC23176"
|
|
puts "================"
|
|
puts ""
|
|
#######################################################################
|
|
# Intersection of cylinder and cone produces open curve
|
|
#######################################################################
|
|
|
|
restore [locate_data_file bug23176_surface1_draw.draw] s1
|
|
restore [locate_data_file bug23176_surface2_draw.draw] s2
|
|
|
|
intersect result s1 s2
|
|
|
|
# first result curve
|
|
cvalue result_1 0 x y z
|
|
vertex v0 x y z
|
|
cvalue result_1 1 x y z
|
|
vertex v1 x y z
|
|
|
|
# second result curve
|
|
cvalue result_2 0 x y z
|
|
vertex v2 x y z
|
|
cvalue result_2 1 x y z
|
|
vertex v3 x y z
|
|
|
|
set tol_abs_dist 1.0e-7
|
|
set tol_rel_dist 0.001
|
|
|
|
distmini d_f v0 v1
|
|
regexp {([-0-9.+eE]+)} [dump d_f_val] full dist_1
|
|
set expected_dist_1 408.093320004435
|
|
checkreal "Length first curve" ${dist_1} ${expected_dist_1} ${tol_abs_dist} ${tol_rel_dist}
|
|
|
|
distmini d_s v2 v3
|
|
regexp {([-0-9.+eE]+)} [dump d_s_val] full dist_2
|
|
set expected_dist_2 408.093320004435
|
|
checkreal "Length second curve" ${dist_2} ${expected_dist_2} ${tol_abs_dist} ${tol_rel_dist}
|
|
|
|
smallview
|
|
donly result*
|
|
fit
|
|
display s1 s2
|
|
checkview -screenshot -2d -path ${imagedir}/${test_image}.png
|