61c421bf |
1 | puts "========" |
2 | puts "OCC544" |
3 | puts "========" |
4 | puts "" |
5 | ################################# |
6 | ## Problems with the results of MakePipeShell |
7 | ################################# |
8 | |
9 | vinit |
10 | vsetdispmode 1 |
11 | OCC544 |
12 | vdisplay result |
13 | vsetmaterial result PLASTIC |
14 | vsetcolor result MATRABLUE |
15 | vsettransparency result 0.5 |
16 | vsetdispmode 1 |
17 | vfit |
18 | |
19 | set scale 2.05374 |
61c421bf |
20 | set proj_X 0.135192 |
21 | set proj_Y -0.978297 |
22 | set proj_Z -0.157031 |
23 | set up_X -0.399854 |
24 | set up_Y -0.198875 |
25 | set up_Z 0.894743 |
197ac94e |
26 | set at_X 415.781529476262 |
27 | set at_Y 349.647084890243 |
28 | set at_Z 417.026634136105 |
61c421bf |
29 | |
197ac94e |
30 | vviewparams -scale ${scale} -proj ${proj_X} ${proj_Y} ${proj_Z} -up ${up_X} ${up_Y} ${up_Z} -at ${at_X} ${at_Y} ${at_Z} |
61c421bf |
31 | |
32 | set x1 300 |
33 | set y1 70 |
34 | |
35 | set x2 190 |
36 | set y2 110 |
37 | |
38 | set x3 220 |
39 | set y3 110 |
40 | |
4754e164 |
41 | vmoveto ${x1} ${y1} |
61c421bf |
42 | |
61c421bf |
43 | checkcolor $x3 $y3 0.04 0.04 0.5 |
44 | |
45 | set only_screen 1 |