simple elisp animation?

simple elisp animation?

[someusernamehere]

Which is the easiest way for does the following in elisp, I´m trying
to do a kind of simple "animation", I mean e.g. I have first in the
buffer:

     o
   / | \
    / \

how I can transform before in:

 __o__
     |
    / \

and after some more positions


thanks.

Re: simple elisp animation?

[Lennart Borgman (gmail)]

someusernamehere wrote:
> Which is the easiest way for does the following in elisp, I´m trying
> to do a kind of simple "animation", I mean e.g. I have first in the
> buffer:
> 
>      o
>    / | \
>     / \
> 
> how I can transform before in:
> 
>  __o__
>      |
>     / \
> 
> and after some more positions

Can't you just use run-with-timer and replace the content?

Re: simple elisp animation?

[someusernamehere]

On 27 mar, 11:56, "Lennart Borgman (gmail)"
<lennart.borg...@gmail.com> wrote:

> Can't you just use run-with-timer and replace the content?


mmmm, but with this I need to wrote the entire content of two (or
more) animation positions,
I have in mind some work with coordinates (which I dont know how in
elisp)


thanks

Re: simple elisp animation?

[Pascal Bourguignon]

someusernamehere <someusernamehere@gmail.com> writes:

> On 27 mar, 11:56, "Lennart Borgman (gmail)"
> <lennart.borg...@gmail.com> wrote:
>
>> Can't you just use run-with-timer and replace the content?
>
>
> mmmm, but with this I need to wrote the entire content of two (or
> more) animation positions,
> I have in mind some work with coordinates (which I dont know how in
> elisp)

(require 'cl)
(deftype character () 'fixnum "") ; emacs lisp characters are fixnums.
(defun character (object)
  (etypecase object
    (character object)
    (string    (aref object 0))))


(defun* set-pixel (x y &optional (color "*"))
  (goto-char (point-min))
  (insert (make-string (forward-line y) (character "\n")))
  (beginning-of-line)
  (let ((width (- (save-excursion (end-of-line) (point)) (point))))
    (when (<= width x)
      (end-of-line)
      (insert (make-string (- x width -1) (character " "))))
    (beginning-of-line)
    (forward-char x)
    (delete-char 1)
    (insert (character color))))

(loop
   with base = 40
   for i from 0 to 80
   do (set-pixel i
                 (round (+ base (* 20 (sin (* 2 pi (/ i 80.0))))))
                 (+ 32 i)))



But of course, it would be much much more efficient to erase the old
region and insert a new one in block, than doing it pixel by pixel
like this. (I mean, character by character of course).


For example, you can play movies with:

(defun pjb-animate (speed)
  (interactive "nSpeed: ")
  (let ((delay (/ 1.0  speed))
        (done  nil))
    (widen)
    (goto-char (point-min))
    (message "Animating...")
    (while (not done)
      (widen)
      (if (search-forward "\f" nil 'at-limit)
        nil
        (goto-char (point-max))
        (setq done t))
      (narrow-to-page)
      (sit-for delay)
      (force-mode-line-update t)
      ) ;;while
    (message "Done.")))

Just draw each pictures, one per page (pictures separated with
form-feeds, Control-L, that you can enter with C-q C-l), and 
M-x pjb-animate RET them.

For example:

\f
___
\f
/\_
\f
 __/
\f
 ___
\f
 /\_
\f
  __/
\f
  ___
\f
  /\_
\f
   __/
\f
   ___
\f
   /\_
\f
    __/
\f
    ___
\f
    /\_
\f
     __/



-- 
__Pascal Bourguignon__                     http://www.informatimago.com/

CONSUMER NOTICE: Because of the "uncertainty principle," it is
impossible for the consumer to simultaneously know both the precise
location and velocity of this product.