1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-07-30 13:05:50 +03:00
occt/tests/bugs/vis/bug23407_1
apn f1aa2b6272 Adding new testing cases for chl grid
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
2012-12-14 16:56:11 +04:00

39 lines
721 B
Plaintext
Executable File

puts "============"
puts "CR23407"
puts "============"
puts ""
#######################################################################
# Draw face outlines for XDE objects
#######################################################################
pload QAcommands
pload XDEDRAW
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 x_coord 178
set y_coord 36
checkcolor $x_coord $y_coord 1 0 0
if { $stat != 1 } {
puts "Error : Boundary of face is not changed"
}
set x_coord 244
set y_coord 89
checkcolor $x_coord $y_coord 1 0 0
if { $stat != 01} {
puts "Error : Boundary of face is not changed"
}
set only_screen 1