mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
db91484119
Changed analytical Sphere/Line and Cylinder/Line extrema algorithms. Now they search perpendicular and intersection points. Test cases added.
42 lines
1.3 KiB
Plaintext
42 lines
1.3 KiB
Plaintext
puts "=========="
|
|
puts "OCC25368"
|
|
puts "=========="
|
|
puts ""
|
|
################################################
|
|
# BREPExtrma DistShapeShape gives wrong result for Sphere and Line
|
|
################################################
|
|
|
|
sphere s 0 0 0 4.5
|
|
rotate s 0 0.5 1 1 1 0.5 34.9
|
|
line l -0.79 0.88 1.22 0.579 1.765 0.576
|
|
|
|
set extrema_res [extrema l s]
|
|
set extrema_length [llength ${extrema_res} ]
|
|
|
|
# Amount check
|
|
if {${extrema_length} != 18 } {
|
|
puts "Error: expected only two lines as result of extrema!"
|
|
}
|
|
|
|
# Distance check on ext_1
|
|
set info [dump ext_1]
|
|
regexp {Extrema 1 is point : +([-0-9.+eE]+) +([-0-9.+eE]+) +([-0-9.+eE]+)} $extrema_res full x1 y1 z1
|
|
# Point check
|
|
set good_x1 -2.2838350838816694
|
|
set good_y1 -3.6737459810900646
|
|
set good_z1 -0.2660950057268425
|
|
checkreal "Intersection point x:" ${x1} ${good_x1} 0.01 0.01
|
|
checkreal "Intersection point y:" ${y1} ${good_y1} 0.01 0.01
|
|
checkreal "Intersection point z:" ${z1} ${good_z1} 0.01 0.01
|
|
|
|
|
|
# Distance check on ext_2
|
|
regexp {Extrema 2 is point : +([-0-9.+eE]+) +([-0-9.+eE]+) +([-0-9.+eE]+)} $extrema_res full x2 y2 z2
|
|
# Point check
|
|
set good_x2 0.29086178559218934
|
|
set good_y2 4.1748550113475211
|
|
set good_z2 2.2952614654595873
|
|
checkreal "Intersection point x:" ${x2} ${good_x2} 0.01 0.01
|
|
checkreal "Intersection point y:" ${y2} ${good_y2} 0.01 0.01
|
|
checkreal "Intersection point z:" ${z2} ${good_z2} 0.01 0.01
|