source: sans/utils/Teabag/sanswrite.c @ 1249

#include <stdio.h>
#include <string.h>
#include <math.h>
#include "sa_data.h"
#include "sa_rdwr.h"
#include "sa_futil.h"
#include "sa_mutil.h"

SANSHDR header;
int hist[128][128];


int initdata(SANSHDR *hdr, int hst[128][128], char *filename)
{
  //double distance = 10000, dim = 1000, lambda = 2.0;
  double val;
  int i,j;

  memset(hdr,0,sizeof(SANSHDR));

  sprintf(hdr->fname, "%-22s",filename);
  hdr->run.npre = 1;
  hdr->run.ctime = 10;
  hdr->run.rtime = 10;
  hdr->run.numruns = 1;
  hdr->run.moncnt  = 100000000;
  hdr->run.savmon  = 10000.0;
  hdr->run.atten = (float) 1.0;
  hdr->det.calx[0]  = 5;
  hdr->det.calx[1] = 10000;
  hdr->det.caly[0]  = 5;
  hdr->det.caly[1] = 10000;
  hdr->det.siz = 65;
  hdr->det.beamx = 64;
  hdr->det.beamy = 64;
  hdr->det.dis = 1.33;
  hdr->resolution.lmda = 5;
  

  sprintf(hdr->run.type,"%s","RAW");

  hdr->bmstp.xpos  = 64.0;
  hdr->bmstp.ypos  = 64.0;

  sprintf(hdr->det.typ,"%6s","ORDELA");

  //FakeSansHist(hst, distance, dim, lambda);
  for (i=0;i<128;i++) {
    val = 0;
    for (j=0;j<128;j++) {
      hst[i][j] = 1;
      hdr->run.detcnt += hst[i][j];
      val += hst[i][j];
    }
    //   printf("%d %f\n",i,val);
  }
  //  printf("Total counts = %d\n",hdr->run.detcnt);

  return 0;
}


/* int main(int argc, char * argv[])
{
  int retn;
  int byteorder = 0;
  char filename[23] = "test.sans";
  FILE *fp; 

  retn = initdata(&header,hist, filename);
  
  if ((fp = fopen(filename,"wb")) == NULL) {
        fprintf(stderr,"Counldn't write output file\n");
        return -1;
  }
  
  if ((retn = WriteSansHdr(fp, &header, byteorder)) != 0) {
        fprintf(stderr,"Problem encountered in writing header\n");
        return -2;
  }

  if ((retn = WriteSansHist(fp, hist, 128, 128, byteorder)) != 0) {
        fprintf(stderr,"Problem encountered in writing data\n");
        return -3;
  }
  printf("Wrote \"%s\"\n",filename);
  return 0;
}
 */