mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-07-25 12:55:50 +03:00
f1aa2b6272
Adding procedures checkcolor and checkpoint. Modified test cases which are used QAGetPixelColor or QAAISGetPixelColor2d Allow using command QAAISGetPixelColor2d on WNT Rename test case tests/bugs/vis/bug19619 to pro19619 Added test cases to modalg and moddata
35 lines
1.1 KiB
Plaintext
Executable File
35 lines
1.1 KiB
Plaintext
Executable File
#INTERFACE IGES
|
|
puts "========"
|
|
puts "OCC714"
|
|
puts "========"
|
|
puts ""
|
|
####################################################
|
|
## After command sew in DRAW on attached shape free wires are disappeared.
|
|
####################################################
|
|
|
|
restore [locate_data_file OCC714.brep] a
|
|
puts [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
|
|
|