44 lines
1.4 KiB
Plaintext
44 lines
1.4 KiB
Plaintext
/*
|
|
$WW,1$
|
|
This is an $FG,2$APZ$FG$ instead of a $FG,2$CPZ$FG$ file because you want the wallpaper routine to stay in memory even if this task is killed.
|
|
|
|
Press $FG,2$CTRL-T$FG$ to see the hidden text needed for graphic elements.
|
|
|
|
Press $FG,2$CTRL-R$FG$ to add a graphic element to a document.
|
|
$WW,0$
|
|
*/
|
|
|
|
|
|
|
|
$PI,"<PI1>",1$
|
|
|
|
|
|
|
|
U1 *old_wallpaper=ext[EXT_WALLPAPER];
|
|
|
|
void MyWallPaper(TssStruct *my_tss)
|
|
{
|
|
void OldWallPaper(TssStruct *tss);
|
|
I8 i;
|
|
I8 j=Jiffies*10/JIFFY_FREQ;
|
|
GrBitMap *base=GrAlias(grbase2,my_tss);
|
|
SetWinBkColor(my_tss,LTBLUE);
|
|
base->color=BLUE;
|
|
for (i=0;i<GR_HEIGHT;i+=20)
|
|
GrLine(base,i+j%8,0,0,GR_HEIGHT-i-j%8);
|
|
|
|
base->bkcolor=BLACK;
|
|
GrElemsPlot(base,j%GR_WIDTH,GR_HEIGHT/2,0,$IB,"<IB1>",1$);
|
|
GrDel(base);
|
|
OldWallPaper=old_wallpaper;
|
|
//$FG,2$Uncomment the following if you wish.
|
|
$FG$// OldWallPaper(my_tss);
|
|
}
|
|
|
|
|
|
|
|
ext[EXT_WALLPAPER]=&MyWallPaper;
|
|
|
|
|
|
þÿÿÿ ! ! 4
|
|
4
|
|
G G K K K þÿÿÿ K þÿÿÿH ùÿÿÿ H ùÿÿÿ6 ùÿÿÿ 6 ùÿÿÿ ÿÿÿÿ
|
|
! 2 2 D " 6 üÿÿÿ 6 üÿÿÿD ýÿÿÿ D F F G þÿÿÿ . < 7 øÿÿÿ2 ñÿÿÿ 2 ñÿÿÿ0 ùÿÿÿ 1 . . - C ÿÿÿÿC ÿÿÿÿ C þÿÿÿE þÿÿÿ D þÿÿÿD |