3bea4c16 |
1 | puts "================" |
2 | puts "OCC129" |
3 | puts "================" |
4 | puts "" |
5 | ####################################################################################### |
6 | # Object is not selectable in the Cascade Viewer |
7 | ###################################################################################### |
8 | |
9 | set BugNumber OCC22129 |
10 | |
11 | cylinder c 0 0 1 10 |
12 | trimv ct c -1e+9 1e+9 |
13 | mkface ft ct |
14 | |
15 | vinit |
5ad8c033 |
16 | # change maximum uv parameter value in drawer to display |
17 | # isolines correctly |
18 | vaspects -defaults -setMaxParamValue 1e+9 |
3bea4c16 |
19 | vdisplay ft |
20 | |
21 | set x1 207 |
22 | set y1 184 |
23 | set x2 222 |
24 | set y2 175 |
25 | |
26 | vmoveto ${x1} ${y1} |
27 | checkcolor ${x1} ${y1} 0 1 1 |
28 | |
29 | vselect ${x1} ${y1} |
30 | checkcolor ${x1} ${y1} 0.8 0.8 0.8 |
31 | |
32 | vselect ${x2} ${y2} |
33 | checkcolor ${x1} ${y1} 1 1 0 |
34 | |
5ad8c033 |
35 | # dump image, than restore default maximum parameter value |
36 | set aViewInfo [split [vviewlist long] "/"] |
37 | set aImgFile ${imagedir}/${casename} |
38 | foreach aStr $aViewInfo { |
39 | append aImgFile "_" [string trim $aStr] |
40 | } |
41 | append aImgFile ".png" |
42 | vdump $aImgFile |
43 | |
44 | vaspects -defaults -setMaxParamValue 500000 |
45 | vclose |