mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
351bbcba7e
Duplicated data files are removed. New command testfile added for automation of analysis of the new data files before adding to the data base.
61 lines
1.5 KiB
Plaintext
Executable File
61 lines
1.5 KiB
Plaintext
Executable File
puts "============"
|
|
puts "CR23407"
|
|
puts "============"
|
|
puts ""
|
|
#######################################################################
|
|
# Draw face outlines for XDE objects
|
|
#######################################################################
|
|
pload QAcommands
|
|
pload XDEDRAW
|
|
|
|
set r_check 1
|
|
set g_check 0
|
|
set b_check 0
|
|
set x1 178
|
|
set y1 36
|
|
set x2 224
|
|
set y2 39
|
|
set x3 244
|
|
set y3 89
|
|
|
|
XNewDoc Doc1
|
|
ReadStep Doc1 [locate_data_file screw.step]
|
|
XShow Doc1 0:1:1:1
|
|
XShowFaceBoundary Doc1 0:1:1:1 1 255 0 0 10 1
|
|
vfit
|
|
vsetdispmode 1
|
|
|
|
set color1 [ QAGetPixelColor ${x1} ${y1} ]
|
|
regexp {RED +: +([-0-9.+eE]+)} $color1 full rd1
|
|
regexp {GREEN +: +([-0-9.+eE]+)} $color1 full gr1
|
|
regexp {BLUE +: +([-0-9.+eE]+)} $color1 full bl1
|
|
set status1 0
|
|
if { $rd1 != $r_check || $gr1 != $g_check || $bl1 != $b_check } {
|
|
set status1 1
|
|
}
|
|
|
|
set color2 [ QAGetPixelColor ${x2} ${y2} ]
|
|
regexp {RED +: +([-0-9.+eE]+)} $color2 full rd2
|
|
regexp {GREEN +: +([-0-9.+eE]+)} $color2 full gr2
|
|
regexp {BLUE +: +([-0-9.+eE]+)} $color2 full bl2
|
|
set status2 0
|
|
if { $rd2 != $r_check || $gr2 != $g_check || $bl2 != $b_check } {
|
|
set status2 1
|
|
}
|
|
|
|
set color3 [ QAGetPixelColor ${x3} ${y3} ]
|
|
regexp {RED +: +([-0-9.+eE]+)} $color3 full rd3
|
|
regexp {GREEN +: +([-0-9.+eE]+)} $color3 full gr3
|
|
regexp {BLUE +: +([-0-9.+eE]+)} $color3 full bl3
|
|
set status3 0
|
|
if { $rd3 != $r_check || $gr3 != $g_check || $bl3 != $b_check } {
|
|
set status3 1
|
|
}
|
|
|
|
if { $status1 != 0 && $status2 != 0 && $status3 != 0 } {
|
|
puts "Error : color are not equal"
|
|
puts "Error : Boundary of face is not changed"
|
|
}
|
|
|
|
set 3dviewer 2
|