Nightly update (ISO SHA-1 e06524b)

TempleOSCD/Adam/ADefine.HC

@@ -18,7 +18,7 @@ U0 LoadDocDefines()
   //$LK,"DD_BOOT_HIGH_LOC_DVD",A="FF:::/Adam/Opt/Boot/BootDVD.HC,DD_BOOT_HIGH_LOC_DVD"$
 
   $TR-C,"LineRep"$
-$ID,4$DefinePrint("DD_TEMPLEOS_LOC","120,185");
+$ID,4$DefinePrint("DD_TEMPLEOS_LOC","120,236");
 DefinePrint("DD_TEMPLEOS_LOC_OFFICIAL","82,012");
 $ID,-4$
   DefinePrint("DD_MP_VECT","%08X",MP_VECT_ADDR);

TempleOSCD/Compiler/CompilerB.HH

@@ -65,7 +65,6 @@ public extern I64 PrsKeyWord(CCmpCtrl *cc);
 #help_index "Compiler;Cmd Line (Typically)"
 extern I64 Cmp(U8 *filename,
 	U8 *map_name=NULL,U8 *out_name=NULL,U8 mapfile_drv_let=0);
-
 #help_index "Debugging/Unassemble"
 public extern U8 *U(U8 *rip,I64 cnt=20,I64 seg_size=64);
 public extern U0 Ui(U8 *buf,U8 **_rip,I64 seg_size=64,

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,&tmpp->v);
-      D3AddEqu(&tmpp->p,&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;

TempleOSCD/Doc/ChgLog.DD

@@ -2,7 +2,7 @@ $WW,1$$FG,5$$TX+CX,"Change Log"$$FG$
 
 Use $LK,"R",A="MN:R"$() to rename if I change a label.
 
-$IV,1$----01/30/17 12:37:29----$IV,0$
+$IV,1$----01/30/17 13:54:47----$IV,0$
 * Added $LK,"::/Demo/Graphics/LightTable.HC"$.
 
 $IV,1$----01/27/17 08:13:37----$IV,0$

TempleOSCD/Kernel/KernelC.HH

@@ -725,7 +725,6 @@ public extern CTask *Spawn(U0 (*fp_addr)(U8 *data),U8 *data=NULL,
 
 #help_index "Time/CPU Cycles;Time/HPET;Time/Jiffies"
 public extern CCntsGlbls cnts;
-
 #help_index "Time/Date/CDate;Date/CDate"
 #help_file "::/Doc/TimeDate"
 extern U0 Date2ISO1(CISO1Date *dst,CDate cdt);

TempleOSCD/Misc/OSTestSuite.HC

@@ -661,7 +661,30 @@ U0 DoLightTable()
   BirthWait(&task->popup_task);
   TaskWait(task->popup_task);
   PostMsgWait(task->popup_task,MSG_KEY_DOWN_UP,CH_SPACE,0);
-  Sleep(750);
+
+  PostMsgWait(task,MSG_MS_L_DOWN_UP,100		,200);
+  PostMsgWait(task,MSG_MS_L_DOWN_UP,100		,200);
+  PostMsgWait(task,MSG_MS_L_DOWN_UP,100		,200);
+  PostMsgWait(task,MSG_MS_L_DOWN_UP,120		,180);
+  PostMsgWait(task,MSG_MS_L_DOWN_UP,160		,120);
+  PostMsgWait(task,MSG_MS_L_DOWN_UP,320		,10);
+  PostMsgWait(task,MSG_MS_L_DOWN_UP,640-160	,120);
+  PostMsgWait(task,MSG_MS_L_DOWN_UP,640-120	,180);
+  PostMsgWait(task,MSG_MS_L_DOWN_UP,640-100	,200);
+  PostMsgWait(task,MSG_MS_L_DOWN_UP,640-100	,200);
+  PostMsgWait(task,MSG_MS_L_DOWN_UP,640-100	,200);
+  PostMsgWait(task,MSG_MS_L_DOWN_UP,100		,200);
+  PostMsgWait(task,MSG_MS_L_DOWN_UP,100		,200);
+  PostMsgWait(task,MSG_MS_L_DOWN_UP,100		,200);
+  PostMsgWait(task,MSG_MS_R_DOWN_UP,0,0);
+
+  MsSet(320,190);
+  PostMsgWait(task,MSG_KEY_DOWN_UP,CH_SPACE,0);
+
+  PostMsgWait(task,MSG_MS_R_DOWN,290,240);
+  PostMsgWait(task,MSG_MS_R_UP	,320,220);
+
+  Sleep(1500);
   PostMsgWait(task,MSG_KEY_DOWN_UP,CH_ESC,0);
   DeathWait(&task,TRUE);
 }