Ray-casting algorithm: Difference between revisions
Content added Content deleted
m (→{{header|REXX}}: added/changed whitespace and comments, aligned the numbers in the output better, simplified a subroutine name.) |
m (→{{header|REXX}}: used different glyph for 2nd quoted value (infinity).) |
||
| Line 2,634: | Line 2,634: | ||
/*────────────────────────────────────────────────────────────────────────────*/ |
/*────────────────────────────────────────────────────────────────────────────*/ |
||
intersect: procedure expose point. poly.; parse arg ?,s; sp=s+1 |
intersect: procedure expose point. poly.; parse arg ?,s; sp=s+1 |
||
epsilon='1e' || (digits()%2); infinity= |
epsilon='1e' || (digits()%2); infinity="1e" || (digits() *2) |
||
Px=point.?.x; Ax=poly.s.x; Ay=poly.s.y |
Px=point.?.x; Ax=poly.s.x; Ay=poly.s.y |
||
Py=point.?.y; Bx=poly.sp.x; By=poly.sp.y /* [↓] do a swap*/ |
Py=point.?.y; Bx=poly.sp.x; By=poly.sp.y /* [↓] do a swap*/ |
||