Function: artist-set-arrow-points-for-2points

artist-set-arrow-points-for-2points is a byte-compiled function defined in artist.el.gz.

Signature

(artist-set-arrow-points-for-2points SHAPE X1 Y1 X2 Y2)

Documentation

Generic function for setting arrow-points for 2-point shapes.

The 2-point shape SHAPE is drawn from X1, Y1 to X2, Y2.

Source Code

;; Defined in /usr/src/emacs/lisp/textmodes/artist.el.gz
(defun artist-set-arrow-points-for-2points (shape _x1 _y1 _x2 _y2)
  "Generic function for setting arrow-points for 2-point shapes.
The 2-point shape SHAPE is drawn from X1, Y1 to X2, Y2."
  (let* ((endpoint1 (artist-2point-get-endpoint1 shape))
	 (endpoint2 (artist-2point-get-endpoint2 shape))
	 (x1        (artist-endpoint-get-x endpoint1))
	 (y1        (artist-endpoint-get-y endpoint1))
	 (x2        (artist-endpoint-get-x endpoint2))
	 (y2        (artist-endpoint-get-y endpoint2)))
    (setq artist-arrow-point-1
	  (artist-make-arrow-point x1 y1
				   (artist-find-direction x2 y2 x1 y1)))
    (setq artist-arrow-point-2
	  (artist-make-arrow-point x2 y2
				   (artist-find-direction x1 y1 x2 y2)))))