diff --git a/TempleOSCD/0000Boot/0000Kernel.BIN.C b/TempleOSCD/0000Boot/0000Kernel.BIN.C index 4c97e57..a99a695 100644 Binary files a/TempleOSCD/0000Boot/0000Kernel.BIN.C and b/TempleOSCD/0000Boot/0000Kernel.BIN.C differ 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 9bd1a08..7533f7c 100644 Binary files a/TempleOSCD/Compiler/Compiler.BIN and b/TempleOSCD/Compiler/Compiler.BIN differ 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);