;------------- POČETAK - PODNAPUTBINA ZA PRESJEK DVA PRAVCA S DVIE TOČKE U
RAVNINI----------------------------------------------
;Ova radnja je storena uz Božju pomoć
;Ova radnja radi presjek u ravnini između dva pravca od kojih jedan prolazi
točkama t1 i t2 a drugi točkama t3 i t4.
;izhod radnje je točka kano presjek dva pravca u ravnini.
(defun presjek_dva_pravca_u_ravnini (t1 t2 t3 t4 / y1 y2 y3 y4 x1 x2 x3 x4)
;t1 i t2 su točke jednog pravca, a t3 i t4 drugog pravca
(setq y1 (nth 0 t1)) (setq y2 (nth
0 t2)) (setq y3 (nth 0 t3)) (setq y4 (nth 0 t4))
(setq x1 (nth 1 t1)) (setq x2 (nth
1 t2)) (setq x3 (nth 1 t3)) (setq x4 (nth 1 t4))
(if (and (/= (- x2 x1) 0) (/= (- x4
x3) 0)) (progn
(setq xx (/ (- y3 y1 (* x3 (/ (-
y4 y3) (- x4 x3))) (* x1 (/ (- y1 y2) (- x2 x1)))) (- (/ (- y2 y1) (- x2 x1))
(/ (- y4 y3) (- x4 x3)))))
(setq yy (+ y1 (* (/ (- y2 y1) (-
x2 x1)) (- xx x1))))
))
(if (= (- x2 x1) 0) (progn (setq xx x1)
(setq yy (+ y3 (* (/ (- y4 y3) (- x4 x3)) (- xx x3)))) ))
(if (= (- x4 x3) 0) (progn (setq xx x3)
(setq yy (+ y1 (* (/ (- y2 y1) (- x2 x1)) (- xx x1)))) ))
(list yy xx 0)
) ;kraj defun podnaputbine
;------------- KRAJ - PODNAPUTBINA ZA PRESJEK DVA PRAVCA S DVIE TOČKE U
RAVNINI----------------------------------------------