Commit | Line | Data |
---|---|---|
61c421bf | 1 | puts "========" |
2 | puts "OCC61" | |
3 | puts "SAM723" | |
4 | puts "BUC60919" | |
5 | puts "========" | |
6 | ||
7 | vinit | |
8 | vtrihedron trihedron | |
9 | ||
10 | set x_coord 205 | |
11 | set y_coord 205 | |
12 | ||
61c421bf | 13 | checkcolor $x_coord $y_coord 0.43 0.48 0.54 |
14 | ||
15 | set xmin 1 | |
16 | set ymin 1 | |
17 | set xmax 409 | |
18 | set ymax 205 | |
19 | ||
20 | # Select part of trihedron | |
21 | OCC60 ${xmin} ${ymin} ${xmax} ${ymax} | |
22 | OCC60 ${xmin} ${ymin} ${xmax} ${ymax} | |
23 | ||
61c421bf | 24 | checkcolor $x_coord $y_coord 0.8 0.8 0.8 |
25 | ||
26 | set only_screen 1 |