mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-05-11 01:58:22 +08:00
1d19db8dad
1. Unification of the polygons creation (it is regardless of arguments order).
2. Output of 2dintersect DRAW-command was changed.
3. Geom2dGcc_Circ2d2TanRadGeo.cxx:
Precise intersection point found by Extrema Curve-Curve method (dot product between every tangent vector and vector between points on two curves must be equal to zero).
4. Some comments have been translated from French to English.
Some test case have been updated.
Changes in accordance with the last remark
Test case for issue CR25593
37 lines
1.2 KiB
Plaintext
Executable File
37 lines
1.2 KiB
Plaintext
Executable File
#INTERFACE IGES
|
|
puts "========"
|
|
puts "OCC714"
|
|
puts "========"
|
|
puts ""
|
|
####################################################
|
|
## After command sew in DRAW on attached shape free wires are disappeared.
|
|
####################################################
|
|
|
|
puts "TODO OCC25593 ALL: Faulty shapes in variables faulty_1 to faulty_4"
|
|
|
|
restore [locate_data_file OCC714.brep] a
|
|
checkshape a
|
|
|
|
set nb_info1 [nbshapes a]
|
|
regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info1 full ve1
|
|
regexp {EDGE +: +([-0-9.+eE]+)} $nb_info1 full ed1
|
|
regexp {WIRE +: +([-0-9.+eE]+)} $nb_info1 full we1
|
|
|
|
sewing result 0.1 a
|
|
|
|
set nb_info2 [nbshapes a]
|
|
regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info2 full ve2
|
|
regexp {EDGE +: +([-0-9.+eE]+)} $nb_info2 full ed2
|
|
regexp {WIRE +: +([-0-9.+eE]+)} $nb_info2 full we2
|
|
|
|
if { $ve1 != $ve2 || $ed1 != $ed2 || $we1 != $we2} {
|
|
puts [format "Faulty OCC714 : SEWING operation was made WRONGLY: vertexes before %s, edges before %s, wires before %s" $ve1 $ed1 $we1]
|
|
puts [format " vertexes after %s, edges after %s, wires after %s" $ve1 $ed1 $we1]
|
|
} else {
|
|
puts "OK OCC714: SEWING operation was made PROPERLY"
|
|
}
|
|
|
|
set square 12917.1
|
|
set 2dviewer 0
|
|
|