#include "audio.h"

double hakei(takasa,oo,nagasa)
     double takasa,oo;
     int nagasa;
{
  double A,B,ans,wt;
  int tm,t,ds;
  double oo_h;
  char oto;

  A=2*M_PI*takasa;
  B=128.0/log1p(255.0)*log1p(255.0*oo/100.0);
  tm=(int)(8000.0*60.0/(double)hayasa*(double)nagasa/8.0);
  ds=(int)(8000.0*60.0/(double)hayasa/64.0);
  wt=0.0;
  for(t=0; t<tm; t++){
    if(hani!=0.0){
      oo_h=oo+16.0*(double)nagasa/8.0/hani/henka*(double)t/(double)tm;
      if(oo_h>100.0) oo_h=100.0;
      if(oo_h<0.0) oo_h=0.0;
      B=128.0/log1p(255.0)*log1p(255.0*oo_h/100.0);
    }
    if(t>=tm-ds){
      fputc(255,f); continue;
    }
    else{
      if((ans=sin(wt))==0.0)
	oto=255;
      else
	if(ans<0.0)
	  oto=127-(char)(B/log1p(255.0)*log1p(255.0*(-ans)));
	else
	  oto=(char)(-B/log1p(255.0)*log1p(255.0*ans))-1;
      fputc(oto,f);
      wt+=A/8000.0;
      if(wt>=2*M_PI) wt-=2*M_PI;
    }
  }
  if(hani!=0.0)
    ookisa=oo+16.0*(int)nagasa/8.0/hani/henka;
}