mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
894dba72a3
The reason of this issue is in incorrectly interpreted the generic class "TheExtPC" (eliminated after the fix 0024773) as Extrema_ExtPC2d. Correct interpretation must be "Extrema_EPCOfExtPC2d" class. Now this problem has been fixed in the class Geom2dGcc_Circ2dTanCenGeo. New testgrid "lowalgos 2dgcc" has been created.
39 lines
1.0 KiB
Plaintext
39 lines
1.0 KiB
Plaintext
puts "========"
|
|
puts "OCC23866"
|
|
puts "========"
|
|
puts ""
|
|
########################################
|
|
# GccAna_Circ2d3Tan does not find a circle
|
|
########################################
|
|
|
|
restore [locate_data_file bug23866_3curves.brep] 3curves
|
|
|
|
explode 3curves
|
|
|
|
mkcurve 3d_curve_1 3curves_1
|
|
mkcurve 3d_curve_2 3curves_2
|
|
mkcurve 3d_curve_3 3curves_3
|
|
|
|
to2d 2d_curve_1 3d_curve_1
|
|
to2d 2d_curve_2 3d_curve_2
|
|
to2d 2d_curve_3 3d_curve_3
|
|
|
|
foreach a [directory cir*] { unset $a }
|
|
cirtang cir -c 2d_curve_1 -c 2d_curve_2 -c 2d_curve_3
|
|
|
|
set circles_Nb [llength [directory cir*] ]
|
|
|
|
if { ${circles_Nb} != 8 } {
|
|
puts "Error: GccAna_Circ2d3Tan does not find a circle"
|
|
} else {
|
|
puts "OK: GccAna_Circ2d3Tan find a circle"
|
|
checklength cir_1 -l 9429.8727947293246
|
|
checklength cir_2 -l 888.65915068757909
|
|
checklength cir_3 -l 8.5227983514817236
|
|
checklength cir_4 -l 6.2260879234386
|
|
checklength cir_5 -l 14054.240322333564
|
|
checklength cir_6 -l 596.25725451268329
|
|
checklength cir_7 -l 7.6941358383928531
|
|
checklength cir_8 -l 6.8966408969867814
|
|
}
|