| 51 |
|
in_disk_r, |
| 52 |
|
(PI/2 - in_disk_phi)*in_disk_r/(PI/4), |
| 53 |
|
-in_disk_r, |
| 54 |
< |
(in_disk_phi - 3*PI/2)*in_disk_r/(PI/4)); |
| 54 |
> |
(in_disk_phi - 3*PI/2)*in_disk_r/(PI/4), |
| 55 |
> |
in_disk_r); |
| 56 |
|
|
| 57 |
|
out_square_b = select(in_disk_rgn, |
| 58 |
|
in_disk_phi*in_disk_r/(PI/4), |
| 59 |
|
in_disk_r, |
| 60 |
|
(PI - in_disk_phi)*in_disk_r/(PI/4), |
| 61 |
< |
-in_disk_r); |
| 61 |
> |
-in_disk_r, -in_disk_r); |
| 62 |
|
|
| 63 |
|
out_square_x = (out_square_a + 1)/2; |
| 64 |
|
out_square_y = (out_square_b + 1)/2; |
| 77 |
|
{ Compute oriented axis values } |
| 78 |
|
inc_dz = -Dx*rNx-Dy*rNy-Dz*rNz; |
| 79 |
|
inc_rx = -RHS*(Dx*(Uy*rNz-Uz*rNy) + Dy*(Uz*rNx-Ux*rNz) + Dz*(Ux*rNy-Uy*rNx)); |
| 80 |
< |
inc_ry = -Dx*Ux-Dy*Uy-Dz*Uz - inc_dz*(rNx*Ux+rNy*Uy+rNz*Uz); |
| 80 |
> |
inc_ry = Dx*Ux+Dy*Uy+Dz*Uz + inc_dz*(rNx*Ux+rNy*Uy+rNz*Uz); |
| 81 |
|
inc_den2 = inc_rx*inc_rx + inc_ry*inc_ry; |
| 82 |
|
inc_radf = if(inc_den2-1e-7, sqrt((1 - inc_dz*inc_dz)/inc_den2), 0); |
| 83 |
|
{ Pass to formulas in first section } |
| 84 |
|
in_disk_x = inc_rx*inc_radf; |
| 85 |
< |
in_disk_y = inc_ry*inc_radf; |
| 85 |
> |
in_disk_y = -inc_ry*inc_radf; |
| 86 |
|
{ Compute final bin (-1 if behind surface) } |
| 87 |
|
scbin = if(inc_dz, |
| 88 |
|
floor(out_square_x*SCdim)*SCdim + floor(out_square_y*SCdim), |
