125 lines
2.9 KiB
C++
125 lines
2.9 KiB
C++
//Practice tracing circles
|
|
|
|
AcctRegSetDftEntry("TempleOS/CircleTrace","F64 best_score=999;\n");
|
|
AcctRegExecuteBranch("TempleOS/CircleTrace");
|
|
|
|
I64 cx,cy;
|
|
F64 avg_error=0,elapsed_time=0,total_error=0,score=999;
|
|
|
|
U0 SongTask(I64)
|
|
{
|
|
Fs->task_end_cb=&SndTaskEndCB;
|
|
MusicSettingsRst;
|
|
while (TRUE)
|
|
Play("hEDCARCDECR");
|
|
}
|
|
|
|
U0 DrawIt(CTask *task,CDC *)
|
|
{
|
|
U8 buf[128];
|
|
SPrintF(buf,"Error:%6.3f Time:%6.3f Score:%6.3f Best:%8.3f",avg_error,elapsed_time,score,best_score);
|
|
PlotWinStr(task,buf,BLACK<<4+WHITE,0,0);
|
|
}
|
|
|
|
#define CIRCLE_RADIUS 100
|
|
#define CIRCUMFERENCE (2*ã*CIRCLE_RADIUS)
|
|
|
|
Bool CTPlot(CDC *dc,I64 x,I64 y,I64)
|
|
{
|
|
F64 rad=Sqrt(Sqr(x-cx)+Sqr(y-cy));
|
|
GrPlot(dc,x,y);
|
|
total_error+=Abs(rad-CIRCLE_RADIUS);
|
|
return TRUE;
|
|
}
|
|
|
|
U0 CircleTrace()
|
|
{
|
|
I64 msg_code,p1,p2,x1,y1;
|
|
F64 rad,t0,total_distance;
|
|
CDC *dc=DCAlias;
|
|
|
|
SettingsPush; //See $LK,"SettingsPush","MN:SettingsPush"$
|
|
Fs->song_task=Spawn(&SongTask,NULL,"Song",Fs);
|
|
WordStat;
|
|
|
|
cx=Fs->win_pixel_width/2;
|
|
cy=Fs->win_pixel_height/2;
|
|
|
|
Fs->win_inhibit=WIF_ALL-WIF_BORDER;
|
|
DocCursor;
|
|
DocClear;
|
|
Fs->draw_it=&DrawIt;
|
|
|
|
DCFill;
|
|
dc->color=ROP_XOR+BLACK^COLOR_TRANSPARENT;
|
|
GrCircle(dc,cx,cy,CIRCLE_RADIUS);
|
|
do {
|
|
msg_code=GetMsg(&p1,&p2,
|
|
1<<MSG_KEY_DOWN+1<<MSG_IP_L_DOWN);
|
|
switch (msg_code) {
|
|
case MSG_KEY_UP:
|
|
break;
|
|
case MSG_IP_L_DOWN:
|
|
DCFill;
|
|
dc->color=ROP_XOR+BLACK^COLOR_TRANSPARENT;
|
|
GrCircle(dc,cx,cy,CIRCLE_RADIUS);
|
|
dc->color=ROP_XOR+RED^COLOR_TRANSPARENT;
|
|
t0=tT;
|
|
total_distance=0.001;
|
|
total_error=0;
|
|
x1=p1; y1=p2;
|
|
do {
|
|
msg_code=ScanMsg(&p1,&p2,
|
|
1<<MSG_IP_L_UP+1<<MSG_IP_MOVE);
|
|
switch (msg_code) {
|
|
case MSG_IP_L_UP:
|
|
break;
|
|
case MSG_IP_MOVE:
|
|
if (x1!=p1 || y1!=p2) {
|
|
total_distance+=Sqrt(Sqr(x1-p1)+Sqr(y1-p2));
|
|
Line(dc,x1,y1,0,p1,p2,0,&CTPlot);
|
|
x1=p1;y1=p2;
|
|
//undo overlapping pixels on segments
|
|
GrPlot(dc,x1,y1);
|
|
rad=Sqrt(Sqr(x1-cx)+Sqr(y1-cy));
|
|
total_error-=Abs(rad-CIRCLE_RADIUS);
|
|
}
|
|
break;
|
|
}
|
|
elapsed_time=tT-t0;
|
|
avg_error=total_error/total_distance;
|
|
score=elapsed_time*avg_error;
|
|
|
|
//This $LK,"Sleep","MN:Sleep"$()s until the next time the
|
|
//window mgr task runs. The
|
|
//window mgr calls the UpdateWin() routine
|
|
//and places msgs in the que, so there's
|
|
//no need to do anything until the window mgr runs.
|
|
WinMgrSync;
|
|
|
|
} while (msg_code!=MSG_IP_L_UP);
|
|
music_mute=TRUE; Sleep(200);
|
|
if (total_distance>0.95*CIRCUMFERENCE) {
|
|
if (score<best_score) {
|
|
Snd(2000);Sleep(50);Snd(0);Sleep(50);
|
|
Snd(2000);Sleep(50);Snd(0);Sleep(50);
|
|
Snd(2000);Sleep(50);
|
|
best_score=score;
|
|
} else {
|
|
Snd(500);Sleep(50);
|
|
}
|
|
} else {
|
|
Snd(100);Sleep(1000);
|
|
}
|
|
Snd(0); Sleep(200); music_mute=FALSE;
|
|
break;
|
|
}
|
|
} while (msg_code!=MSG_KEY_DOWN || p1!=CH_SHIFT_ESC && p1!=CH_ESC);
|
|
SettingsPop;
|
|
DCFill;
|
|
DCDel(dc);
|
|
AcctRegWriteBranch("TempleOS/CircleTrace","F64 best_score=%5.4f;\n",best_score);
|
|
}
|
|
|
|
CircleTrace; //Execute when #included
|