#ifdef HOLLYWOOD
    movietest=0;
    if(imovie<nframes) movietest=1;
    if(movietest==1&&tmovie[imovie]<eventinfo[firstevent].time){
      printf("Begin writing frame, imovie=%d\n",imovie);
      partcount=0;
      ipart=firstpart;
      while(ipart!=-1){
	if(partinfo[ipart].r[0]<tmovie[imovie]) partcount=partcount+1;
	ipart=partinfo[ipart].next;
      }
      if(tmovie[imovie]<10.0){ 
	fprintf(fptrmovie,"%d   %g\n",partcount+400,tmovie[imovie]);
      }
      else{
	fprintf(fptrmovie,"%d   %g\n",partcount,tmovie[imovie]);
      }
      ipart=firstpart;
      while(ipart!=-1){
	if(partinfo[ipart].r[0]<tmovie[imovie]){
	  if(abs(resinfo[partinfo[ipart].ires].code)<=999) moviecode=3;
	  if(resinfo[partinfo[ipart].ires].code>999) moviecode=2;
	  if(resinfo[partinfo[ipart].ires].code<-999) moviecode=1;
	  if(partinfo[ipart].r[0]>tmovie[imovie]-2.0*deltmovie) moviecode=0;
	  xmovie=partinfo[ipart].r[1]
	    +(tmovie[imovie]-partinfo[ipart].r[0])
	    *partinfo[ipart].p[1]/partinfo[ipart].p[0];
	  ymovie=partinfo[ipart].r[2]
	    +(tmovie[imovie]-partinfo[ipart].r[0])
	    *partinfo[ipart].p[2]/partinfo[ipart].p[0];
	  zmovie=partinfo[ipart].r[3]
	    +(tmovie[imovie]-partinfo[ipart].r[0])
	    *partinfo[ipart].p[3]/partinfo[ipart].p[0];
	  fprintf(fptrmovie,"%6.2f  %6.2f  %6.2f  %d\n",
		  xmovie,ymovie,zmovie,moviecode);
	}
	ipart=partinfo[ipart].next;
      }
      /* Write points to simulate source expanding sidewards at 0.5c*/
      if(tmovie[imovie]<10.0){
	for(i=0;i<400;i++){
	RETRY_SOURCE_PT:
	  xmovie=(1.0-2.0*ran2());
	  ymovie=(1.0-2.0*ran2());
	  zmovie=(1.0-2.0*ran2());
	  if(xmovie*xmovie+ymovie*ymovie+zmovie*zmovie>1.0) 
	    goto RETRY_SOURCE_PT;
	  moviecode=54321;
	  xmovie=xmovie*(6.5+0.5*tmovie[imovie]);
	  ymovie=ymovie*(6.5+0.5*tmovie[imovie]);
	  zmovie=zmovie*(0.5+tmovie[imovie]);
	  fprintf(fptrmovie,"%6.2f  %6.2f  %6.2f  %d\n",
		  xmovie,ymovie,zmovie,moviecode);	
	}
      }
      imovie=imovie+1;
      printf("Movie frame written\n");
      if(imovie==nframes) {
	fclose(fptrmovie);
	printf("Movie portion of our program is finished\n");
      }
    }
#endif