hschumann2/TempleOS-Source-Code

1 2U8 *old_font=text.font;3 4// See ::/Kernel/FontStd.HC, ::/Demo/ScrnCodes.HC,5//::/Demo/ExtChars.HC, and ::/Demo/Graphics/FontEd.HC.6 7U64 waves[4]={80x0011AA440011AA44,0x0022558800225588,90x0044AA110044AA11,0x0088552200885522};10 11U0 AnimateEndCB()12{13  text.font=old_font;14  Exit;15}16 17U0 AnimateTask(I64)18{19  I64 i;20  U64 *font=MAlloc(256*8);21  Fs->task_end_cb=&AnimateEndCB;22  MemCpy(font,text.font,256*8);23  text.font=font;24  while (TRUE) {25    font[CH_SPACE]=waves[i++&0x3];26    Sleep(100);27  }28}29 30Spawn(&AnimateTask,NULL,"Animate",,Fs);31TaskRep;32