31 lines
573 B
HolyC
Executable File
31 lines
573 B
HolyC
Executable File
U8 *old_font=text.font;
|
|
|
|
// See $LK,"::/Kernel/FontStd.HC"$, $LK,"::/Demo/ScrnCodes.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;
|