Lines Matching defs:string
28 ;; (animate-string STRING VPOS &optional HPOS)
29 ;; makes the string STRING appear starting at VPOS, HPOS
36 ;;; STRING is the string to be displayed,
47 ;;; in the string when the whole string finally reaches its
50 (defun animate-initialize (string vpos hpos)
52 (dotimes (i (length string))
54 (cons (list (aref string i)
61 ;; The Ith character in the string
95 "Number of steps to use `animate-string'.")
98 (defun animate-string (string vpos &optional hpos)
103 If HPOS is nil (or omitted), center the string horizontally
106 (animate-initialize string vpos
109 ;; it so as to center the string.
110 (max 0 (/ (- (window-width) (length string)) 2))))))
152 (animate-string (car list-of-strings) vpos)
160 (interactive (list (read-string "Name (default Sarah): "
171 (animate-string "Happy Birthday," 6)
172 (animate-string (format "%s" name) 7)
176 (animate-string "You are my sunshine," 10 30)
178 (animate-string "My only sunshine." 11 30)
180 (animate-string "I'm awful sad that" 12 30)
182 (animate-string "You've moved away." 13 30)
184 (animate-string "Let's talk together" 15 30)
186 (animate-string "And love more deeply." 16 30)
188 (animate-string "Please bring back" 17 30)
189 (animate-string "my sunshine" 18 34)
190 (animate-string "to stay!" 19 34))