TempleOSTS_131005.ISO

2018-09-08 21:45:52 +02:00
1 parent 1343005a29
commit 2d2a65d572
@@ -1,12 +1,10 @@
 //Change anything you want in this
 //acct file or others.

-#exe {OptOn(OPTf_WARN_PAREN);};
-#exe {OptOn(OPTf_WARN_DUP_TYPES);};
+OptOn(OPTf_WARN_PAREN);
+OptOn(OPTf_WARN_DUP_TYPES);
 #include "HOME/Adam3aLocalize"
 #include "HOME/Adam3bPkgs"
 #include "HOME/Adam3dKeyPlugIns"
 #include "HOME/Adam3eWrappers"
 #include "HOME/Adam3fSys"
-#exe {OptOff(OPTf_WARN_PAREN);};
-#exe {OptOff(OPTf_WARN_DUP_TYPES);};
@@ -0,0 +1,771 @@
+//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;j<PLOT_GRID_HEIGHT*2;j+=mp_cnt) {
+    x1w=_x1h;
+    y1w=_y1h;
+    for (i=0;i<PLOT_GRID_WIDTH*4;i++) {
+      xx=x1w/SCREEN_SCALE; yy=y1w/SCREEN_SCALE;
+      x=xx*SCREEN_SCALE-man_xx; y=yy*SCREEN_SCALE-man_yy;
+      if (1<=xx<blueprint_width-1 && 1<=yy<blueprint_height-1 &&
+	    !LBts(panels_processed,yy*blueprint_width+xx)) {
+	if ((c=blueprint[yy*blueprint_width+xx]) &&
+	      LOS(xx*SCREEN_SCALE+SCREEN_SCALE/2,yy*SCREEN_SCALE+SCREEN_SCALE/2,
+	      man_xx,man_yy)) {
+	  if (c==WHITE||c==LTBLUE)
+	    dc->color=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<n;i++) {
+	xx2=xx1+dx;
+	yy2=yy1+dy;
+	poly[0].x=xx1>>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<<mp_cnt-1;
+  for (i=0;i<mp_cnt;i++)
+    JobQue(&MPDrawWalls,dc,i);
+  while (mp_not_done_flags)
+    Yield;
+
+    //Draw Persons
+  for (i=0;i<NUM_PERSONS;i++) {
+    x=persons[i].x;
+    y=persons[i].y;
+    if (LOS(x,y,man_xx,man_yy)) {
+      x-=man_xx;
+      y-=man_yy;
+      xx=x;
+      yy=y;
+      zz=0;
+      GrTransform(dc,&xx,&yy,&zz);
+      if (zz>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;i<blueprint_height;i++)
+    for (j=0;j<blueprint_width;j++) {
+      dc->color=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;i<NUM_PERSONS;i++)
+    GrPlot3(dc,2*(persons[i].x/SCREEN_SCALE),2*(blueprint_height-1-persons[i].y/SCREEN_SCALE),0);
+  dc->color=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<<MSG_KEY_DOWN+1<<MSG_IP_L_DOWN+
+	  1<<MSG_IP_R_UP);
+    switch (msg_code) {
+      case MSG_IP_R_UP:
+	i=PopUpColor;
+	if (i>=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<<MSG_IP_L_UP+1<<MSG_IP_MOVE);
+	    p1-=(Fs->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<<MSG_IP_L_UP+1<<MSG_IP_MOVE);
+	    p1-=(Fs->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<<MSG_KEY_UP);
+
+  SettingsPop;
+}
+
+U0 Init()
+{
+  I64 i,j,x,y,c,c1;
+  QueInit(&walls_root);
+
+  blueprint_dc=DCNew(DCT_COLOR8,BLUEPRINT_SCALE*64,BLUEPRINT_SCALE*64);
+  MakeBluePrint;
+
+  DocClear;
+  "$$BG,LTGRAY$$"; NewLine(TEXT_ROWS/2-1);
+
+  blueprint_width =blueprint_dc->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;y<blueprint_height-1;y++)
+    for (x=1;x<blueprint_width-1;x++) {
+      c=LTBLUE;
+      for (i=0;i<BLUEPRINT_SCALE;i++)
+	for (j=0;j<BLUEPRINT_SCALE;j++)
+	  if ((c1=GrPeek(blueprint_dc,x*BLUEPRINT_SCALE+i,y*BLUEPRINT_SCALE+j))!=LTBLUE)
+	    c=c1;
+      blueprint[(blueprint_height-1-y)*blueprint_width+x]=c;
+    }
+  DCDel(blueprint_dc);
+
+  man_xx=(1+MAN_START_X)*SCREEN_SCALE;
+  man_yy=(blueprint_height-1-MAN_START_Y)*SCREEN_SCALE;
+  man_é=0;
+
+  for (i=0;i<NUM_PERSONS;i++) {
+    do {
+      persons[i].x=RandU64%((blueprint_width-2)*SCREEN_SCALE)+SCREEN_SCALE;
+      persons[i].y=RandU64%((blueprint_height-2)*SCREEN_SCALE)+SCREEN_SCALE;
+    } while (blueprint[(persons[i].y/SCREEN_SCALE)*blueprint_width+persons[i].x/SCREEN_SCALE]==WHITE);
+  }
+  tf=0;
+  t0=tT;
+}
+
+U0 AnimateTask(I64)
+{
+  I64 i,x,y,dd;
+  while (TRUE) {
+    dd=0.25*SCREEN_SCALE*Sin(tT/2);
+    for (i=0;i<NUM_PERSONS;i++) {
+      x=persons[i].x;
+      y=persons[i].y;
+      if (i&1)
+	x+=dd;
+      else
+	y+=dd;
+      if (0<=x<=blueprint_width*SCREEN_SCALE &&
+	    0<=y<=blueprint_height*SCREEN_SCALE &&
+	    blueprint[(y/SCREEN_SCALE)*blueprint_width+x/SCREEN_SCALE]!=WHITE) {
+	if (blueprint[(y/SCREEN_SCALE)*blueprint_width+x/SCREEN_SCALE+1]==WHITE &&
+	      x-RoundI64(x,SCREEN_SCALE)>SCREEN_SCALE/2 ||
+	      blueprint[(y/SCREEN_SCALE)*blueprint_width+x/SCREEN_SCALE-1]==WHITE &&
+	      x-RoundI64(x,SCREEN_SCALE)<SCREEN_SCALE/2)
+	  x=RoundI64(x,SCREEN_SCALE)+SCREEN_SCALE/2;
+	if (blueprint[(y/SCREEN_SCALE+1)*blueprint_width+x/SCREEN_SCALE]==WHITE &&
+	      y-RoundI64(y,SCREEN_SCALE)>SCREEN_SCALE/2 ||
+	      blueprint[(y/SCREEN_SCALE-1)*blueprint_width+x/SCREEN_SCALE]==WHITE &&
+	      y-RoundI64(y,SCREEN_SCALE)<SCREEN_SCALE/2)
+	  y=RoundI64(y,SCREEN_SCALE)+SCREEN_SCALE/2;
+	persons[i].x=x;
+	persons[i].y=y;
+      }
+    }
+    Sleep(20);
+  }
+}
+
+U0 CleanUp()
+{
+  Free(blueprint);
+  blueprint=NULL;
+  Free(panels_processed);
+  panels_processed=NULL;
+  QueDel(&walls_root);
+}
+
+U0 SongTask(I64)
+{ //Song by Terry A. Davis
+  Fs->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;i<MICRO_STEPS;i++) {
+    man_é+=d/MICRO_STEPS;
+    Sleep(15);
+  }
+}
+
+U0 DiningStars()
+{
+  I64 sc;
+  MenuPush(
+  "File {"
+  "  Abort(,CH_SHIFT_ESC);"
+  "  Exit(,CH_ESC);"
+  "}"
+  "Play {"
+  "  Fwd(,,SC_CURSOR_UP);"
+  "  Backward(,,SC_CURSOR_DOWN);"
+  "  Left(,,SC_CURSOR_LEFT);"
+  "  Right(,,SC_CURSOR_RIGHT);"
+      "}"
+      );
+
+  SettingsPush; //See $LK,"SettingsPush","MN:SettingsPush"$
+  Fs->text_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;
+,ÎÿÿÿÎÿÿÿûÿÿÿçÿÿÿûÿÿÿçÿÿÿµÿÿÿ�ÿÿÿƒÿÿÿ�ÿÿÿâÿÿÿµÿÿÿâÿÿÿûÿÿÿÎÿÿÿûÿÿÿÎÿÿÿûÿÿÿûÿÿÿçÿÿÿûÿÿÿûÿÿÿçÿÿÿûÿÿÿµÿÿÿûÿÿÿ�ÿÿÿûÿÿÿ�ÿÿÿâÿÿÿûÿÿÿµÿÿÿâÿÿÿ�ÿÿÿµÿÿÿâÿÿÿµÿÿÿâÿÿÿ�ÿÿÿ�ÿÿÿûÿÿÿµÿÿÿûÿÿÿâÿÿÿµÿÿÿûÿÿÿâÿÿÿ�ÿÿÿûÿÿÿ	
+	
+
+		␍␍	␍		
+	
+
+	␍
+␍÷ÿÿÿ÷ÿÿÿñÿÿÿ÷ÿÿÿ	ôÿÿÿ	÷ÿÿÿ		øÿÿÿçÿÿÿìÿÿÿçÿÿÿìÿÿÿçÿÿÿøÿÿÿøÿÿÿçÿÿÿðÿÿÿçÿÿÿðÿÿÿçÿÿÿøÿÿÿçÿÿÿçÿÿÿ			␍	␍		
+			
+
+
+␍␍␍
+$EºÿÿÿÝÿÿÿÈÿÿÿÝÿÿÿÈÿÿÿëÿÿÿºÿÿÿëÿÿÿºÿÿÿÏÿÿÿÝÿÿÿÈÿÿÿÏÿÿÿÝÿÿÿÈÿÿÿÏÿÿÿëÿÿÿºÿÿÿÏÿÿÿëÿÿÿ7ÝÿÿÿEÝÿÿÿEëÿÿÿ7ëÿÿÿ7ÏÿÿÿÝÿÿÿEÏÿÿÿÝÿÿÿEÏÿÿÿëÿÿÿ7Ïÿÿÿëÿÿÿ7EE"7"7ÏÿÿÿEÏÿÿÿEÏÿÿÿ"7Ïÿÿÿ"ºÿÿÿÈÿÿÿÈÿÿÿ"ºÿÿÿ"ºÿÿÿÏÿÿÿÈÿÿÿÏÿÿÿÈÿÿÿÏÿÿÿ"ºÿÿÿÏÿÿÿ"ºÿÿÿÈÿÿÿÝÿÿÿEÈÿÿÿÝÿÿÿEÈÿÿÿ"ºÿÿÿÈÿÿÿ"
+	
+␍
+
+␍	␍
+␍	
+
+␍      ␍ ␍#"!#! #  ##"#␍!! "!␍␍""␍Êp¨ÿÿÿûÿÿÿûÿÿÿÿÿÿûÿÿÿ·ÿÿÿûÿÿÿûÿÿÿ·ÿÿÿûÿÿÿÿÿÿûÿÿÿÿÿÿ·ÿÿÿûÿÿÿ·ÿÿÿ
+·ÿÿÿûÿÿÿöÿÿÿ·ÿÿÿûÿÿÿ
+ÚÿÿÿûÿÿÿöÿÿÿÚÿÿÿûÿÿÿ
+·ÿÿÿöÿÿÿ·ÿÿÿ
+ÚÿÿÿöÿÿÿÚÿÿÿºÿÿÿüÿÿÿ¼ÿÿÿþÿÿÿÉÿÿÿËÿÿÿ¶ÿÿÿ¸ÿÿÿÅÿÿÿ	ÇÿÿÿÊÿÿÿÌÿÿÿÒÿÿÿÔÿÿÿÄÿÿÿÆÿÿÿ
+ÌÿÿÿÎÿÿÿÑÿÿÿÓÿÿÿÕÿÿÿ×ÿÿÿÍÿÿÿÏÿÿÿÑÿÿÿÓÿÿÿöÿÿÿ¸ÿÿÿÿÿÿÿòÿÿÿ¸ÿÿÿóÿÿÿÇÿÿÿöÿÿÿïÿÿÿÇÿÿÿøÿÿÿöÿÿÿºÿÿÿòÿÿÿºÿÿÿóÿÿÿÉÿÿÿúÿÿÿïÿÿÿÉÿÿÿüÿÿÿóÿÿÿÇÿÿÿöÿÿÿïÿÿÿÇÿÿÿøÿÿÿñÿÿÿÔÿÿÿïÿÿÿíÿÿÿÔÿÿÿñÿÿÿóÿÿÿÉÿÿÿúÿÿÿïÿÿÿÉÿÿÿüÿÿÿñÿÿÿÖÿÿÿóÿÿÿíÿÿÿÖÿÿÿõÿÿÿñÿÿÿÔÿÿÿðÿÿÿíÿÿÿÔÿÿÿòÿÿÿðÿÿÿÛÿÿÿíÿÿÿìÿÿÿÛÿÿÿïÿÿÿñÿÿÿÖÿÿÿòÿÿÿíÿÿÿÖÿÿÿôÿÿÿðÿÿÿÝÿÿÿïÿÿÿìÿÿÿÝÿÿÿñÿÿÿ	ØÿÿÿýÿÿÿØÿÿÿÿÿÿÿäÿÿÿòÿÿÿäÿÿÿôÿÿÿ	ÜÿÿÿÜÿÿÿèÿÿÿöÿÿÿèÿÿÿøÿÿÿäÿÿÿòÿÿÿäÿÿÿôÿÿÿðÿÿÿçÿÿÿðÿÿÿéÿÿÿèÿÿÿöÿÿÿèÿÿÿøÿÿÿôÿÿÿëÿÿÿôÿÿÿíÿÿÿõÿÿÿãÿÿÿõÿÿÿãÿÿÿîÿÿÿÿÿÿÿîÿÿÿïÿÿÿçÿÿÿïÿÿÿçÿÿÿúÿÿÿòÿÿÿÿÿÿÿúÿÿÿòÿÿÿýÿÿÿÜÿÿÿýÿÿÿ÷ÿÿÿÞÿÿÿÿÿÿÿÿÿÿÿèÿÿÿ	ùÿÿÿêÿÿÿýÿÿÿÖÿÿÿ÷ÿÿÿØÿÿÿÿÿÿÿâÿÿÿ␍ùÿÿÿäÿÿÿÿÿÿÿçÿÿÿùÿÿÿéÿÿÿ
+÷ÿÿÿ␍ûÿÿÿùÿÿÿÿÿÿÿãÿÿÿùÿÿÿåÿÿÿóÿÿÿûÿÿÿõÿÿÿýÿÿÿûÿÿÿýÿÿÿøÿÿÿýÿÿÿøÿÿÿ ÷ÿÿÿûÿÿÿ÷ÿÿÿòÿÿÿýÿÿÿòÿÿÿ	
+
+	␍␍	␍	
+
+
+	␍␍   ! ""#!%$&&'%! $$%!#"&&'#" $$&"#!%%'#)(**+)-,../-)(,,-)+*../+*(,,.*+)--/+10223154667510445132667320446231557398::;9=<>>?=98<<=9;:>>?;:8<<>:;9==?;A@BBCAEDFFGEA@DDEACBFFGCB@DDFBCAEEGCIHJJKIMLNNOMIHLLMIKJNNOKJHLLNJKIMMOKQPRRSQUTVVWUQPTTUQSRVVWSRPTTVRSQUUWSYXZZ[Y]\^^_]YX\\]Y[Z^^_[ZX\\^Z[Y]]_[a`bbcaedffgea`ddeacbffgcb`ddfbcaeegcihjjkimlnnomihllmikjnnokjhllnjkimmokÊp¨ÿÿÿûÿÿÿûÿÿÿÿÿÿûÿÿÿ·ÿÿÿûÿÿÿûÿÿÿ·ÿÿÿûÿÿÿÿÿÿûÿÿÿÿÿÿ·ÿÿÿûÿÿÿ·ÿÿÿ
+·ÿÿÿûÿÿÿöÿÿÿ·ÿÿÿûÿÿÿ
+ÚÿÿÿûÿÿÿöÿÿÿÚÿÿÿûÿÿÿ
+·ÿÿÿöÿÿÿ·ÿÿÿ
+ÚÿÿÿöÿÿÿÚÿÿÿ·ÿÿÿ¹ÿÿÿÆÿÿÿ÷ÿÿÿÈÿÿÿ÷ÿÿÿ¹ÿÿÿ»ÿÿÿÈÿÿÿûÿÿÿÊÿÿÿûÿÿÿÆÿÿÿ÷ÿÿÿÈÿÿÿ÷ÿÿÿÓÿÿÿðÿÿÿÕÿÿÿðÿÿÿÈÿÿÿûÿÿÿÊÿÿÿûÿÿÿÕÿÿÿôÿÿÿ×ÿÿÿôÿÿÿÓÿÿÿñÿÿÿÕÿÿÿñÿÿÿÚÿÿÿîÿÿÿÜÿÿÿîÿÿÿÕÿÿÿóÿÿÿ×ÿÿÿóÿÿÿÜÿÿÿðÿÿÿÞÿÿÿðÿÿÿöÿÿÿ»ÿÿÿýÿÿÿòÿÿÿ»ÿÿÿýÿÿÿóÿÿÿÊÿÿÿïÿÿÿÊÿÿÿöÿÿÿ·ÿÿÿòÿÿÿ·ÿÿÿóÿÿÿÆÿÿÿ
+ïÿÿÿÆÿÿÿ
+óÿÿÿËÿÿÿïÿÿÿËÿÿÿñÿÿÿÓÿÿÿíÿÿÿÓÿÿÿóÿÿÿÅÿÿÿ	ïÿÿÿÅÿÿÿ	ñÿÿÿÍÿÿÿíÿÿÿÍÿÿÿñÿÿÿÒÿÿÿíÿÿÿÒÿÿÿðÿÿÿÖÿÿÿìÿÿÿÖÿÿÿñÿÿÿÎÿÿÿíÿÿÿÎÿÿÿðÿÿÿÒÿÿÿìÿÿÿÒÿÿÿ	ÝÿÿÿþÿÿÿÝÿÿÿþÿÿÿéÿÿÿ
+éÿÿÿ
+	×ÿÿÿ×ÿÿÿãÿÿÿãÿÿÿèÿÿÿ	èÿÿÿ	øÿÿÿøÿÿÿäÿÿÿäÿÿÿôÿÿÿôÿÿÿüÿÿÿþÿÿÿ÷ÿÿÿÿÿÿÿùÿÿÿöÿÿÿ␍øÿÿÿ␍ñÿÿÿÿÿÿÿóÿÿÿýÿÿÿ×ÿÿÿþÿÿÿ÷ÿÿÿÙÿÿÿþÿÿÿÿÿÿÿãÿÿÿóÿÿÿùÿÿÿåÿÿÿóÿÿÿýÿÿÿÛÿÿÿ÷ÿÿÿÝÿÿÿÿÿÿÿçÿÿÿ÷ÿÿÿùÿÿÿéÿÿÿ÷ÿÿÿÿÿÿÿãÿÿÿóÿÿÿùÿÿÿåÿÿÿóÿÿÿïÿÿÿèÿÿÿûÿÿÿñÿÿÿèÿÿÿÿÿÿÿçÿÿÿ÷ÿÿÿùÿÿÿéÿÿÿ÷ÿÿÿóÿÿÿìÿÿÿûÿÿÿõÿÿÿìÿÿÿôÿÿÿâÿÿÿûÿÿÿöÿÿÿäÿÿÿÿÿÿÿíÿÿÿýÿÿÿïÿÿÿîÿÿÿæÿÿÿûÿÿÿðÿÿÿèÿÿÿùÿÿÿñÿÿÿýÿÿÿûÿÿÿóÿÿÿ	
+
+	␍␍	␍	
+
+
+	␍␍   ! ""#!%$&&'%! $$%!#"&&'#" $$&"#!%%'#)(**+)-,../-)(,,-)+*../+*(,,.*+)--/+10223154667510445132667320446231557398::;9=<>>?=98<<=9;:>>?;:8<<>:;9==?;A@BBCAEDFFGEA@DDEACBFFGCB@DDFBCAEEGCIHJJKIMLNNOMIHLLMIKJNNOKJHLLNJKIMMOKQPRRSQUTVVWUQPTTUQSRVVWSRPTTVRSQUUWSYXZZ[Y]\^^_]YX\\]Y[Z^^_[ZX\\^Z[Y]]_[a`bbcaedffgea`ddeacbffgcb`ddfbcaeegcihjjkimlnnomihllmikjnnokjhllnjkimmokÊp¨ÿÿÿûÿÿÿûÿÿÿÿÿÿûÿÿÿ·ÿÿÿûÿÿÿûÿÿÿ·ÿÿÿûÿÿÿÿÿÿûÿÿÿÿÿÿ·ÿÿÿûÿÿÿ·ÿÿÿ
+·ÿÿÿûÿÿÿöÿÿÿ·ÿÿÿûÿÿÿ
+ÚÿÿÿûÿÿÿöÿÿÿÚÿÿÿûÿÿÿ
+·ÿÿÿöÿÿÿ·ÿÿÿ
+ÚÿÿÿöÿÿÿÚÿÿÿ¸ÿÿÿýÿÿÿºÿÿÿýÿÿÿÉÿÿÿýÿÿÿËÿÿÿýÿÿÿ¸ÿÿÿºÿÿÿÉÿÿÿËÿÿÿÉÿÿÿýÿÿÿËÿÿÿýÿÿÿØÿÿÿýÿÿÿÚÿÿÿýÿÿÿÉÿÿÿËÿÿÿØÿÿÿÚÿÿÿØÿÿÿþÿÿÿÚÿÿÿþÿÿÿàÿÿÿþÿÿÿâÿÿÿþÿÿÿØÿÿÿÚÿÿÿàÿÿÿâÿÿÿöÿÿÿ¹ÿÿÿýÿÿÿòÿÿÿ¹ÿÿÿýÿÿÿóÿÿÿÊÿÿÿýÿÿÿïÿÿÿÊÿÿÿýÿÿÿöÿÿÿ¹ÿÿÿòÿÿÿ¹ÿÿÿóÿÿÿÊÿÿÿïÿÿÿÊÿÿÿóÿÿÿÊÿÿÿýÿÿÿïÿÿÿÊÿÿÿýÿÿÿñÿÿÿÙÿÿÿýÿÿÿíÿÿÿÙÿÿÿýÿÿÿóÿÿÿÊÿÿÿïÿÿÿÊÿÿÿñÿÿÿÙÿÿÿíÿÿÿÙÿÿÿñÿÿÿÙÿÿÿþÿÿÿíÿÿÿÙÿÿÿþÿÿÿðÿÿÿáÿÿÿþÿÿÿìÿÿÿáÿÿÿþÿÿÿñÿÿÿÙÿÿÿíÿÿÿÙÿÿÿðÿÿÿáÿÿÿìÿÿÿáÿÿÿ
+ÚÿÿÿüÿÿÿÚÿÿÿüÿÿÿ
+êÿÿÿüÿÿÿêÿÿÿüÿÿÿ
+ÚÿÿÿÚÿÿÿ
+êÿÿÿêÿÿÿ
+êÿÿÿüÿÿÿêÿÿÿüÿÿÿ
+úÿÿÿüÿÿÿúÿÿÿüÿÿÿ
+êÿÿÿêÿÿÿ
+úÿÿÿúÿÿÿ
+üÿÿÿüÿÿÿ
+
+úÿÿÿüÿÿÿúÿÿÿüÿÿÿ
+úÿÿÿúÿÿÿþÿÿÿÚÿÿÿüÿÿÿöÿÿÿÚÿÿÿüÿÿÿþÿÿÿêÿÿÿüÿÿÿöÿÿÿêÿÿÿüÿÿÿþÿÿÿÚÿÿÿöÿÿÿÚÿÿÿþÿÿÿêÿÿÿöÿÿÿêÿÿÿþÿÿÿêÿÿÿüÿÿÿöÿÿÿêÿÿÿüÿÿÿþÿÿÿúÿÿÿüÿÿÿöÿÿÿúÿÿÿüÿÿÿþÿÿÿêÿÿÿöÿÿÿêÿÿÿþÿÿÿúÿÿÿöÿÿÿúÿÿÿþÿÿÿüÿÿÿöÿÿÿüÿÿÿþÿÿÿöÿÿÿþÿÿÿúÿÿÿüÿÿÿöÿÿÿúÿÿÿüÿÿÿþÿÿÿúÿÿÿöÿÿÿúÿÿÿ	
+
+	␍␍	␍	
+
+
+	␍␍   ! ""#!%$&&'%! $$%!#"&&'#" $$&"#!%%'#)(**+)-,../-)(,,-)+*../+*(,,.*+)--/+10223154667510445132667320446231557398::;9=<>>?=98<<=9;:>>?;:8<<>:;9==?;A@BBCAEDFFGEA@DDEACBFFGCB@DDFBCAEEGCIHJJKIMLNNOMIHLLMIKJNNOKJHLLNJKIMMOKQPRRSQUTVVWUQPTTUQSRVVWSRPTTVRSQUUWSYXZZ[Y]\^^_]YX\\]Y[Z^^_[ZX\\^Z[Y]]_[a`bbcaedffgea`ddeacbffgcb`ddfbcaeegcihjjkimlnnomihllmikjnnokjhllnjkimmok
@@ -1,4 +1,4 @@
-//0 no nothing
+//7 no nothing
 U0 Song()
 {
  Fs->task_end_cb=&SndTaskEndCB;
@@ -7,10 +7,10 @@ U0 Song()
  music_stacatto_factor= 0.902;
  try {
  while (!ScanKey) {
-	Play("3eFDGsBReCB2sGRGR3qEetGAGeGsFGeRsDG");
-	Play("eFDGsBReCB2sGRGR3qEetGAGeGsFGeRsDG");
-	Play("FAFAqGeEEqBetE2GR3eFsARe.BsCe.RsE");
-	Play("FAFAqGeEEqBetE2GR3eFsARe.BsCe.RsE");
+	Play("2q.GeGqG3sBBCB2q.GeGqG3sBBCB");
+	Play("q.C2eG3CsDC2eGG3qC2G3eCsDC2eGG");
+	Play("3sEAEAeCsCReRsDAe.GsBFFFFeEsAGeCsGDeDG");
+	Play("sEAEAeCsCReRsDAe.GsBFFFFeEsAGeCsGDeDG");
  }
  } catch
    CatchAll;
@@ -1,4 +1,4 @@
-//7 has words
+//8 has words
 U0 Song()
 {
  Fs->task_end_cb=&SndTaskEndCB;
@@ -1,4 +1,4 @@
-//0 no nothing
+//7 no nothing
 U0 Song()
 {
  Fs->task_end_cb=&SndTaskEndCB;
@@ -0,0 +1,20 @@
+//7 no nothing
+U0 Song()
+{
+  Fs->task_end_cb=&SndTaskEndCB;
+  MusicSettingsRst;
+  music_tempo= 2.480;
+  music_stacatto_factor= 0.902;
+  try {
+  while (!ScanKey) {
+	Play("3qAeCDqEAeCDECDECsCC");
+	Play("qAeCDqEAeCDECDECsCC");
+	Play("eDAGAqDsECECCBCBeAFsDCeGDE");
+	Play("DAGAqDsECECCBCBeAFsDCeGDE");
+  }
+  } catch
+    CatchAll;
+  Snd(0);
+}
+
+Song;
@@ -0,0 +1,20 @@
+//7 no nothing
+U0 Song()
+{
+  Fs->task_end_cb=&SndTaskEndCB;
+  MusicSettingsRst;
+  music_tempo= 2.480;
+  music_stacatto_factor= 0.902;
+  try {
+  while (!ScanKey) {
+	Play("3qGsARARCBCBeACACGCGBAsEA");
+	Play("qGsARARCBCBeACACGCGBAsEA");
+	Play("eAsCEqEsDECEqAsDACAeAGFsBDeCB");
+	Play("AsCEqEsDECEqAsDACAeAGFsBDeCB");
+  }
+  } catch
+    CatchAll;
+  Snd(0);
+}
+
+Song;
@@ -17,11 +17,11 @@ U0 PutVerse()
  I64 *start;

  DocClear;
-  start=GetTimeStamp/16%size;
+  start=GetTSC/16%size;
  if (start>size-LEN) start=size-LEN;
  ch=bible[start+LEN-1];
  bible[start+LEN-1]=0;
-  "" bible+start;
+  "%s",bible+start;
  bible[start+LEN-1]=ch;
 }

@@ -1,20 +0,0 @@
-//0 no nothing
-U0 Song()
-{
-  Fs->task_end_cb=&SndTaskEndCB;
-  MusicSettingsRst;
-  music_tempo= 2.480;
-  music_stacatto_factor= 0.846;
-  try {
-  while (!ScanKey) {
-	Play("3sEAEAqEeFsGAqFsFGeE2qG3sFEFEqA");
-	Play("sEAEAqEeFsGAqFsFGeE2qG3sFEFEqA");
-	Play("EeGDqBeCE2qG3etDGCeEAFA");
-	Play("qEeGDqBeCE2qG3etDGCeEAFA");
-  }
-  } catch
-    CatchAll;
-  Snd(0);
-}
-
-Song;
@@ -1,4 +1,45 @@
-* fix result on Blot ect
+* PSect search all tables if not found very well.
+* Bug: HI:Math/CD3
+
+* asm LIST NOLIST bug
+* Bible ranges. 
+* Current Bible position to link on clipboard.
+* Might have bug. CTRL-F Fwd gets cleared, maybe.
+* hang black text layer bug is back
+* No way to clear +Hold entries
+
+-----------DiningStars---------------
+Song
+Better name than DiningStars
+Better tables, orient, chairs
+Get approval from building inspector
+Health inspector visits
+Hire chefs, cooks, maŒtre'd and waitresses
+Busy aisles, got your back
+Pipes
+Walls with windows and mirrors
+$$ per square foot, how about picking from randomly generated leased spaces 
+Plot customers per hour
+Reservations bot
+Menu
+Candles
+Advertizing
+-------------------------------------
+
+* We don't know why tS caused crash, perhaps, semaphores are broken.
+  (Hangs on 2nd ScreenUpdate, black almost. Perhaps bug from with $LK,"gr_pan_text_x","MN:gr_pan_text_x"$.)
+  Fixed with HPET in tS.
+
+* Maybe dither_probability is bad.
+
+* FAQ frontloaded
+
+COMPILER
+  * Postpone LocalVar Init until last possible moment. (in case RETURN)
+  * PtrArith MUL SIZE -->QueIns(MUL)? 
+  * QueRem(IC_NOP)?
+
+* Fix return result for GrBlot, ect.

 * Tour TestSuite on 256Meg NoMP runs out of mem. Leak,too?

@@ -35,12 +76,13 @@ $LK-A,"::/TempleOS/Demo/Lectures/FixedPointAdvanced.CPP"$.

 * It would be nice if $LK,"U","MN:U"$() NOP were better.

-* Make RedSea file system expanded size set in Copy.
-
 * unhandled exception on MP message gets overwritten by WinMgr

 * Cmd to enable/disable compiler warnings

+* What if we had a type for either F64 or I64, like Print -- no conversion.
+* What if we had a ... that did do conversion, if we have one that doesn't.
+
 * fix documentation problem -- remembering 0 terminator in str or not for $$DA
 * GetS, crazy putkey code
 * editor page formatting is FUBAR
@@ -117,6 +159,7 @@ $HC,"<object width=\"750\" height=\"520\"><param name=\"movie\" value=\"http://w
 * $LK,"DCF_SYMMETRY","MN:DCF_SYMMETRY"$, before transformation? (Currently it's after) 
 * all graphics clipping -- screen y+top<0 for top<0
 * Maybe convert graphics to float
+* Warn unnecessary typecast
 * compiler F32
 * preempt(OFF) during graphic clipping?
 * compiler optimization heap_glbls with added offset
@@ -144,7 +187,7 @@ $HC,"<object width=\"750\" height=\"520\"><param name=\"movie\" value=\"http://w
 * Make use of flag potential in SysFilesFind and possibly CFileAccess
 * implement fixed pos files

-* new Holy C language features
+* new HolyC language features
 * better debugging

 * Change hardcoded stuff to Define
@@ -159,8 +202,8 @@ $HC,"<object width=\"750\" height=\"520\"><param name=\"movie\" value=\"http://w
 * test removable media id  (critical for resident files)

 * add field overflow U8 "t='*'"
-* Implement fmt codes into GetF
-* GetF date codes and maybe $FG,2$h$FG$ fmts for nums
+* Implement fmt codes into Get
+* Get date codes and maybe $FG,2$h$FG$ fmts for nums
 * Date Input
 * Default date fmt

@@ -169,7 +212,7 @@ $HC,"<object width=\"750\" height=\"520\"><param name=\"movie\" value=\"http://w
 * support r4u8 by adding 0x40 byte
 * static var off of data heap.
 * Might want to use U32*U32 multiplication.
-* could add "const" to not set LF_NOT_CONSTANT flag for trig, etc.
+* could add "const" to not set LF_NOT_CONST flag for trig, etc.
 * do r,rm ICCmp like ICBrCmp
 * could make glblvar imports use TY_RIP_DISP32.
 * PUSH_CMP allocs reg R9 or whatever
@@ -191,3 +234,5 @@ $HC,"<object width=\"750\" height=\"520\"><param name=\"movie\" value=\"http://w
 * sort options for findfiles
 * recalc_start could be more accurate before recalculating?
 * Maybe, get rid of $LK,"0x20000","FF:::/TempleOS/Compiler/CmpMain.CPP,0x20000"$ in compiler.
+
+* $FG,4$$TX+HTML,"Key_and_Peele_Part_1","http://www.youtube.com/watch?v=Dd7FixvoKBw"$		$TX+HTML,"Key_and_Peele_Part_2","http://www.youtube.com/watch?v=sXc6JLmiVHs"$$FG$
@@ -1,37 +1,30 @@
 $TR,"Adam"$
 $ID,2$$TR,"TempleOS"$
 $ID,2$$TR,"SysMsgFlags"$
-$ID,2$sys_msg_flags[0]=0x205;
+$ID,2$sys_msg_flags[0]=0;
 $ID,-2$$TR,"SysRegVer"$
-$ID,2$registry_version=1.040;
-$ID,-2$$ID,-2$$ID,-2$$TR,"DemoCompany"$
-$ID,2$$TR,"Game1"$
-$ID,2$F64 best_score=1.23;
-$TR,"SimpleVal"$
-$ID,2$1234;
+$ID,2$registry_version=1.060;
 $ID,-2$$ID,-2$$ID,-2$$TR,"TempleOS"$
-$ID,2$$TR,"CircleTrace"$
-$ID,2$F64 best_score=999.0000;
-$ID,-2$$TR,"FPS"$
-$ID,2$F64 best_score=55.2079;
-$ID,-2$$TR,"EagleDive"$
-$ID,2$I64 best_score=6;
-$ID,-2$$TR,"CastleFrankenstein"$
-$ID,2$F64 best_score=56.7504;
-$ID,-2$$TR,"ZoneOut"$
-$ID,2$F64 best_score=79.0963;
+$ID,2$$TR,"Varoom"$
+$ID,2$F64 best_score=9999.0000;
 $ID,-2$$TR,"BugBird"$
-$ID,2$F64 best_score=16.1659;
+$ID,2$F64 best_score=9999.0000;
 $ID,-2$$TR,"TimeOut"$
-$ID,2$I64 best_score=14797;
+$ID,2$I64 best_score=0;
 $ID,-2$$TR,"RawHide"$
-$ID,2$F64 best_score=60.9434;
+$ID,2$F64 best_score=9999.0000;
 $ID,-2$$TR,"KeepAway"$
 $ID,2$I64 best_score0=0,best_score1=9999;
 $ID,-2$$TR,"XCaliber"$
-$ID,2$I64 best_score=118;
+$ID,2$I64 best_score=0;
 $ID,-2$$TR,"Wenceslas"$
 $ID,2$F64 best_score=9999.0000;
 $ID,-2$$TR,"BulgeBomber"$
-$ID,2$I64 best_score=53;
+$ID,2$I64 best_score=99999;
+$ID,-2$$TR,"EagleDive"$
+$ID,2$I64 best_score=0;
+$ID,-2$$TR,"CastleFrankenstein"$
+$ID,2$F64 best_score=69.1680;
+$ID,-2$$TR,"ZoneOut"$
+$ID,2$F64 best_score=76.8861;
 $ID,-2$$ID,-2$
@@ -1,55 +1,6 @@
-public I64 Circle(U8 *aux_data,
-		I64 cx,I64 cy,I64 cz,
-		I64 radius,
-		Bool (*fp_plot)(U8 *aux,I64 x,I64 y,I64 z),
-		I64 step=1,
-		F64 start_radians=0,
-		F64 len_radians=2*ã)
+CTrace(ON);
+U0 EdCursorLeft(I64 sc=MIN_I64)
 {
-  I64 i,j,len=Ceil(len_radians*radius),
-      x,y,x1,y1,s1,s2,c,result=0;
-  F64 t;
-  if (radius<=0||!step) return 0;
-  t=1.0/radius;
-  c=1<<SCALE1*Cos(t);
-  if (step<0) {
-    step=-step;
-    s2=1<<SCALE1*Sin(t);
-    s1=-s2;
-  } else {
-    s1=1<<SCALE1*Sin(t);
-    s2=-s1;
-  }
-  if (start_radians) {
-    x=radius*Cos(start_radians);
-    y=-radius*Sin(start_radians);
-  } else {
-    x=radius;
-    y=0;
-  }
-  x<<=SCALE2;
-  y<<=SCALE2;
-  for (i=0;i<=len;i+=step) {
-    if ((*fp_plot)(aux_data,cx+x>>SCALE2,cy+y>>SCALE2,cz))
-      result++;
-    for (j=0;j<step;j++) {
-      x1=(c*x+s1*y)>>SCALE1;
-      y1=(s2*x+c*y)>>SCALE1;
-      x=x1; y=y1;
-    }
-  }
-  return result;
+  CDocEntry *doc_ce;
+  BEqu(&doc_ce->type,DOCEt_SELECTED,sc&SCF_SHIFT);
 }
-
-U0 Main()
-{
-  I64 i;
-  CDC *dc=DCAlias;
-  for (i=0;i<100;i++)
-    Circle(dc,100,100,0,i*5,&GrLinePlot,1,0,2*ã);
-  PressAKey;
-  DCFill;
-  DCDel(dc);
-}
-
-Main;