/* This demo uses gr_dc, so you must add a draw_it routine because gr_dc is not persistent. (It gets erased each update by the system.) */ $SP,"<1>",1$ CDC *dc; U0 DrawIt(CTask *,CDC *) { //We can change the pen width because it was not //define in . dc->pen_width=2; DCDepthBufRst(dc); SpritePlot3(dc,0,0,0,$IB,"<1>",1$); } U0 SpritePlot3D() { F64 é=0,è=0; dc=DCAlias(gr_dc,Fs); SettingsPush; //See $LK,"SettingsPush","MN:SettingsPush"$ Fs->draw_it=&DrawIt; Preempt(OFF); //We don't want update during matrix change dc->x=200; dc->y=200; dc->z=GR_Z_ALL; dc->flags|=DCF_TRANSFORMATION; DCAllocDepthBuf(dc); while (!ScanChar) { GrIdentEqu(dc->r); GrRotXEqu(dc->r,è); GrRotZEqu(dc->r,é); GrSetRotMat(dc,dc->r); Sleep(40); é+=2*ã/100; è+=2*ã/130; } SettingsPop; DCDel(dc); } SpritePlot3D; 8#øÿÿÿ#øÿÿÿ1 1 ""*"ÎÿÿÿÎÿÿÿ2Îÿÿÿ22Îÿÿÿ2ÎÿÿÿÎÿÿÿ222