Nightly update (ISO SHA-1 7a55cc8)

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,236");
+$ID,4$DefinePrint("DD_TEMPLEOS_LOC","120,262");
 DefinePrint("DD_TEMPLEOS_LOC_OFFICIAL","82,012");
 $ID,-4$
   DefinePrint("DD_MP_VECT","%08X",MP_VECT_ADDR);

TempleOSCD/Compiler/CompilerB.HH

@@ -21,7 +21,6 @@ extern U0 StreamDir();
 public extern I64 StreamExePrint(U8 *fmt,...);
 public extern U0 StreamPrint(U8 *fmt,...);
 public extern Bool Trace(Bool val=ON);
-
 #help_index "Compiler/Lex"
 #help_file "::/Doc/Lex"
 extern U0 ClassMemberLstDel(CHashClass *c);
@@ -65,6 +64,7 @@ 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/Registry.HC

@@ -62,7 +62,7 @@ $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=203.549;
+progress3_tf=0.000;progress4_tf=203.589;
 $ID,-2$$ID,-2$$TR,"Once"$
 $ID,2$$TR,"Adam"$
 $ID,2$$ID,-2$$TR,"User"$

TempleOSCD/Demo/Graphics/LightTable.HC

@@ -21,6 +21,36 @@ U0 DrawIt(CTask *,CDC *dc)
   }
 }
 
+U0 RayBurst(I64 x1,I64 y1,I64 x2,I64 y2)
+{
+  CD3 p,v,n,n2;
+  I64 i;
+  Photon *tmpp;
+  D3Equ(&p,x2,y2);
+  D3Equ(&v,x2-x1,y2-y1);
+  D3Unit(&v);
+  D3Equ(&n,v.y,-v.x);
+
+  tmpp=CAlloc(sizeof(Photon));
+  D3Copy(&tmpp->p,&p);
+  D3Copy(&tmpp->v,&v);
+  QueIns(tmpp,p_root.last);
+
+  for (i=2;i<=9;i+=3) {
+    D3Mul(&n2,i,&n);
+ 
+    tmpp=CAlloc(sizeof(Photon));
+    D3Add(&tmpp->p,&p,&n2);
+    D3Copy(&tmpp->v,&v);
+    QueIns(tmpp,p_root.last);
+
+    tmpp=CAlloc(sizeof(Photon));
+    D3Sub(&tmpp->p,&p,&n2);
+    D3Copy(&tmpp->v,&v);
+    QueIns(tmpp,p_root.last);
+  }
+}
+
 U0 RandomBurst()
 {
   I64 i;
@@ -185,11 +215,7 @@ lt_restart:
 	  break;
 	case MSG_MS_R_UP:
 	  ray_x2=arg1; ray_y2=arg2;
-	  tmpp=CAlloc(sizeof(Photon));
-	  tmpp->p.x=ray_x2; tmpp->p.y=ray_y2;
-	  tmpp->v.x=ray_x2-ray_x1; tmpp->v.y=ray_y2-ray_y1;
-	  D3Unit(&tmpp->v);
-	  QueIns(tmpp,p_root.last);
+	  RayBurst(ray_x1,ray_y1,ray_x2,ray_y2);
 	  break;
 	case MSG_MS_L_DOWN:
 	  i=0;

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 13:54:47----$IV,0$
+$IV,1$----01/30/17 15:11:36----$IV,0$
 * Added $LK,"::/Demo/Graphics/LightTable.HC"$.
 
 $IV,1$----01/27/17 08:13:37----$IV,0$

TempleOSCD/Kernel/KernelC.HH

@@ -372,7 +372,6 @@ public extern Bool FileFind(U8 *filename,CDirEntry *_de=NULL,I64 fuf_flags=0);
 public extern U8 *FileRead(U8 *filename,I64 *_size=NULL,I64 *_attr=NULL);
 public extern I64 FileWrite(U8 *filename,
 	U8 *fbuf,I64 size,CDate cdt=0,I64 attr=0);
-
 #help_index "File/Program Routines;File/FileNames"
 public extern CDirEntry *FilesFind(U8 *files_find_mask,I64 fuf_flags=0);
 
@@ -725,6 +724,7 @@ 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);