Function: strokes-distance-squared

strokes-distance-squared is a byte-compiled function defined in strokes.el.gz.

Signature

(strokes-distance-squared P1 P2)

Documentation

Compute the distance (squared) between to points P1 and P2.

P1 and P2 are cons cells in the form (X . Y).

Source Code

;; Defined in /usr/src/emacs/lisp/strokes.el.gz
(defsubst strokes-distance-squared (p1 p2)
  "Compute the distance (squared) between to points P1 and P2.
P1 and P2 are cons cells in the form (X . Y)."
  (let ((x1 (car p1))
	(y1 (cdr p1))
	(x2 (car p2))
	(y2 (cdr p2)))
    (+ (strokes-square (- x2 x1))
       (strokes-square (- y2 y1)))))