mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-05-10 17:40:24 +08:00
27 lines
576 B
Plaintext
27 lines
576 B
Plaintext
pload QAcommands
|
|
|
|
puts "============"
|
|
puts "OCC8169"
|
|
puts "============"
|
|
puts ""
|
|
#######################################################################
|
|
# Wrong Geom2dAPI_InterCurveCurve segment
|
|
#######################################################################
|
|
|
|
set BugNumber OCC6768
|
|
|
|
restore [locate_data_file OCC8169_1.brep] e1
|
|
restore [locate_data_file OCC8169_2.brep] e2
|
|
|
|
plane p 0 0 500 0 0 1 1 0 0
|
|
dump p
|
|
mkface result p
|
|
|
|
if { [regexp {Faulty} [OCC8169 e1 e2 result]] == 0 } {
|
|
puts "OK ${BugNumber}"
|
|
} else {
|
|
puts "Faulty ${BugNumber}"
|
|
}
|
|
|
|
set 2dviewer 0
|