39 lines
715 B
Plaintext
39 lines
715 B
Plaintext
U1 *old_font=grfont;
|
|
|
|
// See $LK,"::/LT/OSMain/Font8x8.CPZ","FI:::/LT/OSMain/Font8x8.CPZ"$
|
|
|
|
U1 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};
|
|
|
|
void AnimateEnd()
|
|
{
|
|
grfont=old_font;
|
|
Exit;
|
|
}
|
|
|
|
void AnimateTsk()
|
|
{
|
|
U8 i;
|
|
U1 *font=MAlloc(256*8);
|
|
Fs->end_task_cb=&AnimateEnd;
|
|
MemCpy(font,grfont,256*8);
|
|
grfont=font;
|
|
while (TRUE) {
|
|
MemCpy(font+CH_SPACE*FONT_HEIGHT,waves+8*(i++&0x3),8);
|
|
Sleep(100);
|
|
}
|
|
}
|
|
|
|
|
|
Spawn(&AnimateTsk,"Animate Font Task");
|
|
TaskRep;
|
|
|
|
/*
|
|
Note: You cannot redefine the zero
|
|
or space (0x20) characters.
|
|
*/
|
|
|