mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
352ffd7358
Test case tests/bugs/modalg/dxf906 was renamed to bug889 Adding test cases to tests/bugs/moddata Modified expressions puts [checkshape result]. Added command vzfit in end file in folder bugs. Unlocked command coordload in QABugs_3.cxx Modified test case bugs vis buc60738 Added test cases to modalg and moddata Added test cases to caf and fclasses Added test cases to group heal
58 lines
1.1 KiB
Plaintext
Executable File
58 lines
1.1 KiB
Plaintext
Executable File
puts "============"
|
|
puts "CR22888"
|
|
puts "============"
|
|
puts ""
|
|
#######################################################################
|
|
# Wrong shape result imported from IGES file
|
|
#######################################################################
|
|
pload QAcommands
|
|
|
|
set x1 166
|
|
set y1 225
|
|
|
|
igesread [locate_data_file CR22888-data.igs] a *
|
|
if { [regexp "This shape seems to be valid" [checkshape a]] != 1 } {
|
|
puts "Error : checkshape is faulty"
|
|
}
|
|
|
|
explode a f
|
|
vinit
|
|
vsetdispmode 0
|
|
vdisplay a_1
|
|
vfit
|
|
vzfit
|
|
tclean a_1
|
|
set inf_before [trinfo a_1]
|
|
|
|
vsetdispmode a_1 1
|
|
set inf_after [trinfo a_1]
|
|
regexp { +([-0-9.+eE]+) +triangles} $inf_after full tri_after
|
|
regexp { +([-0-9.+eE]+) +nodes} $inf_after full nod_after
|
|
|
|
set color [QAGetPixelColor ${x1} ${y1}]
|
|
regexp {RED +: +([-0-9.+eE]+)} $color full rd
|
|
regexp {GREEN +: +([-0-9.+eE]+)} $color full gr
|
|
regexp {BLUE +: +([-0-9.+eE]+)} $color full bl
|
|
|
|
if { $rd == 0 || $gr == 0 || $bl == 0 } {
|
|
puts "Error : Face is not shaded (colors are not equal)"
|
|
}
|
|
|
|
if { $tri_after <= 0 || $nod_after <= 0 } {
|
|
puts "Error : Face is not shaded (number of nodes or triangles is wrong)"
|
|
}
|
|
|
|
set CR22888_draw 1
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|