;ELC ;;; Compiled by buildd@akateko.buildd on Fri Oct 25 13:52:33 2013 ;;; from file /build/buildd/emacs23-23.4+1/debian/build-x/lisp/play/animate.el ;;; in Emacs version 23.4.1 ;;; 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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defalias 'animate-initialize #[(string vpos hpos) "\306 G\307\n W\203) \nH\310\311 !\310\312 S!\f \n\\\257B\nT\211\202*)\207" [characters string i --dotimes-limit-- vpos hpos nil 0 random window-height window-width] 7]) (defalias 'animate-step #[(characters fraction) "\306Z\n\307\211\2059\f@ A@_\310 8_\\ \311 8_\312 8_\\\f\313 @\f #\210*\fA\211\204\f\307+\207" [fraction remains characters item --dolist-tail-- hpos 1 nil 3 2 4 animate-place-char vpos] 6]) (defalias 'animate-place-char #[(char vpos hpos) "\306 b\210\307 \310\n W\203$\307\210\311y\311U\203\312c\210\nT\211\202 +\313 \210\314\315\f!\316\"\210l\2047\317\311!\210\320 \311\"\207" [abbrev-mode vpos i --dotimes-limit-- hpos char window-start nil 0 1 "\n" beginning-of-line move-to-column floor t delete-char insert-char] 4]) #@42 Number of steps to use `animate-string'. (defvar animate-n-steps 10 (#$ . 1369)) #@316 Display STRING starting at position VPOS, HPOS, using animation. 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. (defalias 'animate-string #[(string vpos &optional hpos) "\306 \n\206\307\310 GZ\311\245]#\312\211\307W\203`\312\211\313 \314\315#\"\210\316\312\317\"\210\320\321!\210\203V\322\323\317\")\202C*T\211\202*\313 \317\"\210\312\210\320\307!\210\324 +\207" [string vpos hpos indent-tabs-mode show-trailing-whitespace characters animate-initialize 0 window-width 2 nil animate-step / 1.0 set-window-start 1 sit-for 0.05 t primitive-undo undo-boundary animate-n-steps i --dotimes-limit-- list-to-undo buffer-undo-list undo-in-progress] 7 (#$ . 1457)]) #@127 Display strings from LIST-OF-STRING with animation in a new buffer. Strings will be separated from each other by SPACE lines. (defalias 'animate-sequence #[(list-of-strings space) "\303\304 \305GS _G$\306\245\307\310\311!!\210\312 \210\313\314!\210\2054\315@\n\"\210\316\n \305#A\211\204 \317)\207" [list-of-strings space vpos - window-height 1 2 switch-to-buffer get-buffer-create "*Animation*" erase-buffer sit-for 0 animate-string + nil] 6 (#$ . 2370)]) #@119 Display one's birthday present in a new buffer. You can specify the one's name by NAME; the default value is "Sarah". (defalias 'animate-birthday-present #[(&optional name) "\301\302\303\304\"!!\210\305 \210\306\307!\210\310\311\312\"\210\310\303\313\"\314\"\210\306\315!\210\310\316\317\320#\210\306\321!\210\310\322\323\320#\210\306\324!\210\310\325\326\320#\210\306\327!\210\310\330\331\320#\210\306\332!\210\310\333\334\320#\210\306\335!\210\310\336\337\320#\210\306\340!\210\310\341\342\320#\210\310\343\344\345#\210\310\346\347\345#\207" [name switch-to-buffer get-buffer-create format "*%s*" erase-buffer sit-for 0 animate-string "Happy Birthday," 6 "%s" 7 1 "You are my sunshine," 10 30 0.5 "My only sunshine." 11 0.5 "I'm awful sad that" 12 0.5 "You've moved away." 13 0.5 "Let's talk together" 15 0.5 "And love more deeply." 16 0.5 "Please bring back" 17 "my sunshine" 18 34 "to stay!" 19] 5 (#$ . 2844) (list (read-string "Name (default Sarah): " nil nil "Sarah"))]) (byte-code "\300\301!\210\302\303!\207" [random t provide animate] 2)