| # | Line 17 | Line 17 | latlong = if(LATWIDTH-mod(Acos(Nz)+LATWIDTH/2,LATSTEP) | |
|---|---|---|
| 17 | if(LONGWIDTH-mod(mylong+LONGWIDTH/2,LONGSTEP), .3, 1))); | |
| 18 | ||
| 19 | { Compute up vector corresponding to sphere position } | |
| 20 | < | upx = Nx*Ny*(Nz-1); |
| 21 | < | upy = Nx*Nx + Ny*Ny*Nz; |
| 22 | < | upz = -Ny*(Nx*Nx+Ny*Ny); |
| 20 | > | ur2 = Nx*Nx + Ny*Ny; |
| 21 | > | upx = Nx*Ny*(Nz - 1); |
| 22 | > | upy = if(ur2 - FTINY, Nx*Nx + Ny*Ny*Nz, 1); |
| 23 | > | upz = -Ny*ur2; |
| 24 | ||
| 25 | interp_arr2`(i,x,f):(i+1-x)*f(i)+(x-i)*f(i+1); | |
| 26 | interp_arr`(x,f):if(x-1,if(f(0)-x,interp_arr2(floor(x),x,f),f(f(0))),f(1)); | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |