Function: artist-fill-rect

artist-fill-rect is a byte-compiled function defined in artist.el.gz.

Signature

(artist-fill-rect RECT X1 Y1 X2 Y2)

Documentation

Fill rectangle RECT from X1,Y1 to X2,Y2.

Source Code

;; Defined in /usr/src/emacs/lisp/textmodes/artist.el.gz
;;
;; Filling rectangles and squares
;;

(defun artist-fill-rect (_rect x1 y1 x2 y2)
  "Fill rectangle RECT from X1,Y1 to X2,Y2."
  (let ((x (1+ (min x1 x2)))
	(y (1+ (min y1 y2)))
	(x-max (max x1 x2))
	(y-max (max y1 y2)))
    (let ((w (- x-max x)))
      (while (< y y-max)
	(artist-move-to-xy x y)
	(artist-replace-chars artist-fill-char w)
	(setq y (1+ y))))))