#include "prj.h"

int read_source(char *filename)
{
  int frame,row,column;
  FILE *fp;
  long count;

  if((fp=fopen(filename,"r"))==NULL){
    perror("open");
    return 1;
  }

  for(frame=0;frame<FRAME;frame++){
    for(row=0;row<ROW;row++)
      if((count=fread(picel[frame][row],sizeof(unsigned char),COLUMN,fp))<0){
	perror("fread");
	return 1;
      }
    if(fseek(fp,ROW*COLUMN/2*sizeof(unsigned char),SEEK_CUR)!=0){
      perror("fseek");
      return 1;
    }
  }

  return 0;
}

read_mv(char *file_x,char *file_y)
{
  short frame,q,p;
  FILE *fp;
  int temp;

  fp=fopen(file_x,"r");
  for(frame=1;frame<FRAME;frame++)
    for(q=0;q<LY;q++)
      for(p=0;p<LX;p++){
	fscanf(fp,"%d",&temp);
	mv_x[frame][q][p]=(short) temp;
      }
  fclose(fp);

  fp=fopen(file_y,"r");
  for(frame=1;frame<FRAME;frame++)
    for(q=0;q<LY;q++)
      for(p=0;p<LX;p++){
	fscanf(fp,"%d",&temp);
	mv_y[frame][q][p]=(short) temp;
      }
  fclose(fp);
}

read_mad(char *file,short m[FRAME][LY][LX])
{
  short frame,q,p;
  FILE *fp;
  int temp;

  fp=fopen(file,"r");
  for(frame=1;frame<FRAME;frame++)
    for(q=0;q<LY;q++)
      for(p=0;p<LX;p++){
	fscanf(fp,"%d",&temp);
	m[frame][q][p]=(short) temp;
      }
  fclose(fp);
}

read_len(char *file,short m[FRAME][LY][LX])
{
  short frame,q,p;
  FILE *fp;
  int temp;

  fp=fopen(file,"r");
  for(frame=1;frame<FRAME;frame++)
    for(q=0;q<LY;q++)
      for(p=0;p<LX;p++){
	fscanf(fp,"%d",&temp);
	m[frame][q][p]=(short) temp;
      }
  fclose(fp);
}