//This uses $LK,"fixed-point","FI:::/TempleOS/Demo/Lectures/FixedPoint.CPP"$. //This program can be AOT compiled to a .BIN.Z or JIT. //If AOT compiling, override the filename extention warning. #ifaot #include "::/TempleOS/Kernel/AOTAdam.HPP" I64 best_score=0; //Doesn't work yet for AOT #else AcctRegSetDftEntry("TempleOS/EagleDive","I64 best_score=0;\n"); AcctRegExeBranch("TempleOS/EagleDive"); #endif //Keep these power of two so shift is used instead of multiply //to index arrays. #define MAP_WIDTH 1024 #define MAP_HEIGHT 1024 #define MAP_SCALE 150 #define DISPLAY_SCALE 100 #define CTRLS_SCALE 0.05 //I think I did these so the heads-up showed intelligable numbers. //Scaling is a mess. #define COORDINATE_SCALE 256 #define COORDINATE_BITS 8 #define WATER_ELEVATION 15 #define ROCK_ELEVATION 45 #define SNOW_ELEVATION 55 //Too big makes off-screen draws take place. #define MAX_PANEL_SIZE 16 class Panel { Panel *next; I32 n, //num polygon sides num; //panel number CD3I32 *pts; I64 color,cnt; }; class Fish { Fish *next,*last; I64 x,y,z; } fish_root; $SP,"<1>",1$ I64 critical_section_flag; U0 CriticalSectionStart() { while (LBts(&critical_section_flag,0)) Yield; } U0 CriticalSectionEnd() { LBtr(&critical_section_flag,0); } //These are $BK,1$NOT$BK,0$ deallocated after the program ends, //but I did them this way for your benefit //so 2D array indexing is not done by hand. //You can type "EagleDive;" at the command line //to rerun without new allocations. //Normally, just spawn a popup task, //run it and kill it using an icon. #ifaot #exe {OptOn(OPTf_GLBLS_ON_DATA_HEAP);}; #endif I16 elevations[MAP_HEIGHT][MAP_WIDTH]; I32 normals[MAP_HEIGHT][MAP_WIDTH*2]; Panel *panels[MAP_HEIGHT][MAP_WIDTH*2]; #ifaot #exe {OptOff(OPTf_GLBLS_ON_DATA_HEAP);}; #endif I64 num_panels; Panel *panel_root; U8 *panels_processed_bitmap; F64 game_t0,,1,2,speed; I64 strip_height,x,y,z,game_score; Bool game_over; class MPCtrl { I64 mp_cnt; I64 init_not_done_flags,update_not_done_flags,app_not_done_flags; I64 strip_width[MP_MAX_PROCESSORS]; Bool app_done; } mp; U0 FSTransform(CDC *dc,I64 *x,I64 *y,I64 *z) { I64 zz; //I accidentally made the Z coordinate sign backward //from the fill-poly depth buf scheme, so it is negated at the end. //Negative Z coordinates are the ones we want plotted. GrRot(dc->r,x,y,z); //We don't want divide by zero or make too monstrous foreground objects. //The foreground object boundary is kinda crappy looking when //you point toward the ground. *z=-*z; zz=*z+50; if (zz>0) { //The divide causes "foreshortening" which makes the distance go to a vanishing point. *x = *x * DISPLAY_SCALE/ zz; *y = *y * DISPLAY_SCALE/ zz; } *x+=dc->x; *y =dc->y-*y; } U0 CalcNormals() { /*The idea is that there are two tris forming every grid square and we find the normal vect with a curl. i j k 0 1 dz2 1 0 dz1 Normal: dz1*i + dz2*j - k i j k -1 0 -dz3 0 -1 -dz4 Normal: -dz3*i - dz4*j + k Basically, we want to combine grid locations with the same normals. These are not unit vects for one thing. What I came-up with is dz1/dz2 and dz3/dz4. It works pretty well. It combines more than it should, but that's good because it would result in too many panels. */ I64 i,j,k,dz1,dz2; for (j=0;j0) normals[j][k++]=MAX_I32; else normals[j][k++]=MIN_I32; } dz1=elevations[j+1][i+1]-elevations[j][i+1]; dz2=elevations[j+1][i+1]-elevations[j+1][i]; if (dz2) normals[j][k++]=dz1<<16/dz2; else { if (!dz1) normals[j][k++]=0; else if (dz1>0) normals[j][k++]=MAX_I32; else normals[j][k++]=MIN_I32; } } normals[j][k++]=0; normals[j][k++]=0; } k=0; for (i=0;inum*(MAP_HEIGHT-1)/mp.mp_cnt; hi=(Gs->num+1)*(MAP_HEIGHT-1)/mp.mp_cnt; for (threshold=8;threshold>=1;threshold--) for (j=lo;j=threshold || h>=threshold) { tempp=CAlloc(sizeof(Panel),task); lock {tempp->num=num_panels++;} l=elevations[j][i]; if (l<=WATER_ELEVATION*MAP_SCALE && elevations[j][i+w-1]<=WATER_ELEVATION*MAP_SCALE && elevations[j+h-1][i]<=WATER_ELEVATION*MAP_SCALE && elevations[j+h-1][i+w-1]<=WATER_ELEVATION*MAP_SCALE) { tempp->color=BLUE; if (Rand<0.05) { tempf=MAlloc(sizeof(Fish),task); tempf->x=(i+w/2)*MAP_SCALE; tempf->y=(j+h/2)*MAP_SCALE; tempf->z=l; CriticalSectionStart; QueIns(tempf,fish_root.last); CriticalSectionEnd; } } else { if (RandI16&1) { if (lcolor=LTGREEN; else if (lcolor=LTGRAY; else tempp->color=LTGREEN; } else { if (!(RandU16&3)) tempp->color=WHITE; else tempp->color=LTGRAY; } } else { if (lcolor=GREEN+LTGREEN<<16+ROPF_DITHER; else if (lcolor=DKGRAY+LTGRAY<<16+ROPF_DITHER; else tempp->color=GREEN+LTGREEN<<16+ROPF_DITHER; } else { if (!(RandU16&3)) tempp->color=LTGRAY+WHITE<<16+ROPF_DITHER; else tempp->color=DKGRAY+LTGRAY<<16+ROPF_DITHER; } } } tempp->n=4; poly=tempp->pts=MAlloc(sizeof(CD3I32)*tempp->n,task); poly[0].x=MAP_SCALE*i; poly[0].y=MAP_SCALE*j; poly[0].z=elevations[j][i]; poly[1].x=MAP_SCALE*(i+w); poly[1].y=MAP_SCALE*j; poly[1].z=elevations[j][i+w]; poly[2].x=MAP_SCALE*(i+w); poly[2].y=MAP_SCALE*(j+h); poly[2].z=elevations[j+h][i+w]; poly[3].x=MAP_SCALE*i; poly[3].y=MAP_SCALE*(j+h); poly[3].z=elevations[j+h][i]; tempp->next=start_ptr; start_ptr=tempp; if (!end_ptr) end_ptr=tempp; for (k2=0;k2next=panel_root; panel_root=start_ptr; CriticalSectionEnd; } LBtr(&mp.init_not_done_flags,Gs->num); } U0 InitMap() { //We make a topographic data structure "elevations[][]" //and convert it to panels. The conversion to panels leaves //gaps the way I did it, but it looks good, except for sky leaking through //There is no wrong way to pick colors if it looks good, unless //you wanted to do lighting. //"panels[][]" holds the flat and sloped panels for each spot, while //"hstep_panels[][]" holds side panels in cases of step-like formations. //They require a separate array because a single "elevation[][]" spot can //have a panel on top and a panel on the side like stairs. I64 i,j,l,k1,k2,x,y,xx,yy; MemSet(elevations,0,sizeof(elevations)); MemSet(panels,0,sizeof(panels)); for (i=0;i>3); } CDC *main_dc; U0 DrawIt(CTask *,CDC *dc) { main_dc->flags|=DCF_NO_TRANSPARENTS; GrBlot(dc,0,0,main_dc); } /* $SP,"<2>",2$ $SP,"<3>",3$ Cores render strips that +/- 15%. The cores check the panel map array and render the panel for each square, marking-it done. The depth buf is not locked in the graphic routines so we get some glitches. */ I64 update_jiffy_limit; U0 MPDrawIt(CTask *task,CDC *dc) { //This is identical to the previous routine but is run by core#1 I64 j,strip_width,*s2w,x1,y1,z1, xx,yy, xh,yh,zh,yh2,xh2,x1h,y1h,x1wa,y1wa,x1wb,y1wb, x3,y3,z3, cx=task->win_pixel_width>>1, cy=task->win_pixel_height>>1; Panel reg *tempp; xx=x/(MAP_SCALE*COORDINATE_SCALE); yy=y/(MAP_SCALE*COORDINATE_SCALE); //World to screen coordinates GrIdentEqu(dc->r); GrRotZEqu(dc->r,2); GrRotXEqu(dc->r,); GrRotZEqu(dc->r,1); GrSetRotMat(dc,dc->r); //Screen to world coordinates //This gives us the vects for stepping through the grid in //the direction the plane is facing. we step horizontally and vertically //and use the reciprocal slope principle y=mx+b and y=(-1/m)x+b are perpendicular. s2w=GrIdent; GrRotZEqu(s2w,-1); GrRotXEqu(s2w,-); GrRotZEqu(s2w,-2); xh=0; yh=0; zh=-256; GrRot(s2w,&xh,&yh,&zh); //The layer for core#1 is not cleared automatically //it is persistent. I have carefully syncronized to the update //cycle initiated by core#0 to prevent flicker. dc->flags|=DCF_TRANSFORMATION; dc->transform=&FSTransform; dc->x=cx; dc->y=cy; //dc->x and the translation part of dc->r are identical in effect, //but we use both to show-off. We could add offsets together and use one or the other. x1=-x>>COORDINATE_BITS; y1=-y>>COORDINATE_BITS; z1=-z>>COORDINATE_BITS; GrRot(dc->r,&x1,&y1,&z1); GrSetTranslation(dc->r,x1,y1,z1); //This is a refinement. if (Abs(*180/)>90) { x3=0; y3=-cy; z3=0; GrRot(s2w,&x3,&y3,&z3); xx+=x3; yy+=y3; } if (Gs->num&1) { //alternate left-right,right-left yh2=-yh; xh2=-xh; } else { yh2=yh; xh2=xh; } //Calc starting point. x1wa=xx<<8+xh*strip_height>>1/1.3*(Gs->num+1.15); y1wa=yy<<8+yh*strip_height>>1/1.3*(Gs->num+1.15); x1wb=0; y1wb=0; xh=-xh; //Back to front to help with depth. yh=-yh; //Take half steps to cover whole grid. xh>>=1; yh>>=1; xh2>>=1; yh2>>=1; for (strip_width=0;sys_jiffies>8; y1=y1h>>8; if (0<=x1num)) { if (tempp->cnt>8*(1.1-Gs->idle_factor)) { dc->color=tempp->color; tempp->cnt=GrFillPoly3(dc,tempp->n,tempp->pts); } else tempp->cnt++; } } x1h+=xh; y1h+=yh; } x1wb-=yh2; y1wb+=xh2; if (strip_width&1) { x1wa-=x1wb; y1wa-=y1wb; } else { x1wa+=x1wb; y1wa+=y1wb; } } Free(s2w); mp.strip_width[Gs->num]=strip_width; LBtr(&mp.update_not_done_flags,Gs->num); } U0 APEagleDiveTask(CTask *master_task) { CDC *dc=DCAlias(main_dc,master_task); if (!IsSysDeterministic) Preempt(ON); while (!mp.app_done) { while (!Bt(&mp.update_not_done_flags,Gs->num) && !mp.app_done) Sleep(1); if (!mp.app_done) MPDrawIt(master_task,dc); } //We made an alias of this we don't want freed. dc->depth_buf=NULL; DCDel(dc); LBtr(&mp.app_not_done_flags,Gs->num); } U0 DrawHorizon(CDC *dc) { I64 x1,y1,z1,x2,y2,z2,xh,yh,zh,*s2w=GrIdent, cx=Fs->win_pixel_width>>1, cy=Fs->win_pixel_height>>1; CD3I32 p[4]; I32 *old_db=dc->depth_buf; dc->depth_buf=NULL; GrIdentEqu(dc->r); GrRotZEqu(dc->r,2); GrRotXEqu(dc->r,); GrRotZEqu(dc->r,1); GrSetRotMat(dc,dc->r); dc->flags&=~DCF_TRANSFORMATION; dc->transform=&FSTransform; dc->x=cx; dc->y=cy; GrRotZEqu(s2w,-1); GrRotXEqu(s2w,-); GrRotZEqu(s2w,-2); xh=0; yh=0; zh=-256; GrRot(s2w,&xh,&yh,&zh); Free(s2w); x1=xh+yh*32; y1=yh-xh*32; z1=0; (*dc->transform)(dc,&x1,&y1,&z1); x2=xh-yh*32; y2=yh+xh*32; z2=0; (*dc->transform)(dc,&x2,&y2,&z2); DCClipLine(dc,&x1,&y1,&x2,&y2); MemSet(p,0,sizeof(p)); if (x2width-1) { p[0].x=0; p[0].y=0; p[1].x=dc->width-1; p[1].y=0; p[2].x=dc->width-1; p[2].y=y2; p[3].x=0; p[3].y=y1; if (-/2<=1color=LTCYAN; else dc->color=LTGREEN; GrFillPoly3(dc,4,p); p[0].y=dc->height-1; p[1].y=dc->height-1; if (-/2<=1color=LTGREEN; else dc->color=LTCYAN; GrFillPoly3(dc,4,p); } else { if (y2height-1) { p[0].x=0; p[0].y=0; p[1].x=0; p[1].y=dc->height-1; p[2].x=x2; p[2].y=dc->height-1; p[3].x=x1; p[3].y=0; if (x1color=LTCYAN; else dc->color=LTGREEN; GrFillPoly3(dc,4,p); p[0].x=dc->width-1; p[1].x=dc->width-1; if (x1color=LTGREEN; else dc->color=LTCYAN; GrFillPoly3(dc,4,p); } } dc->depth_buf=old_db; } U0 BSPEagleDive() { CDC *dc=DCAlias(main_dc,Fs); I64 i,xx,yy,height,bkcolor, cx=Fs->win_pixel_width>>1, cy=Fs->win_pixel_height>>1; F64 min_strip_width; Fish *tempf; update_jiffy_limit=sys_jiffies+JIFFY_FREQ/40; MemSet(panels_processed_bitmap,0,(num_panels+7)>>3); xx=x/(MAP_SCALE*COORDINATE_SCALE); yy=y/(MAP_SCALE*COORDINATE_SCALE); height=z/COORDINATE_SCALE-elevations[yy][xx]; if (height<0) { if (elevations[yy][xx]>WATER_ELEVATION*MAP_SCALE) { dc->color=bkcolor=BLACK; if (!game_over) { GrRect(dc,0,0,dc->width,dc->height); music_mute=TRUE; Beep; game_over=TRUE; music_mute=FALSE; } } else bkcolor=BLUE; } else bkcolor=LTCYAN; if (height>=0 && !(-/4<=Wrap(-)x-xx)+SqrI64(tempf->y-yy)x,tempf->y,tempf->z,$IB,"<1>",1$); tempf=tempf->next; } while (mp.update_not_done_flags) Sleep(1); min_strip_width=MAX_F64; for (i=0;icolor=bkcolor; GrRect(dc,0,0,dc->width,dc->height); } dc->pen_width=2; if (bkcolor==BLUE) dc->color=WHITE; else dc->color=BLACK; dc->flags&=~DCF_TRANSFORMATION; GrLine3(dc,cx+5,cy,0,cx-5,cy,0); GrLine3(dc,cx,cy+5,0,cx,cy-5,0); GrPrint(dc,0,0,"1:%5.1f :%5.1f 2:%5.1f Strip:%5d", 1*180/,*180/,2*180/,strip_height); GrPrint(dc,0,FONT_HEIGHT,"x:%5.1f y:%5.1f z:%5.1f height:%3d score:%d high:%d", ToF64(x)/COORDINATE_SCALE,ToF64(y)/COORDINATE_SCALE,ToF64(z)/COORDINATE_SCALE, height,game_score,best_score); if (game_over && Blink) { dc->color=RED; GrPrint(dc,(Fs->win_pixel_width-9*FONT_WIDTH)/2, (Fs->win_pixel_height-FONT_HEIGHT)/2,"Game Over"); } else if (tT-game_t0<5.0 && Blink) { dc->color=WHITE; GrPrint(dc,(Fs->win_pixel_width-10*FONT_WIDTH)/2, (Fs->win_pixel_height-FONT_HEIGHT)/2,"Catch Fish"); } //We made an alias of this we don't want freed. dc->depth_buf=NULL; DCDel(dc); WinMgrSync; } #define ANIMATE_MS 10 U0 AnimateTask(I64) { //This just steadily moves the airplane fwd. I64 *s2w,x1,y1,z1; F64 t0=tT,mS; Fish *tempf,*tempf1; while (TRUE) { mS=1000*(tT-t0); t0=tT; if (!game_over) { //Screen to world coordinates s2w=GrIdent; GrRotZEqu(s2w,-1); GrRotXEqu(s2w,-); GrRotZEqu(s2w,-2); x1=0;y1=0;z1=-speed*mS*COORDINATE_SCALE; GrRot(s2w,&x1,&y1,&z1); x+=x1; y+=y1; z+=z1; Free(s2w); x1=x/COORDINATE_SCALE; y1=y/COORDINATE_SCALE; z1=z/COORDINATE_SCALE; if (z1next; if (SqrI64(tempf->x-x1)+SqrI64(tempf->y-y1)best_score) best_score=game_score; QueRem(tempf); Free(tempf); music_mute=TRUE; Snd(1000); Sleep(200); Snd(0); music_mute=FALSE; } tempf=tempf1; } } else { if (-/4<=<=/4) speed+=0.0005; else if (-3*/4<=<=3*/4) speed+=0.0001; else speed-=0.0001; speed=Limit(speed+(0.0005-0.0002*Abs()/(/4)),0.1,5.0); } } WinMgrSync; } } U0 MPEnd() { update_jiffy_limit=0; mp.app_not_done_flags=1<task_end_cb=ExtFind("SndTaskEndCB");//(Can't take addr of an extern function.) #else Fs->task_end_cb=&SndTaskEndCB; #endif MusicSettingsRst; music_stacatto_factor=0.2; while (TRUE) { Play("3eBDEDBDEDFEEDFEED"); Play("BDEDBDEDFEEDFEED"); } } U0 Init(I64 _mp_cnt) { I64 i; main_dc=DCNew(DCT_COLOR8,GR_WIDTH,GR_HEIGHT); critical_section_flag=0; game_over=FALSE; game_score=0; MemSet(&mp,0,sizeof(MPCtrl)); if (_mp_cnt<=mp_cnt) mp.mp_cnt=_mp_cnt; else mp.mp_cnt=mp_cnt; QueInit(&fish_root); InitMap; DCAllocDepthBuf(main_dc); Fs->win_max_refresh=30.0; strip_height=128; =-90.0*/180.0; 1= 0.0*/180.0; 2= 0.0*/180.0; speed = 2.5; x=MAP_WIDTH>>1 *COORDINATE_SCALE*MAP_SCALE; y=MAP_HEIGHT>>1*COORDINATE_SCALE*MAP_SCALE; z=64 *COORDINATE_SCALE*MAP_SCALE; for (i=1;itask_end_cb=&TaskEndCB; game_t0=tT; } U0 CleanUp() { Fish *tempf=fish_root.next,*tempf1; Panel *tempp=panel_root,*tempp1; MPEnd; while (tempf!=&fish_root) { tempf1=tempf->next; QueRem(tempf); Free(tempf); tempf=tempf1; } while (tempp) { tempp1=tempp->next; Free(tempp->pts); Free(tempp); tempp=tempp1; } Free(panels_processed_bitmap); DCDel(main_dc); } U0 EagleDive(I64 _mp_cnt=MP_MAX_PROCESSORS) { I64 ch,sc; F64 pp,tt1,tt2; SettingsPush; //See $LK,"SettingsPush","MN:SettingsPush"$ //We really can't afford to run at 60Hz. This is how often VGA //memory is updated, not related to actual hardware refresh rates. WordStat; MenuPush( "File {" " Abort(,CH_SHIFT_ESC);" " Exit(,CH_ESC);" "}" "Play {" " Restart(,'\n');" " Down(,,SC_CURSOR_UP);" " Up(,,SC_CURSOR_DOWN);" " Left(,,SC_CURSOR_LEFT);" " Right(,,SC_CURSOR_RIGHT);" "}" ); WinMax; WinBorder; "Initializing...\n"; Fs->song_task=Spawn(&SongTask,NULL,"Song",,Fs); Init(_mp_cnt); Fs->animate_task=Spawn(&AnimateTask,NULL,"Animate",,Fs); DocCursor; DocClear; Fs->draw_it=&DrawIt; try //in case is pressed. do { if (ScanKey(&ch,&sc)) { pp=; tt1=1; tt2=2; switch (ch) { case 0: switch (sc.u8[0]) { case SC_CURSOR_DOWN: +=-CTRLS_SCALE*Cos(tt1); 2+=-CTRLS_SCALE*Sin(tt1)*Sin(); break; case SC_CURSOR_UP: -=-CTRLS_SCALE*Cos(tt1); 2-=-CTRLS_SCALE*Sin(tt1)*Sin(); break; case SC_CURSOR_RIGHT: 1+=CTRLS_SCALE; break; case SC_CURSOR_LEFT: 1-=CTRLS_SCALE; break; } break; case '\n': Fs->draw_it=NULL; CleanUp; WinMgrSync; Init(_mp_cnt); Fs->draw_it=&DrawIt; break; } 1=Wrap(1); =Wrap(); 2=Wrap(2); } else BSPEagleDive; } while (ch!=CH_SHIFT_ESC && ch!=CH_ESC); catch CatchAll; SettingsPop; CleanUp; #ifjit AcctRegWriteBranch("TempleOS/EagleDive","I64 best_score=%d;\n",best_score); #endif MenuPop; } EagleDive;   " "+ + & &   ):_