Commit | Line | Data |
---|---|---|
352ffd73 | 1 | puts "========" |
2 | puts "OCC591" | |
3 | puts "========" | |
4 | puts "" | |
5 | ||
6 | restore [locate_data_file OCC591.brep] result | |
7 | tclean result | |
8 | vinit | |
9 | vdisplay result | |
10 | vfit | |
11 | vsetdispmode result 1 | |
12 | vsettransparency result .5 | |
13 | ||
352ffd73 | 14 | |
15 | set x_coord 250 | |
16 | set y_coord 115 | |
17 | ||
18 | checkcolor $x_coord $y_coord 0.58 0.41 0.07 | |
19 | ||
20 | if {$stat != 1} { | |
21 | puts "Error : Function VSETTRANSPARENCY works wrongly." | |
22 | } | |
23 | ||
24 | set only_screen 1 |