mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-08-29 14:00:49 +03:00
0032470: Modeling Algorithms - BOP wrong result on sphere and box
Correct adjusting pcurves on periodic surfaces: take the middle point as a reference point.
This commit is contained in:
@@ -17,6 +17,38 @@ trim c2 c pi 2.*pi
|
||||
project c2d1 c1 s
|
||||
project c2d2 c2 s
|
||||
|
||||
2dcvalue c2d1 0 x1 y1
|
||||
2dcvalue c2d1 pi x2 y2
|
||||
2dcvalue c2d2 pi x3 y3
|
||||
2dcvalue c2d2 2*pi x4 y4
|
||||
|
||||
set tol 1.e-9
|
||||
|
||||
if {[expr abs([dval x1]) - 4.7123885383825099] > $tol} {
|
||||
puts "Error: Wrong projection in 2D"
|
||||
}
|
||||
if {[expr abs([dval y1]) - 1.5707963267948966] > $tol} {
|
||||
puts "Error: Wrong projection in 2D"
|
||||
}
|
||||
if {[expr abs([dval x2]) - 6.2831853071795862] > $tol} {
|
||||
puts "Error: Wrong projection in 2D"
|
||||
}
|
||||
if {[expr abs(-1.2217304763960311 - [dval y2])] > $tol} {
|
||||
puts "Error: Wrong projection in 2D"
|
||||
}
|
||||
if {[expr abs([dval x3])] > $tol} {
|
||||
puts "Error: Wrong projection in 2D"
|
||||
}
|
||||
if {[expr abs(-1.2217304763960311 - [dval y3])] > $tol} {
|
||||
puts "Error: Wrong projection in 2D"
|
||||
}
|
||||
if {[expr abs([dval x4]) - 1.5707967687970734] > $tol} {
|
||||
puts "Error: Wrong projection in 2D"
|
||||
}
|
||||
if {[expr abs([dval y4]) - 1.5707963267948948] > $tol} {
|
||||
puts "Error: Wrong projection in 2D"
|
||||
}
|
||||
|
||||
checklength c2d1 -l 3.68009
|
||||
checklength c2d2 -l 3.68009
|
||||
|
||||
|
Reference in New Issue
Block a user