step=0
jpeg(file="rapt%02d.jpg", width=800, height=500)
for (i in c(0,-1,-2,-3,-2,-1,0,1,2,3,2,1,0,-1,-2,-3,-2,-1,0,1)/16){
  sk=2/pi
  step=step+1
p=  ggplot(data=rapt) + geom_polygon(aes(x=cos(i/sk)*V1 +sin(i/sk)*V2 - step*4  ,y=cos(i/sk)*V2 - sin(i/sk)*V1 -step*2 ,group=group),colour=I("red") )+ theme_bw() + scale_x_continuous(limits = c(-600, 400)) +
   scale_y_continuous(limits = c(-300, 250)) + 
   theme(axis.line=element_blank(),axis.text.x=element_blank(),  axis.text.y=element_blank(),axis.ticks=element_blank(),                                                                                                                                                     axis.title.x=element_blank(),    axis.title.y=element_blank(),legend.position="none",
panel.background=element_blank(),panel.border=element_blank(),panel.grid.major=element_blank(),
panel.grid.minor=element_blank(),plot.background=element_blank())
print(p)  
}

dev.off()
system("convert -delay 8 *.jpg raptor.gif")