Find the intersection of two lines: Difference between revisions

Content added Content deleted
(Added solution for Action!)
Line 186: Line 186:
<lang Action!>INCLUDE "D2:REAL.ACT" ;from the Action! Tool Kit
<lang Action!>INCLUDE "D2:REAL.ACT" ;from the Action! Tool Kit


DEFINE REALPTR="CARD"
TYPE PointR=[CARD x,y] ;REAL POINTER
TYPE PointR=[REALPTR x,y]


PROC Det(REAL POINTER x1,y1,x2,y2,res)
PROC Det(REAL POINTER x1,y1,x2,y2,res)
Retrieved from "https://rosettacode.org/wiki/Find_the_intersection_of_two_lines"