SHOW:
|
|
- or go back to the newest paste.
1 | drgeoVector & | |
2 | scmVector2drgeoVector (SCM v) | |
3 | { | |
4 | static drgeoVector t; | |
5 | static gdouble gv[2]; | |
6 | ||
7 | gh_scm2doubles (v, gv); | |
8 | t.set (gv[0], gv[1]); | |
9 | return t; | |
10 | } | |
11 | ||
12 | ||
13 | ////changed to | |
14 | ||
15 | drgeoVector & | |
16 | scmVector2drgeoVector (SCM v) | |
17 | { | |
18 | static drgeoVector t; | |
19 | static gdouble gv[2]; | |
20 | ||
21 | for (int i=0, n=scm_c_array_length(v); i<n; ++i) | |
22 | { | |
23 | gv[i] = scm_to_double(scm_c_array_ref_1(v, i)); | |
24 | } | |
25 | t.set (gv[0], gv[1]); | |
26 | return t; | |
27 | } |