448 lines
8.4 KiB
C++
448 lines
8.4 KiB
C++
|
||
|
||
|
||
|
||
|
||
|
||
$SP,"<1>",1$
|
||
|
||
|
||
|
||
|
||
$SP,"<2>",2$
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
$SP,"<3>",3$
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
$SP,"<4>",4$
|
||
|
||
|
||
AcctRegSetDftEntry("TempleOS/Varoom","F64 best_score=9999;\n");
|
||
AcctRegExeBranch("TempleOS/Varoom");
|
||
|
||
I64 vx,vy,vz;
|
||
F64 é,speed,distance,t0,tf;
|
||
|
||
#define NUM_BUSHES 512
|
||
|
||
class Bush
|
||
{
|
||
I32 x,y,z;
|
||
Bool sym,pad[3];
|
||
U8 *img;
|
||
} b[NUM_BUSHES];
|
||
|
||
#define TRACK_INNER 16000
|
||
#define TRACK_OUTER 18000
|
||
#define SHOULDER 200
|
||
#define SLICES 500
|
||
#define D_é (2*ã/SLICES)
|
||
#define TRACK_POLYS (3*SLICES)
|
||
#define DIPS 5
|
||
#define DIP_DEPTH 100
|
||
class TrackPoly
|
||
{
|
||
CColorROPU16 c,pad[3];
|
||
CD3I32 p[4];
|
||
} track[TRACK_POLYS];
|
||
|
||
I64 DipY(I64 x,I64 z)
|
||
{
|
||
F64 m,a;
|
||
R2P(&m,&a,x,z);
|
||
return DIP_DEPTH*m*Cos(DIPS*a)/((TRACK_INNER+TRACK_OUTER)/2);
|
||
}
|
||
|
||
#define CAR_LENGTH 400
|
||
|
||
F64 Dipé(I64 x,I64 z)
|
||
{
|
||
F64 y_front,y_back;
|
||
y_front=DipY(x-CAR_LENGTH/2*Cos(é),z-CAR_LENGTH/2*Sin(é));
|
||
y_back =DipY(x+CAR_LENGTH/2*Cos(é),z+CAR_LENGTH/2*Sin(é));
|
||
return ASin((y_front-y_back)/CAR_LENGTH);
|
||
}
|
||
|
||
U0 InitTrackPoly(TrackPoly *tempt,CColorROPU16 c,
|
||
I64 inner,I64 outer,F64 é1,F64 é2)
|
||
{
|
||
tempt->c=c;
|
||
tempt->p[0].x=inner*Cos(é1);
|
||
tempt->p[0].z=inner*Sin(é1);
|
||
tempt->p[0].y=DipY(tempt->p[0].x,tempt->p[0].z);
|
||
tempt->p[1].x=outer*Cos(é1);
|
||
tempt->p[1].z=outer*Sin(é1);
|
||
tempt->p[1].y=DipY(tempt->p[1].x,tempt->p[1].z);
|
||
tempt->p[2].x=outer*Cos(é2);
|
||
tempt->p[2].z=outer*Sin(é2);
|
||
tempt->p[2].y=DipY(tempt->p[2].x,tempt->p[2].z);
|
||
tempt->p[3].x=inner*Cos(é2);
|
||
tempt->p[3].z=inner*Sin(é2);
|
||
tempt->p[3].y=DipY(tempt->p[3].x,tempt->p[3].z);
|
||
}
|
||
|
||
U0 InitTrack()
|
||
{
|
||
TrackPoly *tempt=track;
|
||
I64 i;
|
||
for (i=0;i<SLICES;i++) {
|
||
InitTrackPoly(tempt++,DKGRAY,TRACK_INNER,TRACK_OUTER,
|
||
i*2*ã/SLICES,(i+1)*2*ã/SLICES);
|
||
if (i&1) {
|
||
InitTrackPoly(tempt++,RED,TRACK_INNER-SHOULDER,TRACK_INNER,
|
||
i*2*ã/SLICES,(i+1)*2*ã/SLICES);
|
||
InitTrackPoly(tempt++,WHITE,TRACK_OUTER,TRACK_OUTER+SHOULDER,
|
||
i*2*ã/SLICES,(i+1)*2*ã/SLICES);
|
||
} else {
|
||
InitTrackPoly(tempt++,WHITE,TRACK_INNER-SHOULDER,TRACK_INNER,
|
||
i*2*ã/SLICES,(i+1)*2*ã/SLICES);
|
||
InitTrackPoly(tempt++,RED,TRACK_OUTER,TRACK_OUTER+SHOULDER,
|
||
i*2*ã/SLICES,(i+1)*2*ã/SLICES);
|
||
}
|
||
}
|
||
}
|
||
|
||
#define HORIZON_DIP 200
|
||
|
||
I64 mp_not_done_flags;
|
||
|
||
U0 MPUpdateWin(CDC *dc2)
|
||
{
|
||
CTask *task=dc2->win_task;
|
||
I64 i,j,x,y,z,lo,hi,
|
||
w=task->win_pixel_width,
|
||
h=task->win_pixel_height,r[16],
|
||
cx=w>>1;
|
||
F64 s,dip_é=Dipé(vx,vz);
|
||
CD3I32 poly[4];
|
||
TrackPoly *tempt;
|
||
CDC *dc=DCAlias(gr_dc2,task);
|
||
|
||
GrIdentEqu(r);
|
||
GrRotYEqu(r,-é);
|
||
GrRotXEqu(r,75*ã/180-dip_é);
|
||
|
||
dc->depth_buf=dc2->depth_buf;
|
||
|
||
//Track
|
||
lo=Gs->num*TRACK_POLYS/mp_cnt;
|
||
hi=(Gs->num+1)*TRACK_POLYS/mp_cnt;
|
||
for (i=lo,tempt=&track[lo];i<hi;i++,tempt++) {
|
||
dc->color=tempt->c;
|
||
for (j=0;j<4;j++) {
|
||
x=tempt->p[j].x+vx; y=tempt->p[j].y+vy; z=tempt->p[j].z+vz;
|
||
GrRot(r,&x,&y,&z);
|
||
s=100.0/(AbsI64(z)+50);
|
||
poly[j].x=s*x+cx;
|
||
poly[j].y=s*y+h;
|
||
poly[j].z=z;
|
||
}
|
||
if (-h<poly[0].y<h*2 && -h<poly[1].y<h*2 &&
|
||
-h<poly[2].y<h*2 && -h<poly[3].y<h*2)
|
||
GrFillPoly3(dc,4,poly);
|
||
}
|
||
|
||
for (i=Gs->num;i<NUM_BUSHES;i+=mp_cnt) {
|
||
x=b[i].x+vx; y=b[i].y+vy; z=b[i].z+vz;
|
||
GrRot(r,&x,&y,&z);
|
||
s=100.0/(AbsI64(z)+50);
|
||
if (s*y<0) {
|
||
GrIdentEqu(dc->r);
|
||
GrScaleMatEqu(dc->r,s*2);
|
||
GrSetRotMat(dc,dc->r);
|
||
dc->flags|=DCF_TRANSFORMATION;
|
||
if (b[i].sym) {
|
||
dc->flags|=DCF_SYMMETRY|DCF_JUST_MIRROR;
|
||
GrSetSymmetry(dc,s*x+cx,s*y+h,s*x+cx,s*y+h+10);
|
||
}
|
||
SpritePlot3B(dc,s*x+cx,s*y+h,z,b[i].img);
|
||
dc->flags&=~(DCF_SYMMETRY|DCF_JUST_MIRROR);
|
||
}
|
||
}
|
||
dc->depth_buf=NULL;
|
||
DCDel(dc);
|
||
LBtr(&mp_not_done_flags,Gs->num);
|
||
}
|
||
|
||
U0 DrawIt(CTask *task,CDC *dc)
|
||
{
|
||
I64 i,x,y,z,
|
||
w=task->win_pixel_width,
|
||
h=task->win_pixel_height,r[16],
|
||
cx=w>>1;
|
||
F64 s,dip_é=Dipé(vx,vz);
|
||
|
||
dc->color=LTCYAN;
|
||
GrRect(dc,0,0,w,HORIZON_DIP*Sin(dip_é)+FONT_HEIGHT*4.5);
|
||
|
||
GrIdentEqu(r);
|
||
GrRotYEqu(r,-é);
|
||
GrRotXEqu(r,75*ã/180-dip_é);
|
||
|
||
DCAllocDepthBuf(dc);
|
||
|
||
//Sun
|
||
x=vx; y=0; z=1000000+vz;
|
||
GrRot(r,&x,&y,&z);
|
||
s=100.0/(AbsI64(z)+50);
|
||
if (y<0) {
|
||
dc->color=BROWN;
|
||
GrCircle(dc,s*x+cx,15+HORIZON_DIP*Sin(dip_é),15);
|
||
dc->color=YELLOW;
|
||
GrFloodFill(dc,s*x+cx,15+HORIZON_DIP*Sin(dip_é));
|
||
}
|
||
|
||
mp_not_done_flags=1<<mp_cnt-1;
|
||
for (i=0;i<mp_cnt;i++)
|
||
JobQue(&MPUpdateWin,dc,i);
|
||
while (mp_not_done_flags)
|
||
Yield;
|
||
|
||
//Map
|
||
dc->color=LTGRAY;
|
||
GrRect(dc,w-64,h-64,64,64);
|
||
dc->color=LTGREEN;
|
||
for (i=0;i<NUM_BUSHES;i++)
|
||
GrPlot(dc,w-64+64*(b[i].x+0x5000)/0xA000,h-64*(b[i].z+0x5000)/0xA000);
|
||
|
||
dc->color=WHITE;
|
||
GrPlot(dc,w-64+64*(-vx+0x5000)/0xA000,h-64*(-vz+0x5000)/0xA000);
|
||
|
||
if (tf) {
|
||
s=tf-t0;
|
||
dc->color=LTRED;
|
||
if (Blink)
|
||
GrPrint(dc,(w-FONT_WIDTH*14)/2,(h-FONT_HEIGHT)/2,"Game Completed");
|
||
} else
|
||
s=tT-t0;
|
||
dc->color=BLACK;
|
||
GrPrint(dc,0,0,"é:%5.1f Time:%3.2f Best:%3.2f",180+180/ã*Arg(vx,vz),s,best_score);
|
||
}
|
||
|
||
|
||
U0 AnimateTask(I64)
|
||
{
|
||
F64 m,a;
|
||
while (TRUE) {
|
||
Snd(speed*3+10);
|
||
vx-=speed*Sin(é);
|
||
vz-=speed*Cos(é);
|
||
vy=DipY(vx,vz);
|
||
R2P(&m,&a,vx,vz);
|
||
if (!tf && TRACK_INNER<=m<=TRACK_OUTER) {
|
||
distance+=speed;
|
||
if (distance>2*ã*TRACK_INNER && a>0.0) {
|
||
tf=tT;
|
||
if (tf-t0<best_score)
|
||
best_score=tf-t0;
|
||
}
|
||
}
|
||
Sleep(10);
|
||
}
|
||
}
|
||
|
||
U8 *imgs[8]={$IB,"<1>",1$,$IB,"<1>",1$,$IB,"<2>",2$,$IB,"<2>",2$,$IB,"<3>",3$,$IB,"<4>",4$,$IB,"<4>",4$,$IB,"<4>",4$};
|
||
|
||
U0 Init()
|
||
{
|
||
Bush *tempb;
|
||
I64 i;
|
||
for (i=0;i<NUM_BUSHES;i++) {
|
||
tempb=&b[i];
|
||
do {
|
||
tempb->x=RandU32&0x7FFF-0x4000;
|
||
tempb->z=RandU32&0x7FFF-0x4000;
|
||
} while (TRACK_INNER-SHOULDER<=Sqrt(SqrI64(tempb->x)+SqrI64(tempb->z))<=TRACK_OUTER+SHOULDER);
|
||
tempb->y=DipY(tempb->x,tempb->z);
|
||
tempb->sym=RandU16&1;
|
||
tempb->img=imgs[i&7];
|
||
}
|
||
InitTrack;
|
||
vx=-(TRACK_INNER+TRACK_OUTER)/2; vz=0; vy=DipY(vx,vz);
|
||
é=0; speed=0;
|
||
distance=0;
|
||
tf=0;
|
||
t0=tT;
|
||
}
|
||
|
||
U0 Varoom()
|
||
{
|
||
I64 ch,sc;
|
||
MenuPush(
|
||
"File {"
|
||
" Abort(,CH_SHIFT_ESC);"
|
||
" Exit(,CH_ESC);"
|
||
"}"
|
||
"Play {"
|
||
" Restart(,'\n');"
|
||
" Accelerator(,,SC_CURSOR_UP);"
|
||
" Break(,,SC_CURSOR_DOWN);"
|
||
" Left(,,SC_CURSOR_LEFT);"
|
||
" Right(,,SC_CURSOR_RIGHT);"
|
||
"}"
|
||
);
|
||
SettingsPush(Fs,TSF_SAME_SONG); //See $LK,"SettingsPush","MN:SettingsPush"$
|
||
try {
|
||
Fs->text_attr=YELLOW<<4+BLUE;
|
||
Fs->win_inhibit=WIF_ALL-WIF_GRAB_SCROLL-WIF_MENU;
|
||
WordStat;
|
||
WinMax;
|
||
WinBorder;
|
||
Preempt(OFF);
|
||
Init;
|
||
DocCursor;
|
||
DocClear;
|
||
Fs->draw_it=&DrawIt;
|
||
Fs->animate_task=Spawn(&AnimateTask,NULL,"Animate",,Fs);
|
||
while (TRUE) {
|
||
while (ScanKey(&ch,&sc))
|
||
switch (ch) {
|
||
case 0:
|
||
switch (sc.u8[0]) {
|
||
case SC_CURSOR_LEFT:
|
||
é-=ã/100;
|
||
break;
|
||
case SC_CURSOR_RIGHT:
|
||
é+=ã/100;
|
||
break;
|
||
case SC_CURSOR_UP:
|
||
speed+=3;
|
||
break;
|
||
case SC_CURSOR_DOWN:
|
||
speed-=3;
|
||
break;
|
||
}
|
||
break;
|
||
case '\n':
|
||
Init;
|
||
break;
|
||
case CH_SHIFT_ESC:
|
||
case CH_ESC:
|
||
goto vr_done;
|
||
}
|
||
WinMgrSync;
|
||
}
|
||
vr_done: //Don't goto out of try
|
||
} catch
|
||
Fs->catch_except=TRUE;
|
||
SettingsPop(Fs,TSF_SAME_SONG);
|
||
MenuPop;
|
||
AcctRegWriteBranch("TempleOS/Varoom","F64 best_score=%5.4f;\n",best_score);
|
||
}
|
||
|
||
Varoom;
|
||
ö
|
||
þÿÿÿ èÿÿÿ
|
||
ôÿÿÿ êÿÿÿ
|
||
þÿÿÿîÿÿÿúÿÿÿèÿÿÿ
|
||
øÿÿÿúÿÿÿôÿÿÿ
|
||
ôÿÿÿ ìÿÿÿ
|
||
âÿÿÿúÿÿÿèÿÿÿ
|
||
àÿÿÿ
|
||
ìÿÿÿ
|
||
îÿÿÿ àÿÿÿ
|
||
üÿÿÿîÿÿÿ
|
||
øÿÿÿ âÿÿÿ
|
||
øÿÿÿ
|
||
öÿÿÿúÿÿÿþÿÿÿ
|
||
úÿÿÿüÿÿÿÜÿÿÿ
|
||
úÿÿÿðÿÿÿúÿÿÿäÿÿÿ ã
|
||
æÿÿÿöÿÿÿ äÿÿÿ
|
||
ìÿÿÿ ìÿÿÿæÿÿÿüÿÿÿ
|
||
äÿÿÿ Öÿÿÿ
|
||
Öÿÿÿ æÿÿÿ
|
||
æÿÿÿ" àÿÿÿ
|
||
êÿÿÿ$ äÿÿÿ
|
||
ìÿÿÿ$ æÿÿÿ
|
||
äÿÿÿúÿÿÿäÿÿÿúÿÿÿ
|
||
æÿÿÿüÿÿÿæÿÿÿüÿÿÿ
|
||
îÿÿÿúÿÿÿ êÿÿÿ
|
||
" Üÿÿÿ& æÿÿÿ
|
||
äÿÿÿ àÿÿÿ
|
||
|
||
þÿÿÿ
|
||
üÿÿÿ
|
||
üÿÿÿ ðÿÿÿ
|
||
êÿÿÿ øÿÿÿ
|
||
øÿÿÿ èÿÿÿ
|
||
èÿÿÿ þÿÿÿ
|
||
þÿÿÿ îÿÿÿ
|
||
ìÿÿÿ þÿÿÿ
|
||
þÿÿÿ îÿÿÿ
|
||
|
||
öÿÿÿ ìÿÿÿ
|
||
êÿÿÿ ðÿÿÿ
|
||
ðÿÿÿ äÿÿÿ
|
||
âÿÿÿ ðÿÿÿ
|
||
ðÿÿÿ êÿÿÿ
|
||
êÿÿÿ úÿÿÿ
|
||
öÿÿÿ ”
|
||
úÿÿÿ Äÿÿÿ
|
||
úÿÿÿÄÿÿÿøÿÿÿúÿÿÿ
|
||
üÿÿÿÂÿÿÿ üÿÿÿ
|
||
úÿÿÿÄÿÿÿæÿÿÿ¤ÿÿÿ
|
||
üÿÿÿÂÿÿÿäÿÿÿ¤ÿÿÿ
|
||
øÿÿÿ¼ÿÿÿúÿÿÿ†ÿÿÿ
|
||
Äÿÿÿüÿÿÿ„ÿÿÿ
|
||
þÿÿÿºÿÿÿ
|
||
Œÿÿÿ
|
||
|
||
Œÿÿÿüÿÿÿ¸ÿÿÿ
|
||
¦ÿÿÿ šÿÿÿ
|
||
šÿÿÿ zÿÿÿ
|
||
zÿÿÿ „ÿÿÿ
|
||
†ÿÿÿ žÿÿÿ
|
||
žÿÿÿ vÿÿÿ
|
||
vÿÿÿþÿÿÿ`ÿÿÿ
|
||
þÿÿÿ`ÿÿÿìÿÿÿ„ÿÿÿ
|
||
ìÿÿÿ„ÿÿÿöÿÿÿ¬ÿÿÿ
|
||
öÿÿÿ¬ÿÿÿâÿÿÿžÿÿÿ
|
||
âÿÿÿžÿÿÿØÿÿÿ¨ÿÿÿ
|
||
Øÿÿÿ¨ÿÿÿîÿÿÿºÿÿÿ
|
||
îÿÿÿºÿÿÿòÿÿÿºÿÿÿ
|
||
ôÿÿÿ¸ÿÿÿúÿÿÿ¸ÿÿÿ
|
||
|
||
–ÿÿÿ ˆÿÿÿ
|
||
„ÿÿÿ Šÿÿÿ
|
||
þÿÿÿŽÿÿÿþÿÿÿjÿÿÿ
|
||
þÿÿÿjÿÿÿôÿÿÿ‚ÿÿÿ
|
||
ôÿÿÿ‚ÿÿÿøÿÿÿœÿÿÿ
|
||
ôÿÿÿ´ÿÿÿîÿÿÿ¦ÿÿÿ
|
||
èÿÿÿ²ÿÿÿÞÿÿÿ¦ÿÿÿ
|
||
|
||
œÿÿÿ –ÿÿÿ
|
||
øÿÿÿ€ÿÿÿ hÿÿÿ
|
||
ˆÿÿÿ €ÿÿÿ
|
||
þÿÿÿ~ÿÿÿ nÿÿÿ
|
||
~ÿÿÿ ’ÿÿÿ
|
||
|
||
œÿÿÿ ¨ÿÿÿ
|
||
öÿÿÿ²ÿÿÿðÿÿÿ‚ÿÿÿ
|
||
ðÿÿÿ‚ÿÿÿúÿÿÿjÿÿÿ
|
||
êÿÿÿ´ÿÿÿÞÿÿÿ ÿÿÿ |