Simple slow zoom in/out texture script

I am looking for a basic script that will zoom in and out a texture. any ideas?

Have a play with this:

     default
     {
     	state_entry()
     	 {
     		   llSetTextureAnim(ANIM_ON | SMOOTH | SCALE | PING_PONG | LOOP, ALL_SIDES, 1, 1, 1, 3, 2);
     	   }
     }
     

(press the quote button to get the script formatted without the php tags).

What do the numbers mean? Ignore the first two 1's (they are not used when llSetTextureAnim is zooming out and in). The last three numbers, 1, 3 and 2, are the important ones here.. they mean, start with one repeat per face, go up to three repeats (i.e. zoom out), and change scale twice a second (i.e. take one second to zoom out from 1 to 3). PING_PONG means then zoom back in, and LOOP means keep on doing it.

If you want to start by zooming in, the last numbers should be -1,3 and 2. That is, starting with a negative number means "zoom in".

http://www.lslwiki.net/lslwiki/wakka.php?wakka=llSetTextureAnim and http://wiki.secondlife.com/wiki/LlSetTextureAnim give more details.