Function: touch-screen-centrum

touch-screen-centrum is a byte-compiled function defined in touch-screen.el.gz.

Signature

(touch-screen-centrum POS1 POS2)

Documentation

Compute the center of a line between the points POS1 and POS2.

Each, and value, is a coordinate whose car and cdr are respectively its X and Y values.

Source Code

;; Defined in /usr/src/emacs/lisp/touch-screen.el.gz
(defsubst touch-screen-centrum (pos1 pos2)
  "Compute the center of a line between the points POS1 and POS2.
Each, and value, is a coordinate whose car and cdr are
respectively its X and Y values."
  (let ((v1 (+ (cdr pos2) (cdr pos1)))
        (v2 (+ (car pos2) (car pos1))))
    (cons (/ v2 2) (/ v1 2))))