Function: artist-vaporize-line

artist-vaporize-line is a byte-compiled function defined in artist.el.gz.

Signature

(artist-vaporize-line X1 Y1)

Documentation

Vaporize (erase) the straight line through X1, Y1.

Do this by replacing the characters that forms the line with artist-erase-char(var)/artist-erase-char(fun). Output is a list of endpoints for lines through X1, Y1. An endpoint is a cons pair, (ENDPOINT-X . ENDPOINT-Y).

Source Code

;; Defined in /usr/src/emacs/lisp/textmodes/artist.el.gz
(defun artist-vaporize-line (x1 y1)
  "Vaporize (erase) the straight line through X1, Y1.
Do this by replacing the characters that forms the line with
`artist-erase-char'.  Output is a list of endpoints for lines through
X1, Y1.  An endpoint is a cons pair, (ENDPOINT-X . ENDPOINT-Y)."
  (let ((endpoints (artist-vap-find-endpoints x1 y1)))
    (mapc
     (lambda (endpoints)
       (let ((ep1 (car endpoints))
	     (ep2 (car (cdr endpoints))))
	 (artist-vaporize-by-endpoints ep1 ep2)))
     (artist-vap-group-in-pairs endpoints))
    endpoints))