(defun c:test
( / p1 p2 p3
) )
(LM:3P-Arc
)
)
)
(defun LM:3P
-Arc
( p1 p2 p3
/ cn m1 m2 nv
) m1 (_mid p1 p2)
m2 (_mid p2 p3)
)
nil
)
)
'(0 . "ARC")
)
(if (LM:Clockwise
-p p1 p2 p3
) )
)
)
)
)
)
)
)
;; Vector Cross Product - Lee Mac
;; Args: u,v - vectors in R^3
)
)
;; Clockwise-p - Lee Mac
;; Returns T if p1,p2,p3 are clockwise oriented
(defun LM:Clockwise
-p
( p1 p2 p3
) )
)