I apologize for the delay (time zone), maybe this:
; the angle between the lines never exceeds 180 degrees
(setq CntPnt '(10. 10. 0.) Pnt001 '(208.14 37.20 0.) Pnt002 '(191.12 -74.84 0.))
Command: (setq Ang001 (angle CntPnt Pnt001)) => 0.136424
Command: (setq Ang002 (angle CntPnt Pnt002)) => 5.84512
Command: (setq Deg090 (/ pi 2.)) => 1.5708
Command: (if (> Ang001 Ang002)
(_> (setq Ang003 (+ Ang001 (/ (- Ang002 Ang001) 2.00)))
(_> (setq Ang003 (+ Ang001 pi (/ (- Ang002 Ang001) 2.00)))
(_> ) => 6.13236
(cond
( (and (>= Ang003 0) (>= Deg090 Ang003)) (list 0 Deg090) )
( (and (>= Ang003 Deg090) (>= pi Ang003)) (list Deg090 pi) )
( (and (>= Ang003 pi) (>= (+ pi Deg090) Ang003)) (list pi (+ pi Deg090)) )
( T (list (+ pi Deg090) 0) )
) => (4.71239 0)
the ultimate goal is to draw a clove in the quadrant more occupied.