TempleOSCDV4.11.ISO

Demo/Graphics/CharAnimation.HC

@@ -0,0 +1,30 @@
+U8 *old_font=text.font;
+
+// See $LK,"::/Kernel/FontStd.HC"$, $LK,"::/Demo/ScreenCodes.HC"$,
+//$LK,"::/Demo/ExtChars.HC"$, and $LK,"::/Demo/Graphics/FontEd.HC"$.
+
+U64 waves[4]={
+0x0011AA440011AA44,0x0022558800225588,
+0x0044AA110044AA11,0x0088552200885522};
+
+U0 AnimateEndCB()
+{
+  text.font=old_font;
+  Exit;
+}
+
+U0 AnimateTask(I64)
+{
+  I64 i;
+  U64 *font=MAlloc(256*8);
+  Fs->task_end_cb=&AnimateEndCB;
+  MemCpy(font,text.font,256*8);
+  text.font=font;
+  while (TRUE) {
+    font[CH_SPACE]=waves[i++&0x3];
+    Sleep(100);
+  }
+}
+
+Spawn(&AnimateTask,NULL,"Animate",,Fs);
+TaskRep;