;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(custom-declare-group 'animate nil "Make text dance." :group 'games :prefix "animate-")
#@25 

(fn STRING VPOS HPOS)
(defalias 'animate-initialize #[771 "\300G\301\211W\203)
H\302\303 !\302\304 S!\\\257B\262\211T\262
\202\266\207" [nil 0 random window-height window-width] 12 (#$ . 172)])
#@28 

(fn CHARACTERS FRACTION)
(defalias 'animate-step #[514 "\300
Z\211\205/\211@
A@_\3018_\\\3028_\3038_\\\304@#\266
A\266\202\202\207" [1 3 2 4 animate-place-char] 11 (#$ . 389)])
#@23 

(fn CHAR VPOS HPOS)
(defalias 'animate-place-char #[771 "\301 b\210\302\303\211W\203#\302\211\210\304y\304U\203\305c\210\210\211T\262
\202\210)\306 \210\307\310!\311\"\210l\2047\312\304!\210\313\304\"\207" [abbrev-mode window-start nil 0 1 "\n" beginning-of-line move-to-column floor t delete-char insert-char] 7 (#$ . 589)])
(byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable animate-n-steps funcall function #[0 "\300\207" [10] 1 ""] "Number of steps `animate-string' will place a char before its last position." :type integer] 6)
#@113 String naming the default buffer for animations.
When nil animations displayed in the buffer named *Animation*.
(defvar animation-buffer-name nil (#$ . 1169))
#@343 Display STRING animations starting at position VPOS, HPOS.
The characters start at randomly chosen places,
and all slide in parallel to their final positions,
passing through `animate-n-steps' positions before the final ones.
If HPOS is nil (or omitted), center the string horizontally
in the current window.

(fn STRING VPOS &optional HPOS)
(defalias 'animate-string #[770 "\305\206\306\307 GZ\310\245]#\311\211\n\306\211W\203Q\311\211
\312\313\314\n#\"\210\315\311\316\"\210\317\320!\210\262
\211\203G\321\322\316\"\262
)\2027)\266\211T\262
\202\266\312
\316\"\210\311\210\317\306!\210\323 *\207" [indent-tabs-mode show-trailing-whitespace animate-n-steps buffer-undo-list undo-in-progress animate-initialize 0 window-width 2 nil animate-step / 1.0 set-window-start 1 sit-for 0.05 t primitive-undo undo-boundary] 14 (#$ . 1335)])
#@314 Display animation strings from LIST-OF-STRING with buffer *Animation*.
Strings will be separated from each other by SPACE lines.
 When the variable `animation-buffer-name' is non-nil display
animation in the buffer named by variable's value, creating the
buffer if one does not exist.

(fn LIST-OF-STRINGS SPACE)
(defalias 'animate-sequence #[514 "\301\302 \303GS_G$\304\245\305\306\206\307!!\210\310 \210\311\312!\210\2056\313@\"\210\211\\T\262
A\262\202\207" [animation-buffer-name - window-height 1 2 switch-to-buffer get-buffer-create "*Animation*" erase-buffer sit-for 0 animate-string] 7 (#$ . 2198)])
#@259 Return a birthday present in the buffer *Birthday-Present*.
When optional arg NAME is non-nil or called-interactively, prompt for
NAME of birthday present receiver and return a birthday present in
the buffer *Birthday-Present-for-Name*.

(fn &optional NAME)
(defalias 'animate-birthday-present #[256 "\300\301\203\302\303!\304Q\202\305!!\210\306 \210\307\310!\210\211\203&\311\312\313\"\210\202+\311\314\313\"\210\211\2039\311\315\316\303!\"\317\"\210\307\320!\210\311\321\322\323#\210\307\324!\210\311\325\326\323#\210\307\324!\210\311\327\330\323#\210\307\324!\210\311\331\332\323#\210\307\324!\210\311\333\334\323#\210\307\324!\210\311\335\336\323#\210\307\324!\210\311\337\340\323#\210\311\341\342\343#\210\311\344\345\343#\207" [switch-to-buffer get-buffer-create "*A-Present-for-" capitalize "*" "*Birthday-Present*" erase-buffer sit-for 0 animate-string "Happy Birthday," 6 "Happy Birthday" format "%s" 7 1 "You are my sunshine," 10 30 0.5 "My only sunshine." 11 "I'm awful sad that" 12 "You've moved away." 13 "Let's talk together" 15 "And love more deeply." 16 "Please bring back" 17 "my sunshine" 18 34 "to stay!" 19] 6 (#$ . 2828) (byte-code "\300\301\302\211#C\207" [read-string "Birthday present for: " nil] 4)])
(provide 'animate)