Function: artist-intersection-char

artist-intersection-char is a byte-compiled function defined in artist.el.gz.

Signature

(artist-intersection-char NEW-C OLD-C)

Documentation

Calculates intersection character when drawing a NEW-C on top of an OLD-C.

Return character according to this scheme:

OLD-C NEW-C return
- | +
| - +
+ | +
+ - +
\ / X
/ \ X
X / X
X \ X
other combinations NEW-C

Source Code

;; Defined in /usr/src/emacs/lisp/textmodes/artist.el.gz
;; artist-intersection-char
;;
;; Note: If changing this, see the notes for artist-unintersection-char
;;       and artist-vaporize-lines
;;
(defun artist-intersection-char (new-c old-c)
  "Calculates intersection character when drawing a NEW-C on top of an OLD-C.
Return character according to this scheme:

		OLD-C	NEW-C		return
		 -	 |		   +
		 |	 -		   +
		 +	 |		   +
		 +	 -		   +
		 \\	 /		   X
		 /	 \\		   X
		 X	 /		   X
		 X	 \\		   X
		other combinations	   NEW-C"

  (cond ((and (= old-c ?- )  (= new-c ?| ))  ?+ )
	((and (= old-c ?| )  (= new-c ?- ))  ?+ )
	((and (= old-c ?+ )  (= new-c ?- ))  ?+ )
	((and (= old-c ?+ )  (= new-c ?| ))  ?+ )
	((and (= old-c ?\\ ) (= new-c ?/ ))  ?X )
	((and (= old-c ?/ )  (= new-c ?\\ )) ?X )
	((and (= old-c ?X )  (= new-c ?/ ))  ?X )
	((and (= old-c ?X )  (= new-c ?\\ )) ?X )
	(t new-c)))