;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\207" [require artist cl-lib] 2) #@639 Return an ellipse with center (CX,CY) and radii RX and RY. Both CX and CY must be non-integer, preferably precisely half-way between integers, e.g., 13/2 => 6.5. The ellipse is represented as a list of unique XPM coords, with the "span", i.e., (- HI LO -1), of the extreme X and Y components equal to twice the rounded (to integer) value of RX and RY, respectively. For example: (xpm-m2z-ellipse 1.5 3.5 5.8 4.2) => list of length 20 min max span X -3 6 10 Y 0 7 8 The span is always an even number. As a special case, if the absolute value of RX or RY is less than 1, the value is nil. (fn CX CY RX RY) (defalias 'xpm-m2z-ellipse #[1028 "\250\204\n\250\203\300\301\302\303D$\210\304\305!V\206\"\304\305!V?\205r\306\307\310\311\312\313!\314\"\315\316%\317\320\321\322\323\n\"\"\324\303\211:\203e@\262\325\n%!\244\262A\262\202B\211\237\266\204!\262\262\262\262\207" [cl--assertion-failed (and (not (integerp cx)) (not (integerp cy))) "Integer component in center coordinate: (%S,%S)" nil 1 abs #[514 "H\300Z\207" [0.5] 4 "\n\n(fn COORD IDX)"] make-byte-code 257 "\300\301\"\300\302\"B\207" vconcat vector [1 0] 5 "\n\n(fn COORD)" #[771 "\300_\\!\207" [truncate] 7 "\n\n(fn ORIGIN SCALE N)"] #[1285 "\211\211A\262\242\300\211\211:\2039@\262\211A\262\242\262 #  #BB\262A\262\202 \211\237\207" [nil] 16 "\n\n(fn CX CY --CL-PLACED-- COORDS QUADRANT)"] delete-dups mapcar artist-ellipse-generate-quadrant ((1 . 1) (-1 . 1) (-1 . -1) (1 . -1)) reverse] 20 (#$ . 476)]) #@72 Like `xpm-m2z-ellipse' with a shared radius RADIUS. (fn CX CY RADIUS) (defalias 'xpm-m2z-circle #[771 "\300\211$\207" [xpm-m2z-ellipse] 8 (#$ . 2054)]) (provide 'xpm-m2z)