c2a388f8 |
1 | puts "============" |
2 | puts "CR24873" |
3 | puts "============" |
4 | puts "" |
5 | ########################################################################################################## |
6 | # Draw Harness, ViewerTest - add command vbounding to show presentation bounding box |
7 | ########################################################################################################## |
8 | |
9 | pload QAcommands |
10 | |
11 | vinit View1 |
12 | vclear |
13 | vaxo |
14 | vsetdispmode 1 |
15 | |
16 | psphere s 2 |
17 | vdisplay s |
18 | vfit |
19 | |
20 | vbounding s |
21 | |
22 | set x 378 |
23 | set y 102 |
24 | checkcolor $x $y 1 1 1 |
25 | |
26 | vdump ${imagedir}/${test_image}.png |