//$FG,2$This demo uses $FG,4$grbase2$FG,2$, so you must add a$FG$ //$FG,4$update_win$FG,2$ routine because $FG,4$grbase2$FG,2$ is not$FG$ //persistent. (It gets erased each update by //the system.) $PI,"",2$ GrBitMap *base=GrAlias(grbase2,Fs); void DrawIt(TssStruct *tss) { //Without this, the text of other windows below //would appear. ClearWinText(tss); //$FG,2$We can change the pen width because it was not$FG$ //$FG,2$define in $FG,4$CTRL-R$FG,2$.$FG$ base->pen_width=2; base->bkcolor=BLACK; GrElemsPlot(base,0,0,0,$IB,"",2$); } void Sprite2() { double theta=0,phi=0; I8 *r1,*r2,*temp; void *old_update=Fs->update_win; Fs->update_win=&DrawIt; base->x=200; base->y=200; base->flags|=BMF_TRANSFORMATION; while (!ScanKey) { r1=GrTheta(theta); r2=GrPhi(phi); temp=base->r; base->r=GrMulMat(r1,r2); Free(temp); Free(r1); Free(r2); Sleep(40); theta+=pi2/100; phi +=pi2/130; } Fs->update_win=old_update; } Sprite2;‚#øÿÿÿ#øÿÿÿ1 1 ""*"