mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
46 lines
1.4 KiB
Plaintext
46 lines
1.4 KiB
Plaintext
puts "============"
|
|
puts "0024657: 2dintersect returns different number of intersect points"
|
|
puts "==========="
|
|
puts ""
|
|
|
|
restore [locate_data_file bug24657.brep] a
|
|
|
|
explode a e
|
|
|
|
# Initialize two 2d pcurves
|
|
pcurve p4 a_4 a
|
|
pcurve p5 a_5 a
|
|
|
|
# Receive an output strings of the intersection operation
|
|
set inter1 [2dintersect p4 p5 -tol 1.e-7]
|
|
set inter2 [2dintersect p5 p4 -tol 1.e-7]
|
|
|
|
# Check if the number of intersections is equal to 1
|
|
set int1 [regexp -all {Intersection point} ${inter1}]
|
|
set int2 [regexp -all {Intersection point} ${inter2}]
|
|
|
|
if { ${int1} != ${int2} || ${int1} != 1} {
|
|
puts "Error : The intersection points number is different!"
|
|
}
|
|
|
|
# Verify the coordinates of the intersection points
|
|
regexp -all {Intersection point 1 : ([-0-9.+eE]+) ([-0-9.+eE]+)} $inter1 full x1 y1
|
|
regexp -all {Intersection point 1 : ([-0-9.+eE]+) ([-0-9.+eE]+)} $inter2 full x2 y2
|
|
if { [expr abs($x1 - $x2)] > 1.e-7 || [expr abs($y1 - $y2) ] > 1.e-7} {
|
|
puts "Error : The intersection points do not match!"
|
|
}
|
|
|
|
regexp -all {parameter on the fist: ([-0-9.+eE]+) parameter on the second: ([-0-9.+eE]+)} $inter1 full par11 par12
|
|
regexp -all {parameter on the fist: ([-0-9.+eE]+) parameter on the second: ([-0-9.+eE]+)} $inter2 full par21 par22
|
|
|
|
if { [expr abs($par11 - $par22)] > 1.e-7 || [expr abs($par21 - $par12) ] > 1.e-7} {
|
|
puts "Error : The intersection points parameters do not match!"
|
|
}
|
|
|
|
#v2d2
|
|
view 1 -2D- 728 20 400 400
|
|
|
|
2dfit
|
|
|
|
xwd ${imagedir}/${test_image}.png
|