Function: artist-spray-set-radius

artist-spray-set-radius is a byte-compiled function defined in artist.el.gz.

Signature

(artist-spray-set-radius CIRCLE X1 Y1 X2 Y2)

Documentation

Set spray radius from CIRCLE at X1, Y1 through X2, Y2.

Source Code

;; Defined in /usr/src/emacs/lisp/textmodes/artist.el.gz
(defun artist-spray-set-radius (_circle x1 y1 x2 y2)
  "Set spray radius from CIRCLE at X1, Y1 through X2, Y2."
  (let ((dx (- x2 x1))
	(dy (- y2 y1)))
    (setq artist-spray-radius (round (sqrt (+ (* dx dx) (* dy dy)))))
    (if (= 0 artist-spray-radius)
	(setq artist-spray-radius 1))))