mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-07-13 06:37:18 +08: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
37 lines
736 B
Plaintext
Executable File
37 lines
736 B
Plaintext
Executable File
puts "================"
|
|
puts "BUC61047"
|
|
puts "OCC344"
|
|
puts "================"
|
|
puts ""
|
|
|
|
#############################################
|
|
## An exception - <access violation> is raised during visualization.
|
|
#############################################
|
|
|
|
restore [locate_data_file OCC344.brep] result
|
|
puts [checkshape result]
|
|
tclean result
|
|
|
|
vinit
|
|
vdisplay result
|
|
vsetdispmode result 1
|
|
vfit
|
|
vclear
|
|
isos result 0
|
|
triangles result
|
|
|
|
set info [trinfo result]
|
|
regexp { +([-0-9.+eE]+) +triangles} $info full tri
|
|
regexp { +([-0-9.+eE]+) +nodes} $info full nod
|
|
|
|
if { $tri == 9 && $nod == 8 } {
|
|
puts "Warning OCC344: here is shading problem"
|
|
} else {
|
|
puts "Shading of OCC344 looks like OK, but visual checking is required"
|
|
}
|
|
|
|
set 3dviewer 1
|
|
|
|
|
|
|