a87752f3 |
1 | puts "================" |
2 | puts "OCC218" |
3 | puts "================" |
4 | puts "" |
5 | |
6 | vinit |
7 | box b 10 10 10 |
8 | explode b f |
9 | vdisplay b_1 |
10 | vfit |
11 | |
12 | set scale 7674.87317785833 |
13 | set center_X -2.16918246707847 |
14 | set center_Y 9.87290703657064 |
15 | set proj_X 0.966540098190308 |
16 | set proj_Y -0.24304473400116 |
17 | set proj_Z 0.0820330902934074 |
18 | set up_X -0.0460147373378277 |
19 | set up_Y 0.150333747267723 |
20 | set up_Z 0.987563848495483 |
21 | set at_X 1.04834496974945 |
22 | set at_Y 0.741619229316711 |
23 | set at_Z -0.0881031528115273 |
24 | |
f1aa2b62 |
25 | set x_coord 388 |
26 | set y_coord 28 |
a87752f3 |
27 | |
4754e164 |
28 | vviewparams ${scale} ${center_X} ${center_Y} ${proj_X} ${proj_Y} ${proj_Z} ${up_X} ${up_Y} ${up_Z} ${at_X} ${at_Y} ${at_Z} |
a87752f3 |
29 | |
30 | OCC218 trihedron1 b_1 X Y |
f1aa2b62 |
31 | |
32 | checkcolor $x_coord $y_coord 0 0 0 |
a87752f3 |
33 | |
34 | OCC218 trihedron1 b_1 my___axis___1 my___axis2 |
a87752f3 |
35 | |
f1aa2b62 |
36 | checkcolor $x_coord $y_coord 0.85 0.85 0 |
a87752f3 |
37 | |
f1aa2b62 |
38 | if { $stat != 1 } { |
a87752f3 |
39 | puts "There is no messages near axes" |
40 | } |
41 | |
42 | set only_screen 1 |
d27ea0ef |
43 | |
f1aa2b62 |
44 | |