Talk:Find the intersection of two lines: Difference between revisions

Content added Content deleted
m (→‎a REXX version of a REXX version: included comments that were added to REXX version 2, added more comments.)
Line 27: Line 27:
say iSect( 0 0 3 3 0 1 6 7 )
say iSect( 0 0 3 3 0 1 6 7 )
say iSect( 0 0 3 3 8 8 8 8 )
say iSect( 0 0 3 3 8 8 8 8 )
exit /* ═══a═══ ═══b═══ ═══c═══ ═══c═══ stick a fork in it, we're all done. */
exit /* ═══a═══ ═══b═══ ═══c═══ ═══d═══ stick a fork in it, we're all done. */
/*──────────────────────────────────────────────────────────────────────────────────────*/
/*──────────────────────────────────────────────────────────────────────────────────────*/
iSect: procedure; parse arg xa ya xb yb xc yc xd yd
iSect: procedure; parse arg xa ya xb yb xc yc xd yd