Function: artist-fill-ellipse

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

Signature

(artist-fill-ellipse ELLIPSE X Y X-RADIUS Y-RADIUS)

Documentation

Fill an ELLIPSE centered at X,Y with radius X-RADIUS and Y-RADIUS.

Aliases

artist-fill-circle

Source Code

;; Defined in /usr/src/emacs/lisp/textmodes/artist.el.gz
;
; Filling ellipses
;
(defun artist-fill-ellipse (ellipse _x _y _x-radius _y-radius)
  "Fill an ELLIPSE centered at X,Y with radius X-RADIUS and Y-RADIUS."
  (let ((fill-info (aref (artist-2point-get-shapeinfo ellipse) 1)))
    (mapcar
     (lambda (fill-item)
       (artist-move-to-xy (artist-fill-item-get-x fill-item)
			  (artist-fill-item-get-y fill-item))
       (artist-replace-chars artist-fill-char
			    (artist-fill-item-get-width fill-item))
       fill-item)
     fill-info)))