(defun inters-2point-by-list-points (point-1 point-2 list-points / centr result-list t1 t2)
  (repeat (1- (length list-points))
    (setq t1 (car list-points))
    (setq list-points (cdr list-points))
    (setq t2 (car list-points))
    (setq centr (inters (list (nth 0 point-1)(nth 1 point-1))(list (nth 0 point-2)(nth 1 point-2))
			(list (nth 0 t1) (nth 1 t1))(list (nth 0 t2) (nth 1 t2))))
    (if centr
      (setq result-list (append result-list(list centr)))
      )
    )
  result-list
  )