Function: animate-initialize

animate-initialize is a byte-compiled function defined in animate.el.gz.

Signature

(animate-initialize STRING VPOS HPOS)

Source Code

;; Defined in /usr/src/emacs/lisp/play/animate.el.gz
(defun animate-initialize (string vpos hpos)
  (let ((characters nil))
    (dotimes (i (length string))
      (setq characters
	    (cons (list (aref string i)
			;; Random starting positions.
			(random (window-height))
			(random (1- (window-width)))
			;; All the chars should end up
			;; on the specified line.
			vpos
			;; The Ith character in the string
			;; needs to end up I positions later.
			(+ hpos i))
		  characters)))
    characters))