Nightly update (ISO SHA-1 e06524b)

This commit is contained in:
TempleOS-bot committed 2017-01-30 17:27:26 -05:00
1 parent f111c9cee1
commit 2a548ae0dc
10 files changed
+66 -19

No files matched your search

Binary file not shown.
+1 -1
View File
@@ -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);
Binary file not shown.
-1
View File
@@ -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,
+1 -3
View File
@@ -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"$
+4 -4
View File
@@ -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$
+35 -7
View File
@@ -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;
+1 -1
View File
@@ -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$
-1
View File
@@ -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);
+24 -1
View File
@@ -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);
}