mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
31 lines
648 B
Plaintext
31 lines
648 B
Plaintext
puts "============"
|
|
puts "OCC23709"
|
|
puts "============"
|
|
puts ""
|
|
############################################################################
|
|
# Redesign of hlrtest command
|
|
############################################################################
|
|
|
|
pcone a 5 0 10
|
|
box b 15 0 0 10 10 10
|
|
vinit
|
|
vdisplay a
|
|
vdisplay b
|
|
vrotate 35 0 0
|
|
vfit
|
|
vhlr on
|
|
vhlrtype polyalgo b
|
|
|
|
set x_coord 290
|
|
set y_coord 170
|
|
vaspects -setwidth 5
|
|
if { "[vreadpixel $x_coord $y_coord rgb name]" != "YELLOW" } {
|
|
puts "Error : color is not yellow"
|
|
}
|
|
|
|
set x_coord 86
|
|
set y_coord 221
|
|
checkcolor $x_coord $y_coord 0 0 0
|
|
|
|
checkview -screenshot -3d -path ${imagedir}/${test_image}.png
|