Commit | Line | Data |
---|---|---|
1981cb22 | 1 | puts "=======" |
2 | puts "CR23525" | |
3 | puts "=======" | |
4 | puts "" | |
5 | ||
6 | ######################################## | |
7 | ## Disappearing of highlight in screenshot | |
8 | ######################################## | |
9 | ||
10 | vinit | |
11 | vclear | |
12 | box t_box 100 100 100 | |
13 | vdisplay t_box | |
14 | vfit | |
15 | ||
16 | set x_coord 110 | |
17 | set y_coord 352 | |
18 | ||
19 | vmoveto 0 0 | |
20 | ||
21 | # EDGE ON | |
22 | vselmode 2 1 | |
23 | ||
24 | vmoveto $x_coord $y_coord | |
25 | ||
26 | checkcolor $x_coord $y_coord 0 1 1 | |
27 | ||
28 | set only_screen 1 |