41 lines
1.5 KiB
C++
41 lines
1.5 KiB
C++
//9 has graphics
|
|
|
|
|
|
U0 DrawIt(CTask *,CDC *dc)
|
|
{
|
|
static F64 last_t=Beat,tt=0;
|
|
tt+=0.4*(Beat-last_t)*Abs(Sin(Beat));
|
|
last_t=Beat;
|
|
tt%=3.5;
|
|
SpriteZ3B(dc,180+tt,tt*30,0,$IB,"<1>",BI=1$,0.25*Sin(tt)+0.1);
|
|
}
|
|
|
|
|
|
$SP,"<1>",BI=1$
|
|
|
|
U0 Song()
|
|
{
|
|
SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
|
|
Fs->draw_it=&DrawIt;
|
|
Fs->task_end_cb=&SndTaskEndCB;
|
|
|
|
music_tempo=2.5;
|
|
try {
|
|
while (!ScanKey) {
|
|
"$$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
|
|
PutExcept;
|
|
SettingsPop;
|
|
}
|
|
|
|
Song;
|
|
|