SparrowOSTS_121127.ISO

SparrowOS/Demo/Snd/Record.CPP

@@ -0,0 +1,120 @@
+Bool record_stop,record_done;
+
+U0 (*fp_old_copy_buf)(SND_IN_CONTAINER *buf,I64 buf_num)=NULL;
+
+#define RECORD_BUF_SIZE	(SND_BUF_LEN*0x100)
+
+SND_IN_CONTAINER *record_buf[2];
+I64 record_buf_iptr,record_ibuf_num,record_obuf_num;
+
+U0 RecordCopyBuf(SND_IN_CONTAINER *buf,I64)
+{
+  I64 j;
+  SND_IN_CONTAINER *_s=record_buf[record_ibuf_num&1];
+  j=0;
+  while (j<SND_BUF_LEN) {
+    _s[record_buf_iptr++]=buf[j++];
+    j++; //Record in mono
+  }
+  if (record_buf_iptr>=RECORD_BUF_SIZE) {
+    record_buf_iptr=0;
+    record_ibuf_num++;
+  }
+}
+
+U0 DrawIt(CTask *task,CDC *dc)
+{
+  SND_IN_CONTAINER *buf=_hda->istr0_buf[0];
+  I64 i,x1,y1,x2=0,y2=0,
+    cy=task->win_pixel_height>>1;
+  dc->color=BLUE;
+  for (i=0;i<SND_BUF_LEN;i++) {
+    x1=i*task->win_pixel_width/SND_BUF_LEN;
+    y1=cy-buf[i]*cy/MAX_I16;
+    GrLine(dc,x2,y2,x1,y1);
+    x2=x1;
+    y2=y1;
+  }
+  dc->color=RED;
+}
+
+U0 RecordTaskEndCB()
+{
+  fp_snd_copy_buf=fp_old_copy_buf;
+  HDStop(TRUE,FALSE);
+  Free(record_buf[0]);
+  Free(record_buf[1]);
+  record_done=TRUE;
+  Exit;
+}
+
+U0 RecordTask(U8 *filename)
+{
+  Bool old_io_snd;
+  U8 *fname=StrNew(filename),*fname2;
+  TaskInitExt; //needed for disk access
+  record_buf[0]=CAlloc(RECORD_BUF_SIZE*sizeof(SND_IN_CONTAINER));
+  record_buf[1]=CAlloc(RECORD_BUF_SIZE*sizeof(SND_IN_CONTAINER));
+  FileExtRem(fname);
+  record_buf_iptr=0;
+  record_ibuf_num=0;
+  record_obuf_num=0;
+  record_done=FALSE;
+  Fs->task_end_cb=&RecordTaskEndCB;
+  fp_old_copy_buf=fp_snd_copy_buf;
+  fp_snd_copy_buf=&RecordCopyBuf;
+  HDRun(TRUE,FALSE);
+  if (!IsSysDeterministic)
+    Preempt(ON);
+  old_io_snd=IOSnd(OFF);
+  while (!record_stop) {
+    if (record_ibuf_num>record_obuf_num) {
+      fname2=MSPrintF("%s%04d.SNZ",fname,record_obuf_num);
+      SndFileWrite(fname2,record_buf[record_obuf_num&1],RECORD_BUF_SIZE);
+      record_obuf_num++;
+      Free(fname2);
+    }
+    Sleep(1);
+  }
+  fname2=MSPrintF("%s%04d.SNZ",fname,record_obuf_num);
+  SndFileWrite(fname2,record_buf[record_obuf_num&1],record_buf_iptr);
+  record_obuf_num++;
+  Free(fname2);
+  Free(fname);
+  IOSnd(old_io_snd);
+  record_done=TRUE;
+}
+
+U0 RecordDemo(U8 *filename="HOME/Record.SNZ")
+{
+  if (snd_dev!=SD_HD_AUDIO) {
+    "Only works for HD Audio.\n";
+    return;
+  }
+  record_done=FALSE;
+  record_stop=FALSE;
+  Spawn(&RecordTask,filename,"Record .SNZ",Fs);
+  SettingsPush; //See $LK,"SettingsPush","MN:SettingsPush"$
+  Preempt(OFF);
+  DocCursor;
+  DocClear;
+  Fs->draw_it=&DrawIt;
+  try
+    GetChar;
+  catch //Catch <CTRL-ALT-C>, but pass it on to next higher handler.
+    record_stop=TRUE;
+  record_stop=TRUE;
+  while (record_done)
+    Yield;
+  SettingsPop;
+  while (TRUE) {
+    "\n\nPlay ";
+    if (YorN)
+      SndFilePlaySeq(filename,record_obuf_num);
+    else
+      break;
+  }
+  NewLine(2);
+}
+
+RecordDemo;