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 | } |
