41 lines
1.5 KiB
C++
41 lines
1.5 KiB
C++
//9 has graphics
|
|
|
|
|
|
U0 DrawIt(CTask *,CDC *dc)
|
|
{
|
|
static F64 last_t=tM,tt=0;
|
|
tt+=(tM-last_t)*Abs(Sin(tM));
|
|
last_t=tM;
|
|
tt%=3.5;
|
|
SpritePlotRotZ3B(dc,180+tt,tt*30,0,$IB,"<1>",1$,0.25*Sin(tt)+0.1);
|
|
}
|
|
|
|
|
|
$SP,"<1>",1$
|
|
|
|
U0 Song()
|
|
{
|
|
SettingsPush; //See $LK,"SettingsPush","MN:SettingsPush"$
|
|
Fs->draw_it=&DrawIt;
|
|
Fs->task_end_cb=&SndTaskEndCB;
|
|
|
|
music_tempo=2.5;
|
|
try {
|
|
while (!ScanKey) {
|
|
"$$FG,GREEN$$God talking...\n$$FG$$";
|
|
Play("3qGDFAFAAF",
|
|
"Pre\0ci\0ous \0 \0one,\n\0 \0 \0My \0");
|
|
Play("GDFAFAAF",
|
|
"pre\0ci\0ous \0 \0one,\n\0 \0 \0He\0");
|
|
Play("DEAF2GG3EB",
|
|
"ar \0my \0 \0word,\n\0 \0 \0For \0your \0");
|
|
Play("DEAF2GG3EB",
|
|
"own \0 \0 \0good.\n\0 \0 \0 \0 \0");
|
|
}
|
|
} catch
|
|
CatchAll;
|
|
SettingsPop;
|
|
}
|
|
|
|
Song;
|
|
|