a87752f3 |
1 | puts "========" |
2 | puts "OCC193" |
3 | puts "========" |
4 | puts "" |
5 | ################################################## |
6 | ##puts "Selection of NODE of ROTATED 2D Circular Grid WITH Lines" |
7 | ##puts "(visual checking for this case is desirable)" |
8 | ################################################## |
9 | |
10 | v2dinit |
11 | v2dgrid Circ 500 500 250 12 30 Lines |
12 | |
13 | set Position_X -667.802 |
14 | set Position_Y -441.402 |
15 | |
f1aa2b62 |
16 | set x_coord 67 |
17 | set y_coord 295 |
18 | set color2d 1 |
a87752f3 |
19 | |
f1aa2b62 |
20 | checkcolor $x_coord $y_coord 0.49 0.49 0.49 |
a87752f3 |
21 | |
f1aa2b62 |
22 | if { $stat != 1 } { |
a87752f3 |
23 | puts "Error : Objects was not displayed" |
24 | } |
25 | |
f1aa2b62 |
26 | v2dpickgrid 67 295 x_ch y_ch |
a87752f3 |
27 | |
f1aa2b62 |
28 | if { ${x_ch} != ${Position_X} || ${y_ch} != ${Position_Y} } { |
a87752f3 |
29 | puts "Error : Function v2dpickgrid works wrongly" |
30 | } |
31 | |
32 | set only_screen2d 1 |
f1aa2b62 |
33 | |