From 2f8692274e3fbfed106f5b98b7683b0c6bc7a2bb Mon Sep 17 00:00:00 2001
From: TempleOS-bot <email@example.com>
Date: Mon, 30 Jan 2017 18:27:26 -0500
Subject: [PATCH] Nightly update (ISO SHA-1 7a55cc8)

---
 TempleOSCD/0000Boot/0000Kernel.BIN.C    | Bin 192080 -> 192080 bytes
 TempleOSCD/Adam/ADefine.HC              |   2 +-
 TempleOSCD/Compiler/Compiler.BIN        | Bin 192920 -> 192920 bytes
 TempleOSCD/Compiler/CompilerB.HH        |   2 +-
 TempleOSCD/Demo/AcctExample/Registry.HC |   2 +-
 TempleOSCD/Demo/Graphics/LightTable.HC  |  36 ++++++++++++++++++++----
 TempleOSCD/Doc/ChgLog.DD                |   2 +-
 TempleOSCD/Kernel/KernelC.HH            |   2 +-
 8 files changed, 36 insertions(+), 10 deletions(-)

diff --git a/TempleOSCD/0000Boot/0000Kernel.BIN.C b/TempleOSCD/0000Boot/0000Kernel.BIN.C
index 4c97e5733181bad684f57a9058b83573e1633307..a99a69550d4b828370eb544b566fb15beae1aace 100644
GIT binary patch
delta 284
zcmca`hx@`E?g=LBmog`Rzii9Bc_GV1=FL1TFXNaP-fsS$lq<_5>$^FvVI4E`Ygfj}
zhL)0>4O*m`SoqGnGEP@0U=-h+)|Si2^6{lB<K*~G#mPU~jhWS+_)XU9@MW3)3Zh10
z^7%Hw%_};R8DUaPW^XpfcFmMye7pJkiVa3gystK|y#1JmiGg8r--}tCj4vi@esX7g
zvAOWmdO5~d+Z6>FuktZ@Gfr-d71_?Cz_>t(*-O@U`+6tFx%^D-&!+nYG1h@a&Id8_
zii27AGZ~)<Gey7MezcZxj|?Nj_NG~kokmQS&$jcPWvpXoD%?DI<1gXu3$8G3Rbzay
bJ?uB5a6IGH?O9Pw;*N~<+nZ)HoeKg0#Tajw

delta 284
zcmca`hx@`E?g=LBvzNSjdD)hG^Fo%3%$s>wUdA!aeY5#{Qm!o1M8C~x4eOYhU%4_)
zHnf!7Y|tXj#IpXJE8}#90!H!8X>GZTEPXFs87IegDo*~<Zp?hGFJQ7>hcAoCD~KA2
z$>-YyH?QbOW`s#GU4Feewri#w<D1RjS8On1TKRJG%G-~5m`V#a_q~|K$@qM-<|lW?
z=bH;Zt(Rkbxm{6^@hTsa598#<Sdr~K3XBVsm{(5p+rHk3aV|g8^QY7Of*9+-BIkn`
zdBwr3`<aYSgqg0r*?zQ^agPjR@b;!zjGabIH=l0jJ<C|f&Lp~d^2T4n+ZSA6+^WX-
ce0$h$M&WqIqU~8xOyZ7=O52-eGo1?p02khO2><{9

diff --git a/TempleOSCD/Adam/ADefine.HC b/TempleOSCD/Adam/ADefine.HC
index 4627976..77fee60 100644
--- a/TempleOSCD/Adam/ADefine.HC
+++ b/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);
diff --git a/TempleOSCD/Compiler/Compiler.BIN b/TempleOSCD/Compiler/Compiler.BIN
index 9bd1a08a4d779afe7fa4c82954c7f5fad7b37c26..7533f7ca9147e40e4025fd6b9c992a91f2005010 100644
GIT binary patch
delta 159
zcmbR7n0v-!?hS>Cj0~HL6rUYplDW7!>d94eMuzPMGK?h#tY)uV85t%Q&Jo_e$A>Y2
zk@3rRSwF^-au(MHMuzDDGE8FIS081R7iDDFe)<-pra5PRs7Lo3kLEWKQ!g@!OfUGy
z$g*8jh-tdm^cG$wvFUq%GjeV}t-&P5!^+6O&(1h$i^TSSCQPfv8DDH)<-_zwaI%g$
R$MoE0ChqMk<Cxx00s!*RIJp1-

delta 145
zcmbR7n0v-!?hS>Cj4Ydr6rUYp+IwMh)RU{`jKSLtWEe{fSTDbHWn`FKI7fK<9v{X8
zM#hQTW&IdS%2_<S4|q%ukYN(rzWOMmyeOmL_S3f*HO)CUhkA6s@o0V%G4&#o$n=7L
zj4azlg_x#`F&b`PtHET#!^kkXp;u(Gz!r|}|4f)xi!(mozRHK`jUc1p_UUm<jFSNx
C12#qg

diff --git a/TempleOSCD/Compiler/CompilerB.HH b/TempleOSCD/Compiler/CompilerB.HH
index 76544c0..67409e3 100644
--- a/TempleOSCD/Compiler/CompilerB.HH
+++ b/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,
diff --git a/TempleOSCD/Demo/AcctExample/Registry.HC b/TempleOSCD/Demo/AcctExample/Registry.HC
index 1cd3afc..dd1940d 100644
--- a/TempleOSCD/Demo/AcctExample/Registry.HC
+++ b/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"$
diff --git a/TempleOSCD/Demo/Graphics/LightTable.HC b/TempleOSCD/Demo/Graphics/LightTable.HC
index 2fba7b1..a6e7d1e 100644
--- a/TempleOSCD/Demo/Graphics/LightTable.HC
+++ b/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;
diff --git a/TempleOSCD/Doc/ChgLog.DD b/TempleOSCD/Doc/ChgLog.DD
index d23e962..42d45d5 100644
--- a/TempleOSCD/Doc/ChgLog.DD
+++ b/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$
diff --git a/TempleOSCD/Kernel/KernelC.HH b/TempleOSCD/Kernel/KernelC.HH
index 0dd595c..ea46713 100644
--- a/TempleOSCD/Kernel/KernelC.HH
+++ b/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);