TempleOSTS_140317.ISO

Demo/Graphics/CharGraphics.CPP

@@ -0,0 +1,35 @@
+U8 *old_font=gr_font;
+
+// See $LK,"::/Kernel/Font8x8.CPP"$.
+// See $LK,"::/Demo/ScreenCodes.CPP"$.
+// See $LK,"::/Demo/ExtendedChars.CPP"$.
+// See $LK,"::/Demo/Graphics/FontEd.CPP"$.
+
+U8 waves[8*4]={
+0x00,0x11,0xAA,0x44,0x00,0x11,0xAA,0x44,
+0x00,0x22,0x55,0x88,0x00,0x22,0x55,0x88,
+0x00,0x44,0xAA,0x11,0x00,0x44,0xAA,0x11,
+0x00,0x88,0x55,0x22,0x00,0x88,0x55,0x22};
+
+U0 AnimateEndCB()
+{
+  gr_font=old_font;
+  Exit;
+}
+
+U0 AnimateTask(I64)
+{
+  I64 i;
+  U8 *font=MAlloc(256*8);
+  Fs->task_end_cb=&AnimateEndCB;
+  MemCpy(font,gr_font,256*8);
+  gr_font=font;
+  while (TRUE) {
+    MemCpy(font+CH_SPACE*FONT_HEIGHT,waves+8*(i++&0x3),8);
+    Sleep(100);
+  }
+}
+
+
+Spawn(&AnimateTask,NULL,"Animate",,Fs);
+TaskRep;