Anonymous user
Ray-casting algorithm: Difference between revisions
m
→{{header|REXX}}: used different glyph for 2nd quoted value (infinity).
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:
/*────────────────────────────────────────────────────────────────────────────*/
intersect: procedure expose point. poly.; parse arg ?,s; sp=s+1
epsilon='1e' || (digits()%2); infinity=
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*/
| |||