| # | Line 181 | Line 181 | $disk2sq = ' | |
|---|---|---|
| 181 | norm_radians(p) : if(-p - PI/4, p + 2*PI, p); | |
| 182 | in_disk_r = .999995*sqrt(Dx*Dx + Dy*Dy); | |
| 183 | in_disk_phi = norm_radians(atan2(Dy, Dx)); | |
| 184 | < | in_disk_rgn = floor((in_disk_phi + PI/4)/(PI/2)) + 1; |
| 184 | > | in_disk_rgn = floor((.999995*in_disk_phi + PI/4)/(PI/2)) + 1; |
| 185 | out_square_a = select(in_disk_rgn, | |
| 186 | in_disk_r, | |
| 187 | (PI/2 - in_disk_phi)*in_disk_r/(PI/4), | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |