TempleOS V5.03 Nightly (ISO SHA-1 54758c6)

Adam/Gr/ScrnCast.HC

@@ -0,0 +1,96 @@
+#help_index "ScrnCast;Graphics/Device Contexts;Graphics/GR Files"
+
+#define MV_FILE_MAX	0x007FF000
+
+public I64 GR2MV(U8 *print_fmt="VID%03d.MV",
+	U8 *files_find_mask,U8 *fu_flags=NULL)
+{/*Merge GR lst to MV file.
+"+d" will delete GR list files.
+*/
+  I64 fuf_flags=0,file_num=0,size;
+  CDirEntry *tmpde,*tmpde1;
+  U8 *base,*dst,*src,*st;
+  CDC *dc,*dc_base=DCNew(GR_WIDTH,GR_HEIGHT);
+  CDate cdt;
+  Bool old_silent;
+  ScanFlags(&fuf_flags,Define("ST_FILE_UTIL_FLAGS"),"+f+F");
+  ScanFlags(&fuf_flags,Define("ST_FILE_UTIL_FLAGS"),fu_flags);
+  tmpde=tmpde1=FilesFind(files_find_mask,fuf_flags&FUG_FILES_FIND);
+  if (progress1_max=LinkedLstCnt(tmpde1)) {
+    dst=base=MAlloc(MV_FILE_MAX);
+    while (tmpde) {
+      dc=GRRead(tmpde->full_name);
+      GrBlot(dc_base,dc->x0,dc->y0,dc);
+      if (dst+GR_FILE_MAX>base+MV_FILE_MAX) {
+	st=MStrPrint(print_fmt,file_num++);
+	FileWrite(st,base,dst-base);
+	Free(st);
+	dst=base;
+
+	cdt=dc->cdt;
+	dc=DCCopy(dc_base);
+	dc->cdt=cdt;
+      }
+      src=DCSave(dc,&size);
+      DCDel(dc);
+      MemCpy(dst,src,size);
+      dst+=size;
+      Free(src);
+      if (fuf_flags&FUF_DEL) {
+	old_silent=Silent;
+	Del(tmpde->full_name);
+	Silent(old_silent);
+      }
+      progress1++;
+      tmpde=tmpde->next;
+    }
+    if (dst>base) {
+      st=MStrPrint(print_fmt,file_num++);
+      FileWrite(st,base,dst-base);
+      Free(st);
+    }
+    Free(base);
+  }
+  progress1=progress1_max=0;
+  DirTreeDel(tmpde1);
+  DCDel(dc_base);
+  return file_num;
+}
+
+#help_index "ScrnCast;Snd/AU Files"
+public U0 SndShift(CSndData *head,F64 dt=0)
+{//Shift CSndData in time.
+  CSndData *tmpsd,*tmpsd1;
+  if (dt) {
+    tmpsd=head->next;
+    while (tmpsd!=head) {
+      tmpsd1=tmpsd->next;
+      tmpsd->tS-=dt;
+      if (tmpsd->tS<tmpsd->last->tS) {
+	QueRem(tmpsd);
+	Free(tmpsd);
+      }
+      tmpsd=tmpsd1;
+    }
+  }
+}
+
+public I64 AUWrite(U8 *filename,CSndData *head,CDate *t0_now,F64 t0_tS)
+{//Write AU file.
+  CSndData *tmpsd;
+  CAUData *base,*dst;
+  I64 size=(1+QueCnt(head))*sizeof(CAUData);
+  U8 *st=ExtDft(filename,"AU");
+  base=dst=MAlloc(size);
+  tmpsd=head;
+  do {
+    dst->cdt=t0_now(I64)+ToI64(CDATE_FREQ*(tmpsd->tS-t0_tS));
+    dst->ona=tmpsd->ona;
+    dst++;
+    tmpsd=tmpsd->next;
+  } while (tmpsd!=head);
+  FileWrite(st,base,dst(U8 *)-base(U8 *));
+  Free(base);
+  Free(st);
+  return size;
+}