//This uses $LK,"fixed-point","FI:::/TempleOS/Demo/Lectures/FixedPoint.CPP"$. AcctRegSetDftEntry("TempleOS/DiningStars","F64 best_score=9999;\n"); AcctRegExeBranch("TempleOS/DiningStars"); #define PERSON_SCALE 6.0 $SP,"<1>",1$ $SP,"<2>",2$ $SP,"<3>",3$ #define PLANT_SCALE 6.0 $SP,"<4>",4$ $SP,"<5>",5$ class Wall { Wall *next,*last; CD3I32 p1,p2; I64 cpu_num; } walls_root; #define SCREEN_SCALE 1024 #define PLOT_GRID_WIDTH 24 #define PLOT_GRID_HEIGHT 24 #define MAN_HEIGHT 300 #define WALL_HEIGHT 1.0 #define BLUEPRINT_SCALE 4 CDC *blueprint_dc; I64 blueprint_width,blueprint_height; U8 *blueprint=NULL, *panels_processed=NULL; I64 man_xx,man_yy; F64 man_; F64 t0,tf; #define NUM_PERSONS 16 class Person { I64 x,y; } persons[NUM_PERSONS]; U0 DSTransform(CDC *dc,I64 *x,I64 *y,I64 *z) { I64 zz; GrRot(dc->r,x,y,z); zz=SCREEN_SCALE/3+*z; if (zz<1) zz=1; *x=SCREEN_SCALE/2* *x/zz; *y=SCREEN_SCALE/2* (*y+MAN_HEIGHT)/zz; *x+=dc->x; *y+=dc->y; *z+=dc->z; } public U0 DSLighting(CDC *dc,CD3I32 *p1,CD3I32 *p2,CD3I32 *p3,CColorROPU32 color) { CD3I32 v1,v2; I64 i,vn_x,vn_y,vn_z; F64 d; v1.x=p1->x-p2->x; v1.y=p1->y-p2->y; v1.z=p1->z-p2->z; v2.x=p3->x-p2->x; v2.y=p3->y-p2->y; v2.z=p3->z-p2->z; //V1 and V2 are vects along two sides //of the tri joined at p2. vn_x=v1.y*v2.z-v1.z*v2.y; vn_y=v1.z*v2.x-v1.x*v2.z; vn_z=v1.x*v2.y-v1.y*v2.x; if (d=Sqrt(SqrI64(vn_x)+SqrI64(vn_y)+SqrI64(vn_z))) d=1<<16/d; vn_x*=d; vn_y*=d; vn_z*=d; //Vn is the cross product of V1 and V3 //which means it is perpendicular. It //is the normal vect to the surface. //It has been scaled to length 65536. //Light source has been scaled to length 65536. i=(vn_x*dc->ls.x+vn_y*dc->ls.y+vn_z*dc->ls.z)>>16; i=(0x8000+i)>>1;//Tables are too dark ****TODO**** //The dot product of the light source //vect and the surface normal //gives an illumination number. //65536*65536>>16=65536 //TempleOS will generate a random U16 //and compare to dither_probability and //will pick from two colors. //Probability dithering does not work with pen_width>1 at this time. if (color.c0.rop&ROPBF_TWO_SIDED) { color.c0.rop&=~ROPBF_TWO_SIDED; i=AbsI64(i)<<1; } else i+=65536; if (color.c0.rop&ROPBF_HALF_RANGE_COLOR) { color.c0.rop&=~ROPBF_HALF_RANGE_COLOR; i>>=1; if (color>=8) { color-=8; i+=65536; } } if (i<65536) { dc->color=ROPF_PROBABILITY_DITHER+color<<16+BLACK; dc->dither_probability=i; } else { dc->color=ROPF_PROBABILITY_DITHER+(color^8)<<16+color; dc->dither_probability=i-65536; } } #define LOS_SCALE 4 Bool LOSPlot(U8 *,I64 x,I64 y,I64) { if (blueprint[(y/LOS_SCALE)*blueprint_width+(x/LOS_SCALE)]==WHITE) return FALSE; else return TRUE; } Bool LOS(I64 x1,I64 y1,I64 x2,I64 y2) { //Line of sight return LOSLine(NULL,x1*LOS_SCALE/SCREEN_SCALE,y1*LOS_SCALE/SCREEN_SCALE,0, x2*LOS_SCALE/SCREEN_SCALE,y2*LOS_SCALE/SCREEN_SCALE,0,&LOSPlot); } I64 mp_not_done_flags; I64 *r1,*r2,*r3,*s2w,cx,cy,xh,yh,zh,x1h,y1h; U0 MPDrawWalls(CDC *_dc) { CD3I32 poly[4]; I64 i,j,n,cpu_num=Gs->num,xx,yy,x,y,x1,y1,z1,x2,y2,_x1h,_y1h,dx,dy,xx1,yy1,xx2,yy2, c,x1w,y1w,*_r3=MAllocIdentical(r3); Wall *tempw; CDC *dc=MAllocIdentical(_dc); dc->r=MAllocIdentical(_dc->r); _x1h=x1h-xh*cpu_num; _y1h=y1h-yh*cpu_num; for (j=cpu_num;jcolor=BROWN; else dc->color=c; poly[0].x=x; poly[0].y=y; poly[0].z=0; poly[1].x=x+SCREEN_SCALE; poly[1].y=y; poly[1].z=0; poly[2].x=x+SCREEN_SCALE; poly[2].y=y+SCREEN_SCALE; poly[2].z=0; poly[3].x=x; poly[3].y=y+SCREEN_SCALE; poly[3].z=0; GrFillPoly3(dc,4,poly); if (!((yy*blueprint_width+xx)%3)) { if (c==GREEN) { x1=x+SCREEN_SCALE/2; y1=y+SCREEN_SCALE/2; z1=0; GrTransform(dc,&x1,&y1,&z1); if (z1>0) SpritePlotRotMat3B(dc,x+SCREEN_SCALE/2,y+SCREEN_SCALE/2,0,$IB,"<4>",4$,_r3); } else if (c==BROWN) { x1=x+SCREEN_SCALE/2; y1=y+SCREEN_SCALE/2; z1=0; GrTransform(dc,&x1,&y1,&z1); if (z1>0) SpritePlotRotMat3B(dc,x+SCREEN_SCALE/2,y+SCREEN_SCALE/2,0,$IB,"<5>",5$,_r3); } } } } x1w-=yh; y1w+=xh; } _x1h-=xh*mp_cnt; _y1h-=yh*mp_cnt; } tempw=walls_root.next; while (tempw!=&walls_root) { if (tempw->cpu_num==cpu_num) { dc->color=YELLOW; x1=tempw->p1.x*SCREEN_SCALE/BLUEPRINT_SCALE-man_xx; y1=tempw->p1.y*SCREEN_SCALE/BLUEPRINT_SCALE-man_yy; x2=tempw->p2.x*SCREEN_SCALE/BLUEPRINT_SCALE-man_xx; y2=tempw->p2.y*SCREEN_SCALE/BLUEPRINT_SCALE-man_yy; //The foreshortening distorts Z coordinates in a funny way, //so we do the wall in tiny pieces. n=2*(AbsI64(x2-x1)+AbsI64(y2-y1))/SCREEN_SCALE; if (n<1) n=1; dx=(x2-x1)<<16/n; dy=(y2-y1)<<16/n; xx1=x1<<16; yy1=y1<<16; for (i=0;i>16; poly[0].y=yy1>>16; poly[0].z=0; poly[1].x=xx2>>16; poly[1].y=yy2>>16; poly[1].z=0; poly[2].x=xx2>>16; poly[2].y=yy2>>16; poly[2].z=WALL_HEIGHT*SCREEN_SCALE; poly[3].x=xx1>>16; poly[3].y=yy1>>16; poly[3].z=WALL_HEIGHT*SCREEN_SCALE; GrFillPoly3(dc,4,poly); xx1=xx2; yy1=yy2; } dc->color=BLACK; dc->pen_width=1; GrLine3(dc,x1,y1,0,x1,y1,WALL_HEIGHT*SCREEN_SCALE); GrLine3(dc,x2,y2,0,x2,y2,WALL_HEIGHT*SCREEN_SCALE); } tempw=tempw->next; } Free(_r3); Free(dc->r); Free(dc); LBtr(&mp_not_done_flags,cpu_num); } U0 DrawIt(CTask *task,CDC *dc) { I64 i,j,xx,yy,zz,x,y; U8 *temps; F64 tt; cx=task->win_pixel_width/2; cy=task->win_pixel_height/2; DCAllocDepthBuf(dc); MemSet(panels_processed,0,(blueprint_width*blueprint_height+7)>>3); //World to screen GrRotZEqu(dc->r,man_+/2); GrRotXEqu(dc->r,/2); GrSetRotMat(dc,dc->r); xh=-man_xx/SCREEN_SCALE; yh=-man_yy/SCREEN_SCALE; zh=0; GrRot(dc->r,&xh,&yh,&zh); GrSetTranslation(dc->r,xh,yh,zh); //Screen to world s2w=GrRotX(-/2,task); GrRotZEqu(s2w,-man_-/2); xh=0; yh=0; zh=SCREEN_SCALE; GrRot(s2w,&xh,&yh,&zh); //Rotate light source xx=dc->ls.x; yy=dc->ls.y; zz=-dc->ls.z; (*dc->transform)(dc,&xx,&yy,&zz); dc->ls.x=xx; dc->ls.y=yy; dc->ls.z=zz; dc->flags|=DCF_TRANSFORMATION; dc->transform=&DSTransform; dc->lighting=&DSLighting; dc->x=cx; dc->y=cy; r1=GrRotX(-/2,task); GrRotZEqu(r1,tT); GrScaleMatEqu(r1,PERSON_SCALE); r2=GrIdent(task); GrScaleMatEqu(r2,PERSON_SCALE); r3=GrRotX(-/2,task); GrScaleMatEqu(r3,PLANT_SCALE); x1h=man_xx+yh*PLOT_GRID_WIDTH/2+xh*(PLOT_GRID_HEIGHT-1); y1h=man_yy-xh*PLOT_GRID_WIDTH/2+yh*(PLOT_GRID_HEIGHT-1); xh>>=1; yh>>=1; mp_not_done_flags=1<0) { tt=2*Tri(tT,1.0); if (tt<1.0) temps=SpriteInterpolate($IB,"<2>",2$,$IB,"<1>",1$,tt); else temps=SpriteInterpolate($IB,"<1>",1$,$IB,"<3>",3$,tt-1.0); SpritePlotRotMat3B(dc,x,y,0,temps,r1); Free(temps); } } } Free(r1); Free(r2); Free(r3); //Draw BluePrint heads-up display, scaled 2 pixels Free(dc->r); GrSetRotMat(dc,GrIdent(task)); dc->x=task->win_pixel_width -2*blueprint_width; dc->y=task->win_pixel_height-2*blueprint_height; dc->z=0; dc->transform=&GrTransform; dc->pen_width=2; for (i=0;icolor=blueprint[(blueprint_height-1-i)*blueprint_width+j]; GrPlot3(dc,2*j,2*i,0); } //Draw Things on heads-up BluePrint dc->color=LTPURPLE; for (i=0;icolor=LTCYAN; GrPlot3(dc,2*(man_xx/SCREEN_SCALE),2*(blueprint_height-1-man_yy/SCREEN_SCALE),0); dc->color=LTGREEN; GrLine(dc,cx-5,cy,cx+5,cy); GrLine(dc,cx,cy-5,cx,cy+5); Free(s2w); } U0 BluePrintDrawIt(CTask *task,CDC *dc) { task->text_attr=BLUE<<4+WHITE; GrBlot(dc,(task->win_pixel_width-blueprint_dc->width)>>1, (task->win_pixel_height-blueprint_dc->height)>>1,blueprint_dc); } #define MAN_START_X 0 #define MAN_START_Y 1 U0 MakeBluePrint() { I64 msg_code,i,x1,y1,x2,y2,p1,p2,color=WHITE,cpu_num=0; Wall *tempw; DCFill(blueprint_dc,LTBLUE); SettingsPush; //See $LK,"SettingsPush","MN:SettingsPush"$ Fs->win_inhibit=WIF_ALL-WIF_BORDER; DocClear; "Draw Floor Plan: Walls in WHITE Tables in BROWN Plants in GREEN "; WinMax; WordStat; Fs->draw_it=&BluePrintDrawIt; do { msg_code=GetMsg(&p1,&p2, 1<=0) color=i; break; case MSG_IP_L_DOWN: if (color==WHITE) { p1-=(Fs->win_pixel_width-blueprint_dc->width)>>1; p2-=(Fs->win_pixel_height-blueprint_dc->height)>>1; x1=p1; y1=p2; x2=p1; y2=p2; blueprint_dc->color=ROP_XOR+color^LTBLUE; while (msg_code!=MSG_IP_L_UP) { GrLine(blueprint_dc,x1,y1,x2,y2); msg_code=GetMsg(&p1,&p2, 1<win_pixel_width-blueprint_dc->width)>>1; p2-=(Fs->win_pixel_height-blueprint_dc->height)>>1; GrLine(blueprint_dc,x1,y1,x2,y2); x2=p1; y2=p2; } blueprint_dc->color=color; GrLine(blueprint_dc,x1,y1,x2,y2); tempw=CAlloc(sizeof(Wall)); tempw->p1.x=x1; tempw->p1.y=blueprint_dc->height-y1; tempw->p2.x=x2; tempw->p2.y=blueprint_dc->height-y2; tempw->cpu_num=cpu_num++%mp_cnt; QueIns(tempw,walls_root.last); } else { p1-=(Fs->win_pixel_width-blueprint_dc->width)>>1; p2-=(Fs->win_pixel_height-blueprint_dc->height)>>1; x1=p1; y1=p2; x2=p1; y2=p2; blueprint_dc->color=ROP_XOR+color^LTBLUE; while (msg_code!=MSG_IP_L_UP) { GrRectB(blueprint_dc,x1,y1,x2,y2); msg_code=GetMsg(&p1,&p2, 1<win_pixel_width-blueprint_dc->width)>>1; p2-=(Fs->win_pixel_height-blueprint_dc->height)>>1; GrRectB(blueprint_dc,x1,y1,x2,y2); x2=p1; y2=p2; } blueprint_dc->color=color; GrRectB(blueprint_dc,x1,y1,x2,y2); } break; case MSG_KEY_DOWN: break; } } while (msg_code!=MSG_KEY_DOWN || !p1); GetMsg(,,1<width/BLUEPRINT_SCALE; blueprint_height=blueprint_dc->height/BLUEPRINT_SCALE; Free(blueprint); Free(panels_processed); blueprint=MAlloc(blueprint_width*blueprint_height*sizeof(U8)); MemSet(blueprint,WHITE,blueprint_width*blueprint_height); panels_processed=MAlloc((blueprint_width*blueprint_height+7)>>3); for (y=1;ySCREEN_SCALE/2 || blueprint[(y/SCREEN_SCALE)*blueprint_width+x/SCREEN_SCALE-1]==WHITE && x-RoundI64(x,SCREEN_SCALE)SCREEN_SCALE/2 || blueprint[(y/SCREEN_SCALE-1)*blueprint_width+x/SCREEN_SCALE]==WHITE && y-RoundI64(y,SCREEN_SCALE)task_end_cb=&SndTaskEndCB; MusicSettingsRst; while (TRUE) { Play("2q.A#1eG2AeA#qAq.A#1eG2eAeA#qA"); Play("q.A#1eG2A#A1qG2q.A#1eG2A#A1qG"); Play("3eA#A2qG3eA#A2qG3eA#A2G3AA#A2qG"); } } U0 MoveMan(F64 ) { I64 x,y,color,step=SCREEN_SCALE/2; do { x=man_xx+step*Cos(); y=man_yy-step*Sin(); x=Limit(x,0,blueprint_width*SCREEN_SCALE); y=Limit(y,0,blueprint_height*SCREEN_SCALE); color=blueprint[y/SCREEN_SCALE*blueprint_width+x/SCREEN_SCALE]; if (color==LTBLUE || color==GREEN) { man_xx=x; man_yy=y; break; } else step>>=1; } while (step); } #define MICRO_STEPS 4 U0 RotateMan(F64 d) { I64 i; for (i=0;itext_attr=BROWN<<4+WHITE; Preempt(OFF); WinBorder; WinMax; WordStat; Init; Fs->animate_task=Spawn(&AnimateTask,NULL,"Animate",,Fs); Fs->song_task=Spawn(&SongTask,NULL,"Song",,Fs); DocCursor; Fs->draw_it=&DrawIt; try { while (TRUE) { switch (GetKey(&sc)) { case CH_ESC: case CH_SHIFT_ESC: goto fs_done; case 0: switch (sc.u8[0]) { case SC_CURSOR_RIGHT: Spawn(&RotateMan,(/32)(I64)); break; case SC_CURSOR_LEFT: Spawn(&RotateMan,(-/32)(I64)); break; case SC_CURSOR_UP: MoveMan(man_); break; case SC_CURSOR_DOWN: MoveMan(man_+); break; } break; } } fs_done: } catch CatchAll; DocClear; SettingsPop; CleanUp; MenuPop; AcctRegWriteBranch("TempleOS/DiningStars","F64 best_score=%5.4f;\n",best_score); } DiningStars; ,                                      $E7EE77EE77EE"7"7EE"7"""""EE""                          #"!#! #  ##"# !! "!  "" p                                  ! ""#!%$&&'%! $$%!#"&&'#" $$&"#!%%'#)(**+)-,../-)(,,-)+*../+*(,,.*+)--/+10223154667510445132667320446231557398::;9=<>>?=98<<=9;:>>?;:8<<>:;9==?;A@BBCAEDFFGEA@DDEACBFFGCB@DDFBCAEEGCIHJJKIMLNNOMIHLLMIKJNNOKJHLLNJKIMMOKQPRRSQUTVVWUQPTTUQSRVVWSRPTTVRSQUUWSYXZZ[Y]\^^_]YX\\]Y[Z^^_[ZX\\^Z[Y]]_[a`bbcaedffgea`ddeacbffgcb`ddfbcaeegcihjjkimlnnomihllmikjnnokjhllnjkimmokp                                ! ""#!%$&&'%! $$%!#"&&'#" $$&"#!%%'#)(**+)-,../-)(,,-)+*../+*(,,.*+)--/+10223154667510445132667320446231557398::;9=<>>?=98<<=9;:>>?;:8<<>:;9==?;A@BBCAEDFFGEA@DDEACBFFGCB@DDFBCAEEGCIHJJKIMLNNOMIHLLMIKJNNOKJHLLNJKIMMOKQPRRSQUTVVWUQPTTUQSRVVWSRPTTVRSQUUWSYXZZ[Y]\^^_]YX\\]Y[Z^^_[ZX\\^Z[Y]]_[a`bbcaedffgea`ddeacbffgcb`ddfbcaeegcihjjkimlnnomihllmikjnnokjhllnjkimmokp                                     ! ""#!%$&&'%! $$%!#"&&'#" $$&"#!%%'#)(**+)-,../-)(,,-)+*../+*(,,.*+)--/+10223154667510445132667320446231557398::;9=<>>?=98<<=9;:>>?;:8<<>:;9==?;A@BBCAEDFFGEA@DDEACBFFGCB@DDFBCAEEGCIHJJKIMLNNOMIHLLMIKJNNOKJHLLNJKIMMOKQPRRSQUTVVWUQPTTUQSRVVWSRPTTVRSQUUWSYXZZ[Y]\^^_]YX\\]Y[Z^^_[ZX\\^Z[Y]]_[a`bbcaedffgea`ddeacbffgcb`ddfbcaeegcihjjkimlnnomihllmikjnnokjhllnjkimmok