# | Line 48 | Line 48 | RAY *r; | |
---|---|---|
48 | int nv; | |
49 | FVECT dval, disp; | |
50 | double pt[MAXDIM]; | |
51 | + | double d; |
52 | DATARRAY *dp; | |
53 | register XFORM *mxf; | |
54 | register char **sa; | |
# | Line 105 | Line 106 | RAY *r; | |
106 | ||
107 | multv3(disp, disp, mxf->fore.xfm); | |
108 | multv3(disp, disp, r->rofx); | |
109 | + | d = 1.0 / (mxf->fore.sca * r->rofs); |
110 | for (i = 0; i < 3; i++) | |
111 | < | r->pert[i] += disp[i] / (mxf->fore.sca * r->rofs); |
111 | > | r->pert[i] += disp[i] * d; |
112 | return; | |
113 | dimerr: | |
114 | objerror(m, USER, "dimension error"); |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |