mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
27 lines
543 B
Plaintext
Executable File
27 lines
543 B
Plaintext
Executable File
puts "============"
|
|
puts "CR24873"
|
|
puts "============"
|
|
puts ""
|
|
##########################################################################################################
|
|
# Draw Harness, ViewerTest - add command vbounding to show presentation bounding box
|
|
##########################################################################################################
|
|
|
|
pload QAcommands
|
|
|
|
vinit View1
|
|
vclear
|
|
vaxo
|
|
vsetdispmode 1
|
|
|
|
psphere s 2
|
|
vdisplay s
|
|
vfit
|
|
|
|
vbounding s
|
|
|
|
set x 378
|
|
set y 102
|
|
checkcolor $x $y 1 1 1
|
|
|
|
vdump ${imagedir}/${test_image}.png
|