Rijn/TempleOS-Rijn
1
1 Fork 0
Code Issues Pull Requests 1 Actions Packages Projects Releases Wiki Activity

Nightly update (ISO SHA-1 5cd765c)

Browse Source
This commit is contained in:
TempleOS-bot committed 2017-01-31 13:27:27 -05:00
1 parent 22abd663f0
commit 2e67137597
6 files changed
+28 -25
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

TempleOSCD/0000Boot/0000Kernel.BIN.C
BIN
View File
Binary file not shown.
TempleOSCD/Adam/ADefine.HC
+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"$ //$LK,"DD_BOOT_HIGH_LOC_DVD",A="FF:::/Adam/Opt/Boot/BootDVD.HC,DD_BOOT_HIGH_LOC_DVD"$
$TR-C,"LineRep"$ $TR-C,"LineRep"$
$ID,4$DefinePrint("DD_TEMPLEOS_LOC","120,545"); $ID,4$DefinePrint("DD_TEMPLEOS_LOC","120,548");
DefinePrint("DD_TEMPLEOS_LOC_OFFICIAL","82,014"); DefinePrint("DD_TEMPLEOS_LOC_OFFICIAL","82,014");
$ID,-4$ $ID,-4$
DefinePrint("DD_MP_VECT","%08X",MP_VECT_ADDR); DefinePrint("DD_MP_VECT","%08X",MP_VECT_ADDR);
TempleOSCD/Compiler/Compiler.BIN
BIN
View File
Binary file not shown.
TempleOSCD/Demo/AcctExample/Registry.HC
+1 -1
View File
@@ -62,7 +62,7 @@ $ID,-2$$TR,"Titanium"$
$ID,2$I64 best_score=16469; $ID,2$I64 best_score=16469;
$ID,-2$$TR,"TOSRegen"$ $ID,-2$$TR,"TOSRegen"$
$ID,2$progress1_tf=0.000;progress2_tf=0.000; $ID,2$progress1_tf=0.000;progress2_tf=0.000;
progress3_tf=0.000;progress4_tf=204.256; progress3_tf=0.000;progress4_tf=202.157;
$ID,-2$$ID,-2$$TR,"Once"$ $ID,-2$$ID,-2$$TR,"Once"$
$ID,2$$TR,"Adam"$ $ID,2$$TR,"Adam"$
$ID,2$$ID,-2$$TR,"User"$ $ID,2$$ID,-2$$TR,"User"$
TempleOSCD/Demo/Graphics/LightTable.HC
+25 -22
View File
@@ -136,7 +136,7 @@ U0 RandomBurst()
U0 FindNormal(Photon *tmpp) U0 FindNormal(Photon *tmpp)
{ {
CD3 p,p1,p2; CD3 p,p1,p2;
F64 x,y,é=Arg(tmpp->v.x,tmpp->v.y),è; F64 step,x,y,é=Arg(tmpp->v.x,tmpp->v.y),è;
I64 c; I64 c;
D3Copy(&tmpp->p_snell_inhibit,&tmpp->p); D3Copy(&tmpp->p_snell_inhibit,&tmpp->p);
@@ -155,43 +155,47 @@ U0 FindNormal(Photon *tmpp)
D3Div(&tmpp->p,&p,bmp_scale); D3Div(&tmpp->p,&p,bmp_scale);
//Draw an arc one direction, finding point of contact. //Draw an arc one direction, finding point of contact.
for (è=0;è<=ã/4;è+=0.125*ã/bmp_norm_radius) { for (step=1.0;step>=0.01;step/=4)
for (è=0;è<=ã/4;è+=step*ã/bmp_norm_radius) {
x=p.x+bmp_norm_radius*Cos(é+ã-ã/4-è); x=p.x+bmp_norm_radius*Cos(é+ã-ã/4-è);
y=p.y+bmp_norm_radius*Sin(é+ã-ã/4-è); y=p.y+bmp_norm_radius*Sin(é+ã-ã/4-è);
c=BmpPeek(x,y); c=BmpPeek(x,y);
if (c!=BLACK) if (c!=BLACK)
break; goto fn_p1;
x=p.x+bmp_norm_radius*Cos(é+ã-ã/4+è); x=p.x+bmp_norm_radius*Cos(é+ã-ã/4+è);
y=p.y+bmp_norm_radius*Sin(é+ã-ã/4+è); y=p.y+bmp_norm_radius*Sin(é+ã-ã/4+è);
c=BmpPeek(x,y); c=BmpPeek(x,y);
if (c!=BLACK) if (c!=BLACK)
break; goto fn_p1;
} }
fn_p1:
if (c==WHITE) if (c==WHITE)
D3Equ(&p1,x,y); D3Equ(&p1,x,y);
else else
D3Copy(&p1,&tmpp->p); D3Copy(&p1,&tmpp->p);
//Draw an arc other direction, finding point of contact. //Draw an arc other direction, finding point of contact.
for (è=0;è<=ã/4;è+=0.125*ã/bmp_norm_radius) { for (step=1.0;step>=0.01;step/=4)
x=p.x+bmp_norm_radius*Cos(é+ã+ã/4-è); for (è=0;è<=ã/4;è+=step*ã/bmp_norm_radius) {
y=p.y+bmp_norm_radius*Sin(é+ã+ã/4-è);
c=BmpPeek(x,y);
if (c!=BLACK)
break;
x=p.x+bmp_norm_radius*Cos(é+ã+ã/4+è); x=p.x+bmp_norm_radius*Cos(é+ã+ã/4+è);
y=p.y+bmp_norm_radius*Sin(é+ã+ã/4+è); y=p.y+bmp_norm_radius*Sin(é+ã+ã/4+è);
c=BmpPeek(x,y); c=BmpPeek(x,y);
if (c!=BLACK) if (c!=BLACK)
break; goto fn_p2;
x=p.x+bmp_norm_radius*Cos(é+ã+ã/4-è);
y=p.y+bmp_norm_radius*Sin(é+ã+ã/4-è);
c=BmpPeek(x,y);
if (c!=BLACK)
goto fn_p2;
} }
fn_p2:
if (c==WHITE) if (c==WHITE)
D3Equ(&p2,x,y); D3Equ(&p2,x,y);
else else
D3Copy(&p2,&tmpp->p); D3Copy(&p2,&tmpp->p);
D3Sub(&p,&p1,&p2); D3Sub(&p,&p1,&p2);
if (D3NormSqr(&p)<1.0) { if (D3NormSqr(&p)<0.01) {
D3Equ(&tmpp->n,Cos(é),Sin(é)); D3Equ(&tmpp->n,Cos(é),Sin(é));
lock {zero_normal++;} lock {zero_normal++;}
} else { } else {
@@ -206,7 +210,7 @@ U0 SnellsLaw(Photon *tmpp,I64 last,I64 next)
{ {
//n1 and n2 are refraction index. //n1 and n2 are refraction index.
//n1 Sin(é1) == n2 Sin(é2) //n1 Sin(é1) == n2 Sin(é2)
F64 é=Arg(tmpp->v.x,tmpp->v.y),én,n1,n2,é1,é2,éa,éb; F64 é=Arg(tmpp->v.x,tmpp->v.y),én,n1,n2,é1,é2;
if (last==WHITE) if (last==WHITE)
n1=1.5; n1=1.5;
else else
@@ -217,17 +221,13 @@ U0 SnellsLaw(Photon *tmpp,I64 last,I64 next)
n2=1.0; n2=1.0;
FindNormal(tmpp); FindNormal(tmpp);
én=Arg(tmpp->n.x,tmpp->n.y); én=Arg(tmpp->n.x,tmpp->n.y);
//dot=m1m2Cos(é); //Dot=m1m2Cos(é);
é1=ACos(D3Dot(&tmpp->n,&tmpp->v)); é1=ACos(D3Dot(&tmpp->n,&tmpp->v));
é2=ASin(n1*Sin(é1)/n2); é2=ASin(n1*Sin(é1)/n2);
//é --> (én+é1) if (Wrap(é-én)>=0)
//é <-- (én+é2) é=én+é2;
éa=én+é2;
éb=én-é2;
if (Abs(Wrap(éa-é))<Abs(Wrap(éb-é)))
é=éa;
else else
é=éb; é=én-é2;
D3Equ(&tmpp->v,Cos(é),Sin(é)); D3Equ(&tmpp->v,Cos(é),Sin(é));
lock {snell_cnt++;} lock {snell_cnt++;}
} }
@@ -503,8 +503,11 @@ lt_restart:
} }
break; break;
case MSG_MS_R_UP: case MSG_MS_R_UP:
mode=PopUpPickLst("Line\0Spline\0FloodFill\0TestRay\0"); i=PopUpPickLst("Line\0Spline\0FloodFill\0TestRay\0");
if (i>=0) {
mode=i;
LTMenuSet(mode); LTMenuSet(mode);
}
break; break;
case MSG_KEY_DOWN: case MSG_KEY_DOWN:
switch (arg1) { switch (arg1) {
TempleOSCD/Doc/ChgLog.DD
+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. Use $LK,"R",A="MN:R"$() to rename if I change a label.
$IV,1$----01/31/17 08:57:31----$IV,0$ $IV,1$----01/31/17 09:52:56----$IV,0$
* Added $LK,"::/Demo/Graphics/LightTable.HC"$. * Added $LK,"::/Demo/Graphics/LightTable.HC"$.
* Added $LK,"TOS Linux Setup",A="FF:::/Demo/AcctExample/TOS/TOSPolicies.DD,TOS Linux Setup"$. * Added $LK,"TOS Linux Setup",A="FF:::/Demo/AcctExample/TOS/TOSPolicies.DD,TOS Linux Setup"$.