library( fields)

# run these just once
source( "setup.R") # this takes a while
source( "fun.R")
# create temp2 directory to hold frames 
system( "mkdir temp2")

animate()

#  exit R and create movie from the png image sequence in temp2
#  Quicktime pro 

From File -> Open Image Sequence
point the file browser to the temp2 directory and 
click on the first png file in the sequence
(frame1000.png)

Open and choose a frame rate. 

To save either save in the quick time movie format or 
File-> Export to choose a more econonical format