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

TempleOSCD_140715.ISO

Browse Source
This commit is contained in:
Terry A. Davis authored and minexew committed 2018-09-08 21:46:09 +02:00
1 parent 7ef616a20e
commit 64f679eeb9
1095 files changed
+24814 -221011
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

Apps/AfterEgypt/Map.CPP
+12 -12
View File
@@ -16,10 +16,10 @@ U0 DrawMap(CTask *,CDC *dc)
last_x=x;
}
#define A1_MIN 0.02
#define A1_MAX 0.05
#define A2_MIN 0.15
#define A2_MAX 0.30
#define AE1_MIN 0.02
#define AE1_MAX 0.05
#define AE2_MIN 0.15
#define AE2_MAX 0.30
U0 AEMap()
{
@@ -30,31 +30,31 @@ U0 AEMap()
*r=NULL,
x1=0,y1=0,z1=0,
x_last=x1,y_last=y1;
F64 a,a1=(A1_MAX+A1_MIN)/2,a2=(A2_MAX+A2_MIN)/2,a2_total=a2,
F64 a,a1=(AE1_MAX+AE1_MIN)/2,a2=(AE2_MAX+AE2_MIN)/2,a2_total=a2,
x_scale=ToF64(cx)/c_min,y_scale=ToF64(cy)/c_min;
CDC *dc=DCAlias;
SettingsPush(Fs,TSF_SAME_SONG); //See $LK,"SettingsPush",A="MN:SettingsPush"$
Fs->text_attr=YELLOW<<4+BLUE;
DocClear;
"$$BG,YELLOW$$"; NewLine(TEXT_ROWS);
"$$BG,YELLOW$$%h*c",TEXT_ROWS,'\n';
BibleVerse(,"Exodus,16:35",3);
Fs->draw_it=&DrawMap;
try {
while (!ScanChar) {
dc->color=BLACK;
a1=Clamp(Wrap(a1+(A1_MAX+A1_MIN)/5.0*(Rand-0.5)),-A1_MAX,A1_MAX);
a1=Clamp(Wrap(a1+(AE1_MAX+AE1_MIN)/5.0*(Rand-0.5)),-AE1_MAX,AE1_MAX);
a=a1;
if ( 0.0<=a<=A1_MIN) a=A1_MIN;
if (-A1_MIN<=a<=0.0) a=-A1_MIN;
if ( 0.0<=a<=AE1_MIN) a=AE1_MIN;
if (-AE1_MIN<=a<=0.0) a=-AE1_MIN;
Free(r);
r=GrRotZNew(a);
GrRot(r,&x1,&y1,&z1);
a2=Clamp(Wrap(a2+(A2_MAX+A2_MIN)/5.0*(Rand-0.5)),-A2_MAX,A2_MAX);
a2=Clamp(Wrap(a2+(AE2_MAX+AE2_MIN)/5.0*(Rand-0.5)),-AE2_MAX,AE2_MAX);
a=a2;
if ( 0.0<=a<=A2_MIN) a=A2_MIN;
if (-A2_MIN<=a<=0.0) a=-A2_MIN;
if ( 0.0<=a<=AE2_MIN) a=AE2_MIN;
if (-AE2_MIN<=a<=0.0) a=-AE2_MIN;
a2_total+=a;
x1=ClampI64(x1+6.0*Cos(a2_total),-c_min+10,c_min-10);