# | Line 103 | Line 103 | RAY *r; | |
---|---|---|
103 | if (errno) | |
104 | goto computerr; | |
105 | ||
106 | + | multv3(disp, disp, mxf->fore.xfm); |
107 | + | multv3(disp, disp, r->rofx); |
108 | for (i = 0; i < 3; i++) | |
109 | < | r->pert[i] += ( disp[0]*mxf->fore.xfm[0][i] + |
108 | < | disp[1]*mxf->fore.xfm[1][i] + |
109 | < | disp[2]*mxf->fore.xfm[2][i] ) |
110 | < | / mxf->fore.sca; |
109 | > | r->pert[i] += disp[i] / (mxf->fore.sca * r->rofs); |
110 | return; | |
111 | dimerr: | |
112 | objerror(m, USER, "dimension error"); |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |