61c421bf |
1 | puts "========" |
2 | puts "OCC200" |
3 | puts "========" |
4 | puts "" |
5 | |
6 | ####################################################### |
7 | ##puts "2D Viewer. Changing of background color from BLACK to R (R is missing color name)" |
8 | ##puts "(visual checking for this case is desirable)" |
9 | ####################################################### |
10 | |
11 | set mistake 0 |
12 | v2dinit |
13 | if [catch {v2dsetbgcolor R} ] { |
14 | set mistake 1 |
15 | } |
16 | |
17 | if {$mistake != 0} { |
18 | puts "Faulty : Changing of backgroundcolor was NOT MADE properly" |
19 | } else { |
20 | puts "Changing of backgroundcolor was made properly" |
21 | } |
22 | |
23 | set only_screen2d 1 |