53 lines
1.1 KiB
C++
53 lines
1.1 KiB
C++
//8 has graphics
|
|
|
|
U0 DrawIt(CTask *task,CDC *dc)
|
|
{
|
|
F64 x1,x2,y1,y2,x3,y3,radius,pedals,é,t=Beat,
|
|
cx=335,cy=task->pix_height>>1;
|
|
Bool first=TRUE;
|
|
|
|
radius=cy*(1.0+Sin(2*ã*t));
|
|
pedals=8;
|
|
|
|
dc->color=BLACK;
|
|
for (é=0;é<2*ã;é+=2*ã/100) {
|
|
P2R(&x2,&y2,radius*Abs(Sin(pedals/2*é))+5,é+t);
|
|
if (!first)
|
|
GrLine(dc,x1+cx,cy-y1,x2+cx,cy-y2);
|
|
else {
|
|
first=FALSE;
|
|
x3=x2; y3=y2;
|
|
}
|
|
x1=x2; y1=y2;
|
|
}
|
|
GrLine(dc,x1+cx,cy-y1,x3+cx,cy-y3);
|
|
|
|
dc->color=(2*t)%16;
|
|
GrFloodFill(dc,cx,cy);
|
|
}
|
|
|
|
U0 Song()
|
|
{
|
|
SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
|
|
Fs->draw_it=&DrawIt;
|
|
Fs->task_end_cb=&SndTaskEndCB;
|
|
|
|
music_tempo=2.5;
|
|
try {
|
|
while (TRUE) {
|
|
Play("qBq2G3sGAGAetCBBqAq2G3sBBBBeFE",
|
|
"I \0am \0feeling \0 \0 \0 \0 \0 \0brave.\n\0");
|
|
Play("qBq2G3sGAGAetCBBqAq2G3sBBBBeFE",
|
|
"I \0am \0feeling \0 \0 \0 \0 \0 \0brave.\n\0");
|
|
Play("qCsDEDEq2G3qDqBqAqGq2G3",
|
|
"Test \0me \0 \0 \0 \0Lord. \0See \0if \0I'm \0wor\0thy.\n\0");
|
|
Play("qCsDEDEq2G3qDqBqAqGq2G3",
|
|
"Test \0me \0 \0 \0 \0Lord. \0See \0if \0I'm \0wor\0thy.\n\0");
|
|
}
|
|
} catch
|
|
PutExcept;
|
|
SettingsPop;
|
|
}
|
|
|
|
Song;
|