mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-05-10 17:40:24 +08:00
ed1d0c88cc
- Fixed inconsistent whitespace and line breaks in comments
- Corrected spelling errors ("witch" → "which", "sprcified" → "specified", "nul" → "null", etc.)
- Improved formatting consistency in documentation comments
26 lines
810 B
Plaintext
26 lines
810 B
Plaintext
puts "================"
|
|
puts "OCC139"
|
|
puts "================"
|
|
puts ""
|
|
#######################################
|
|
## The intersection must be closed. So the curve is wrong.
|
|
#######################################
|
|
|
|
restore [locate_data_file OCC139-1.draw] sh1
|
|
restore [locate_data_file OCC139-2.draw] sh2
|
|
|
|
if { ![catch {intersect result sh1 sh2} catch_result] } {
|
|
puts "OCC139 OK : intersection found"
|
|
regexp { nb alone Vertices : +([-0-9.+eE]+)} [checksection result] full num
|
|
if { $num != 0 } {
|
|
puts "Faulty OCC139: Intersection was made WRONGLY. The curve must be closed ."
|
|
} else {
|
|
puts "OCC139 OK : Intersection command works properly. The curve is closed"
|
|
}
|
|
} else {
|
|
puts "Faulty OCC139 : NO intersection found"
|
|
}
|
|
|
|
checkview -display result -2d -path ${imagedir}/${test_image}.png
|
|
|