Nightly update (ISO SHA-1 e06524b)

TempleOSCD/Demo/AcctExample/PersonalNotes.DD

@@ -1,7 +1,5 @@
 $WW,1$$FG,5$$TX+CX,"TODO"$$FG$
 
-* TestSuite $LK,"DoLightTable",A="FF:::/Misc/OSTestSuite.HC,DoLightTable"$
-
 * $LK,"::/Apps/X-Caliber/X-Caliber.HC"$
 * Add asteroid harbor defense.
 * Afterburner thruster.
@@ -441,7 +439,7 @@ $FG,5$$TX+CX,"Misc Notes"$$FG$
 Erik van der Karbargenbok: $LK,"TempleBot",A="PI:~/Sup1/Sup1Bin/TempleBot"$.
 Intel CEO's name: Brian Krzanich
 >$FG,2$lspci -v$FG$
-Size:$TX,"17384KB",D="DD_TEMPLEOSCD_K_SIZE"$
+Size:$TX,"17386KB",D="DD_TEMPLEOSCD_K_SIZE"$
 
 $FG,5$$TX+CX,"My Web Bookmarks"$$FG$$WW,0$
 $TX,"My FireFox Bookmarks",HTML="http://www.templeos.org/Wb/Home/Sup1/Sup1Blog/Bookmarks"$

TempleOSCD/Demo/AcctExample/Registry.HC

@@ -50,7 +50,7 @@ $ID,-2$$TR,"Wenceslas"$
 $ID,2$F64 best_score=43.9944;
 $ID,-2$$TR,"OSTestSuite"$
 $ID,2$progress1_tf=0.000;progress2_tf=0.000;
-progress3_tf=0.000;progress4_tf=226.575;
+progress3_tf=0.000;progress4_tf=227.004;
 $ID,-2$$TR,"XCaliber"$
 $ID,2$I64 best_score=90;
 I64 msg_flags=2;
@@ -62,13 +62,13 @@ $ID,-2$$TR,"Titanium"$
 $ID,2$I64 best_score=16469;
 $ID,-2$$TR,"TOSRegen"$
 $ID,2$progress1_tf=0.000;progress2_tf=0.000;
-progress3_tf=0.000;progress4_tf=198.424;
+progress3_tf=0.000;progress4_tf=203.549;
 $ID,-2$$ID,-2$$TR,"Once"$
 $ID,2$$TR,"Adam"$
 $ID,2$$ID,-2$$TR,"User"$
 $ID,2$$ID,-2$$ID,-2$$TR,"DemoCompany"$
 $ID,2$$TR,"Game1"$
-$ID,2$F64 best_score=2103.55708;
+$ID,2$F64 best_score=188.69015;
 $TR,"SimpleVal"$
-$ID,2$1235;
+$ID,2$1236;
 $ID,-2$$ID,-2$$ID,-2$

TempleOSCD/Demo/Graphics/LightTable.HC

@@ -5,6 +5,7 @@ class Photon
 } p_root;
 
 CDC *map;
+F64 ts;
 
 #define TAIL 20
 U0 DrawIt(CTask *,CDC *dc)
@@ -20,6 +21,20 @@ U0 DrawIt(CTask *,CDC *dc)
   }
 }
 
+U0 RandomBurst()
+{
+  I64 i;
+  F64 é;
+  Photon *tmpp;
+  for (i=0;i<1000;i++) {
+    tmpp=CAlloc(sizeof(Photon));
+    D3Equ(&tmpp->p,Fs->pix_width*Rand,Fs->pix_height*Rand);
+    é=2*ã*Rand;
+    D3Equ(&tmpp->v,Cos(é),Sin(é));
+    QueIns(tmpp,p_root.last);
+  }
+}
+
 #define HEIGHT	10
 U0 FindNormal(CDC *dc,Photon *tmpp,I64 last,I64,CD3 *_normal)
 {
@@ -86,15 +101,13 @@ U0 SnellsLaw(CDC *dc,Photon *tmpp,I64 last,I64 next)
 
 U0 AnimateTask(I64)
 {
-  CD3 v;
   Photon *tmpp;
   I64 last,next;
   while (TRUE) {
     tmpp=p_root.next;
     while (tmpp!=&p_root) {
       last=GrPeek(map,tmpp->p.x,tmpp->p.y);
-      D3Mul(&v,1.5,&tmpp->v);
-      D3AddEqu(&tmpp->p,&v);
+      D3AddEqu(&tmpp->p,&tmpp->v);
       if (tmpp->p.x<=0)		tmpp->v.x=-tmpp->v.x;
       if (tmpp->p.x>=map->width)	tmpp->v.x=-tmpp->v.x;
       if (tmpp->p.y<=0)		tmpp->v.y=-tmpp->v.y;
@@ -106,12 +119,13 @@ U0 AnimateTask(I64)
 	SnellsLaw(map,tmpp,last,next);
       tmpp=tmpp->next;
     }
-    Sleep(10);
+    Sleep(1000*ts);
   }
 }
 
 U0 Init()
 {
+  ts=0.01;
   map=DCNew(Fs->pix_width,Fs->pix_height);
   QueInit(&p_root);
 }
@@ -138,11 +152,15 @@ U0 LightTable()
 	"Edit {"
 	"  Fill(,CH_SPACE);"
 	"}"
+	"Play {"
+	"  RandomBurst(,'b');"
+	"  ElapseTime(,'e');"
+	"}"
 	);
   PopUpOk(
-	"Draw splines with $$GREEN$${Left-Click}$$FG$$.\n\n"
+	"Draw splines with $$GREEN$${Left-click}$$FG$$.\n\n"
 	"Fill lens with $$GREEN$$<SPACE>$$FG$$.\n\n"
-	"$$GREEN$${Right-Drag}$$FG$$ to fire rays.\n"
+	"$$GREEN$${Right-drag}$$FG$$ to fire rays.\n"
 	);
   SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
   Fs->win_inhibit=WIG_TASK_DFT-WIF_SELF_FOCUS-
@@ -189,7 +207,9 @@ lt_restart:
 	      i++;
 	    }
 	  } while (i<PTS_NUM-1 && msg_code!=MSG_MS_R_UP);
-	  Gr2BSpline(map,c,i);
+	  map->pen_width=2;
+	  Gr2BSpline3(map,c,i);
+	  map->pen_width=1;
 	  break;
 	case MSG_KEY_DOWN:
 	  switch (arg1) {
@@ -201,6 +221,14 @@ lt_restart:
 	      CleanUp;
 	      Init;
 	      break;
+	    case 'r':
+	      RandomBurst;
+	      break;
+	    case 'e':
+	      ts=0.00;
+	      Sleep(2500);
+	      ts=0.01;
+	      break;
 	    case CH_ESC:
 	    case CH_SHIFT_ESC:
 	      goto lt_done;